*** empty log message ***

3 files changed, 113 insertions, 0 deletions

diff --git a/dev-lisp/cmucl-bin/files/18e/README.Gentoo b/dev-lisp/cmucl-bin/files/18e/README.Gentoo
new file mode 100644
index 000000000000..7f3044639c7b
--- /dev/null
+++ b/dev-lisp/cmucl-bin/files/18e/README.Gentoo
@@ -0,0 +1,22 @@
+
+* CMUCL Configuration
+
+Please note, while you do not need to do anything special while
+running cmucl itself (it is a wrapper script than sets environment
+appropriately), you will nee to set few shell environment variables
+before running the CMUCL configuration program, `config'
+
+The following is the simplest chain of commands launch CMUCL config:
+
+    cd /opt/cmucl/lib/cmucl/lib/
+    CMUCLLIB=/opt/cmucl/lib/cmucl/lib PATH=$PATH:/opt/cmucl/bin ./config
+
+* Site Configuration
+
+/etc/common-lisp/cmucl/site-lisp.lisp has been installed.  This file
+is intended for local, site-wide configuration of CMUCL.
+
+
+Local Variables: ***
+mode: outline ***
+End: ***
diff --git a/dev-lisp/cmucl-bin/files/18e/site-init.lisp b/dev-lisp/cmucl-bin/files/18e/site-init.lisp
new file mode 100644
index 000000000000..51f784503ab5
--- /dev/null
+++ b/dev-lisp/cmucl-bin/files/18e/site-init.lisp
@@ -0,0 +1,72 @@
+;;; -*- 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 (The Debian Project)
+
+;;; This code was imported from The Debian Project and modified 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"))
+
+(setf (ext:search-list "target:")
+      '("/usr/share/common-lisp/source/"))
+;; (setf (ext:search-list "library:")
+;;       '("/opt/cmucl/lib/cmucl/lib/" "/opt/cmucl/src/"))
+
+(in-package :common-lisp-user)
+
+;;; newbie functions, delete if you don't like them
+
+#-hemlock
+(defun ed (&rest rest)
+  (multiple-value-bind (return errorp)
+    (ignore-errors (require :cmucl-hemlock))
+   (if errorp
+     (error "Sorry, cannot find hemlock, please install and use ilisp. Reason: ~S" errorp)
+    (apply #'ed rest))))
+
+(defun help ()
+  (format t "~
+Welcome to CMUCL for GNU/Linux.
+
+If you aren't running this with ilisp in emacs, or aren't intending to
+use hemlock then you deserve to lose. :-)
+
+Read the documentation in /usr/share/doc/cmucl-bin*/.
+
+(quit)             quit
+(ed)               starts hemlock
+(demo)             shows a list of demos
+(describe 'progn)  gives information about progn for example
+(inspect '*a*)     interactively inspects *a* for example
+"))
+
+(defun demo ()
+  (format t "~
+Some demos are in the source package, some in the normal package.
+
+General demos
+
+CLX demos
+
+ (require :clx)
+ (load \"library:clx/demo/hello\")
+ (xlib::hello-world \"\")
+
+ (load \"library:clx/demo/menu\")
+ (xlib::just-say-lisp \"\")
+ (xlib::pop-up \"\" '(\"Linux\" \"FreeBSD\" \"OpenBSD\"))
+
+ exit by pressing control+C followed by a keypress.
+
+"))
+
+
diff --git a/dev-lisp/cmucl-bin/files/18e/wrapper-gentoo.patch b/dev-lisp/cmucl-bin/files/18e/wrapper-gentoo.patch
new file mode 100644
index 000000000000..717ba49af28e
--- /dev/null
+++ b/dev-lisp/cmucl-bin/files/18e/wrapper-gentoo.patch
@@ -0,0 +1,19 @@
+diff -ru lisp/lib/cmucl/sample-wrapper lisp2/lib/cmucl/sample-wrapper
+--- lisp/lib/cmucl/sample-wrapper	Thu Apr 11 06:31:24 2002
++++ lisp2/lib/cmucl/sample-wrapper	Wed Jun  5 14:59:18 2002
+@@ -1,7 +1,7 @@
+ #!/bin/sh
+ #
+ # Set up CMUCLLIB environment variable to point to run-time files.
+-CMUCLLIB=/<<your-cmucl-path>>/lib/cmucl/lib
++#CMUCLLIB=/opt/cmucl/lib/cmucl/lib
+ #export CMUCLLIB
+ 
+ #
+@@ -13,4 +13,4 @@
+ 
+ #
+ # Run Lisp with these environment variables set.
+-exec /<<your-cmucl-path>>/bin/lisp "$@"
++exec /opt/cmucl/bin/lisp "$@"
+