blob: ad145414ca43b204089c6e7396ac9ea2bf7f685d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
;;; -*- Mode: Lisp; Package: System -*-
;;;
;;; **********************************************************************
;;; This code was written as part of the CMU Common Lisp project at
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
;;; Heavy modifications by Peter Van Eynde
;;; More modifications for Gentoo by Matthew Kennedy
;;; <mkennedy@gentoo.org>
(in-package "SYSTEM")
(if (probe-file "/etc/lisp-config.lisp")
(load "/etc/lisp-config.lisp")
(format t "~%;;; Warning: There is no /etc/lisp-config.lisp file (which should have been created during emerge"))
;;; If you have sources installed on your system, un-comment the following form
;;; and change it to point to the source location. This will allow the Hemlock
;;; "Edit Definition" command and the debugger to find sources for functions in
;;; the core.
(setf (ext:search-list "target:")
'(
"/usr/share/common-lisp/source/cmucl/" ; object dir
))
(setf (ext:search-list "library:") '("/usr/lib/cmucl/"))
;;; for safety...
;;; optional extentions to the lisp image: delete if you
;;; don't like them :-).
(in-package :common-lisp-user)
;;; newbie functions, delete if you don't like them
(defun help ()
(format t "~
Welcome to the Gentoo GNU/Linux port of CMUCL.
If you aren't running this with ILISP (see: app-emacs/ilisp or
app-xemacs/ilisp) in Emacs, or don't intend to use Hemlock
(see: dev-lisp/cmucl-source) then you deserve to lose. :-)
The CMUCL REPL does not have GNU Readline-like support, however
you may wish to install rlwap (see: app-misc/rlwrap) to achieve
the same effect.
If you think you found a bug, please use http://bugs.gentoo.org
Read the documentation in /usr/share/doc/@PF@.
(quit) exit Lisp
(describe 'foo) gives information about foo
(inspect '*foo*) interactively inspects *foo*
(apropos \"foo\") briefly describe all symbols which match \"foo\"
"))
|
GitWeb
