boo-ya ka-sha!

5 files changed, 166 insertions, 0 deletions

diff --git a/dev-lisp/cmucl/files/19a/README.Gentoo b/dev-lisp/cmucl/files/19a/README.Gentoo
new file mode 100644
index 000000000000..885807587fb5
--- /dev/null
+++ b/dev-lisp/cmucl/files/19a/README.Gentoo
@@ -0,0 +1,31 @@
+
+* README.Gentoo -- Gentoo Specific Notes for dev-lisp/cmucl
+
+** About dev-lisp/cmucl 
+
+The dev-lisp/cmucl ebuild in portage aim to provide a port of
+Debian's package of CMUCL.  Thus the Gentoo CMUCL port should be
+binary compatible with the Debian port.
+
+** Linux Miscellaneous Binary Support
+
+You can have your compiled Lisp .x86f files automatically executed
+like any other binary by executing the following command:
+
+  echo ':lisp:E::x86f::/usr/bin/lisp-start:' \
+    >/proc/sys/fs/binfmt_misc/register
+
+Note: you need kernel support for this.  A good place to put the
+above command is in your /etc/conf.d/localstart.
+
+** Credit
+
+This Gentoo package, like many other Gentoo packages in the dev-lisp
+category, benifit from the Debian Project's work.
+
+  -- Matthew Kennedy <mkennedy@gentoo.org>
+
+
+Local Variables: ***
+mode: outline ***
+End: ***
diff --git a/dev-lisp/cmucl/files/19a/herald-save.lisp-gentoo.patch b/dev-lisp/cmucl/files/19a/herald-save.lisp-gentoo.patch
new file mode 100644
index 000000000000..b1a54bfb3ceb
--- /dev/null
+++ b/dev-lisp/cmucl/files/19a/herald-save.lisp-gentoo.patch
@@ -0,0 +1,19 @@
+diff -ur cmucl-19a-release-20040728.orig.orig/src/code/save.lisp cmucl-19a-release-20040728.orig/src/code/save.lisp
+--- cmucl-19a-release-20040728.orig.orig/src/code/save.lisp	2004-06-29 16:24:46.000000000 -0500
++++ cmucl-19a-release-20040728.orig/src/code/save.lisp	2004-08-03 11:18:05.286348696 -0500
+@@ -289,11 +289,9 @@
+ 	))
+ 
+ (setf (getf *herald-items* :bugs)
+-      '("For support see http://www.cons.org/cmucl/support.html Send bug reports to the debian BTS."
+-        terpri
+-	"or to "
+-	"pvaneynd@debian.org" terpri
+-       "type (help) for help, (quit) to exit, and (demo) to see the demos" terpri
++      '("For support see http://www.cons.org/cmucl/support.html" terpri
++	"Send bug reports to http://bugs.gentoo.org" terpri
++	"Type (help) for help or (quit) to exit." terpri
+         terpri
+ 	"Loaded subsystems:"))
+ 
+Only in cmucl-19a-release-20040728.orig/src/code: save.lisp~
diff --git a/dev-lisp/cmucl/files/19a/install-clc.lisp b/dev-lisp/cmucl/files/19a/install-clc.lisp
new file mode 100644
index 000000000000..23642b16ffee
--- /dev/null
+++ b/dev-lisp/cmucl/files/19a/install-clc.lisp
@@ -0,0 +1,55 @@
+;;; -*- Mode: LISP; Package: CL-USER -*-
+;;;
+;;; Copyright Peter Van Eynde, 2001
+;;;
+;;; License: LGPL v2
+;;;
+(in-package "COMMON-LISP-USER")
+
+(unless (ignore-errors
+          (load "/usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp"))
+  (unix:unix-exit 1))
+
+;; (unless (ignore-errors
+          (common-lisp-controller:init-common-lisp-controller 
+           "/usr/lib/common-lisp/cmucl/"
+           :version 3)
+;;           t)
+;;   (format t "~%Error during init of common-lisp-controller~%")
+;;   (unix:unix-exit 1))
+
+(in-package :common-lisp-controller)
+
+(defun send-clc-command (command package)
+  (let ((process
+         (ext:run-program "/usr/bin/clc-send-command"
+                          (list
+                           (ecase command
+                             (:recompile "recompile")
+                             (:remove "remove"))
+                           (format nil "~A" package)
+			   "cmucl"
+                           "--quiet")
+                          :wait t)))
+    (if (= (ext:process-exit-code process)
+           0)
+        ;; no error
+        (values)
+        (error "An error happend during ~A of ~A for ~A~%Please see /usr/share/doc/common-lisp-controller/REPORTING-BUGS.gz"
+               (ecase command
+                 (:recompile "recompilation")
+                 (:remove "removal"))
+               package
+	       "cmucl"))))
+
+(in-package "COMMON-LISP-USER")
+
+(unless (ignore-errors
+          ;; it loaded, configure it for common-lisp-controller use:
+          (format t "~%Saving to new-lisp.core...")
+          (ext:gc :full t)       
+          (setf ext:*batch-mode* nil)
+          (ext:save-lisp "new-lisp.core" 
+                         :purify t))
+  (unix:unix-exit 1))
+
diff --git a/dev-lisp/cmucl/files/19a/site-init.lisp.in b/dev-lisp/cmucl/files/19a/site-init.lisp.in
new file mode 100644
index 000000000000..ad145414ca43
--- /dev/null
+++ b/dev-lisp/cmucl/files/19a/site-init.lisp.in
@@ -0,0 +1,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\"
+"))
+
diff --git a/dev-lisp/cmucl/files/digest-cmucl-19a b/dev-lisp/cmucl/files/digest-cmucl-19a
new file mode 100644
index 000000000000..02081ab3d5fa
--- /dev/null
+++ b/dev-lisp/cmucl/files/digest-cmucl-19a
@@ -0,0 +1,3 @@
+MD5 6b37fe4815935af73f0efd1312e6a969 cmucl_19a-release-20040728.orig.tar.gz 4456803
+MD5 a1b0e25d77646e6f83a0c723f2e46b14 cmucl_19a-release-20040728-1.diff.gz 1500168
+MD5 8d2afba837c28149944d3edd02af8b86 cmucl-19a-x86-linux.tar.bz2 7237512