Restore sbcl-0.9.3 for amd64 keywording; Thanks to <anarchy@gentoo.org> for catching that.

(Portage version: 2.0.53_rc7)

7 files changed, 183 insertions, 0 deletions

diff --git a/dev-lisp/sbcl/files/0.9.3/README.Gentoo b/dev-lisp/sbcl/files/0.9.3/README.Gentoo
new file mode 100644
index 000000000000..76f560d1b31e
--- /dev/null
+++ b/dev-lisp/sbcl/files/0.9.3/README.Gentoo
@@ -0,0 +1,29 @@
+-*- outline -*- $Id: README.Gentoo,v 1.3 2005/12/02 02:51:57 mkennedy Exp $
+
+Gentoo GNU/Linux specific notes for SBCL
+----------------------------------------
+
+This is the README.Gentoo file from /usr/share/doc/@PF@/ directory.
+
+  * The Gentoo port uses patches from the Debian project's SBCL port.
+
+  * An SBCL with support for multi-threading on GNU/Linux for x86 is available
+    with 'USE="threads" emerge dev-lisp/sbcl'
+
+  * asdf-install is installed as sbcl-asdf-install (the man-page is similarly
+    named).
+
+  * Support for the Common Lisp Controller is available.
+
+  * If "nosource" is in your USE flags, then SBCL's source will not be installed
+    (in /usr/lib/sbcl/src).
+
+  * If "unicode" is in your USE flags, then support for SBCL
+    Unicode will be included.
+
+  * If "ldb" is in your USE flags, then support for the SBCL low-level debugger
+    will be included.
+
+If you encounter any problems or have suggestions, use http://bugs.gentoo.org.
+Please don't bother the upstream authors unless you are absolutely certain it is
+not Gentoo-related.
diff --git a/dev-lisp/sbcl/files/0.9.3/customize-target-features.lisp-prefix b/dev-lisp/sbcl/files/0.9.3/customize-target-features.lisp-prefix
new file mode 100644
index 000000000000..40f9a4fc85fa
--- /dev/null
+++ b/dev-lisp/sbcl/files/0.9.3/customize-target-features.lisp-prefix
@@ -0,0 +1,5 @@
+(lambda (list)
+(flet ((enable (x)
+(pushnew x list))
+(disable (x)
+(setf list (remove x list))))
diff --git a/dev-lisp/sbcl/files/0.9.3/customize-target-features.lisp-suffix b/dev-lisp/sbcl/files/0.9.3/customize-target-features.lisp-suffix
new file mode 100644
index 000000000000..dbbde7adc44e
--- /dev/null
+++ b/dev-lisp/sbcl/files/0.9.3/customize-target-features.lisp-suffix
@@ -0,0 +1,2 @@
+)
+list)
diff --git a/dev-lisp/sbcl/files/0.9.3/install-clc.lisp b/dev-lisp/sbcl/files/0.9.3/install-clc.lisp
new file mode 100644
index 000000000000..c8e0a93a729f
--- /dev/null
+++ b/dev-lisp/sbcl/files/0.9.3/install-clc.lisp
@@ -0,0 +1,34 @@
+;;; -*- Mode: LISP; Package: CL-USER -*-
+;;;
+;;; Copyright (C) Peter Van Eynde 2001 and Kevin Rosenberg 2002-2003
+;;;
+;;; License: LGPL v2
+;;;
+(in-package "COMMON-LISP-USER")
+
+(handler-case
+    (load "/usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp")
+  (error (e)
+    (format t "~%Error during load of common-lisp-controller.lisp: ~A~%" e)
+    (sb-unix:unix-exit 1)))
+
+(handler-case
+    (common-lisp-controller:init-common-lisp-controller-v4 "sbcl")
+  (error (e)
+    (format t "~%Error running init-common-lisp-controller-v4: ~A~%" e)
+    (sb-unix:unix-exit 1)))
+
+(when (probe-file #p"/etc/lisp.config")
+  (load #p"/etc/lisp.config"))
+
+(setf (logical-pathname-translations "SYS")
+      '(("SYS:SRC;**;*.*.*"
+	 #P"/usr/share/sbcl/src/**/*.*")
+	("SYS:CONTRIB;**;*.*.*"
+	 #P"/usr/share/sbcl/**/*.*")))
+       
+(ignore-errors
+ (format t "~%Saving to sbcl-new.core...")
+ (sb-ext:gc :full t)
+ (sb-ext:save-lisp-and-die "sbcl-new.core"
+			   :purify t))
diff --git a/dev-lisp/sbcl/files/0.9.3/sbcl-gentoo.patch b/dev-lisp/sbcl/files/0.9.3/sbcl-gentoo.patch
new file mode 100644
index 000000000000..8b529fc6cb8c
--- /dev/null
+++ b/dev-lisp/sbcl/files/0.9.3/sbcl-gentoo.patch
@@ -0,0 +1,88 @@
+diff -ur --exclude '*~' sbcl-0.9.3.orig/contrib/sb-bsd-sockets/sb-bsd-sockets.asd sbcl-0.9.3/contrib/sb-bsd-sockets/sb-bsd-sockets.asd
+--- sbcl-0.9.3.orig/contrib/sb-bsd-sockets/sb-bsd-sockets.asd	2004-08-02 06:42:56.000000000 -0500
++++ sbcl-0.9.3/contrib/sb-bsd-sockets/sb-bsd-sockets.asd	2005-04-25 11:08:42.000000000 -0500
+@@ -102,15 +102,3 @@
+ 
+ (defmethod perform :after ((o load-op) (c (eql (find-system :sb-bsd-sockets))))
+   (provide 'sb-bsd-sockets))
+-
+-(defmethod perform ((o test-op) (c (eql (find-system :sb-bsd-sockets))))
+-  (operate 'load-op 'sb-bsd-sockets-tests)
+-  (operate 'test-op 'sb-bsd-sockets-tests))
+-
+-(defsystem sb-bsd-sockets-tests
+-  :depends-on (sb-rt sb-bsd-sockets sb-posix)
+-  :components ((:file "tests")))
+-
+-(defmethod perform ((o test-op) (c (eql (find-system :sb-bsd-sockets-tests))))
+-  (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
+-      (error "test-op failed")))
+diff -ur --exclude '*~' sbcl-0.9.3.orig/contrib/sb-posix/posix-tests.lisp sbcl-0.9.3/contrib/sb-posix/posix-tests.lisp
+--- sbcl-0.9.3.orig/contrib/sb-posix/posix-tests.lisp	2005-01-06 06:47:57.000000000 -0600
++++ sbcl-0.9.3/contrib/sb-posix/posix-tests.lisp	2005-04-25 11:06:50.000000000 -0500
+@@ -96,7 +96,7 @@
+       (sb-posix:syscall-errno c)))
+   #.sb-posix::eexist)
+ 
+-(deftest mkdir.error.2
++#+nil (deftest mkdir.error.2
+   (handler-case
+       (sb-posix:mkdir "/" 0)
+     (sb-posix:syscall-error (c)
+@@ -149,7 +149,7 @@
+       (sb-posix:syscall-errno c)))
+   #.sb-posix::enotdir)
+ 
+-(deftest rmdir.error.3
++#+nil (deftest rmdir.error.3
+   (handler-case
+       (sb-posix:rmdir "/")
+     (sb-posix:syscall-error (c)
+diff -ur --exclude '*~' sbcl-0.9.3.orig/contrib/sb-posix/sb-posix.asd sbcl-0.9.3/contrib/sb-posix/sb-posix.asd
+--- sbcl-0.9.3.orig/contrib/sb-posix/sb-posix.asd	2004-08-04 05:54:18.000000000 -0500
++++ sbcl-0.9.3/contrib/sb-posix/sb-posix.asd	2005-04-25 11:10:09.000000000 -0500
+@@ -88,33 +88,5 @@
+ 		  :package :sb-posix :depends-on  ("defpackage"))
+ 		 (:file "interface" :depends-on ("constants" "macros" "designator" "alien"))))
+ 
+-(defsystem sb-posix-tests
+-    :depends-on (sb-rt)
+-    :components ((:file "posix-tests")))
+-
+ (defmethod perform :after ((o load-op) (c (eql (find-system :sb-posix))))
+   (provide 'sb-posix))
+-
+-(defmethod perform ((o test-op) (c (eql (find-system :sb-posix))))
+-  (operate 'load-op 'sb-posix-tests)
+-  (operate 'test-op 'sb-posix-tests))
+-
+-(defmethod perform ((o test-op) (c (eql (find-system :sb-posix-tests))))
+-  (funcall (intern "DO-TESTS" (find-package "SB-RT")))
+-  (let ((failures (funcall (intern "PENDING-TESTS" "SB-RT")))
+-	(ignored-failures (loop for sym being the symbols of :sb-posix-tests
+-			        if (search ".ERROR" (symbol-name sym))
+-			        collect sym)))
+-    (cond
+-      ((null failures)
+-       t)	     
+-      ((null (set-difference failures ignored-failures))
+-       (warn "~@<some POSIX implementations return incorrect error values for ~
+-              failing calls, but there is legitimate variation between ~
+-              implementations too.  If you think the errno ~
+-              from your platform is valid, please contact the sbcl ~
+-              developers; otherwise, please submit a bug report to your ~
+-              kernel distributor~@:>")
+-       t)
+-      (t
+-       (error "non-errno tests failed!")))))
+diff -ur --exclude '*~' sbcl-0.9.3.orig/src/runtime/GNUmakefile sbcl-0.9.3/src/runtime/GNUmakefile
+--- sbcl-0.9.3.orig/src/runtime/GNUmakefile	2005-04-10 10:34:59.000000000 -0500
++++ sbcl-0.9.3/src/runtime/GNUmakefile	2005-04-25 11:06:50.000000000 -0500
+@@ -33,6 +33,7 @@
+ # symlink to Config-foo.
+ include Config
+ 
++CFLAGS += -DSBCL_HOME='"/usr/lib/sbcl"'
+ 
+ C_SRCS = alloc.c backtrace.c breakpoint.c coreparse.c \
+ 	dynbind.c gc-common.c globals.c interr.c interrupt.c \
diff --git a/dev-lisp/sbcl/files/0.9.3/sbclrc b/dev-lisp/sbcl/files/0.9.3/sbclrc
new file mode 100644
index 000000000000..91f31720d896
--- /dev/null
+++ b/dev-lisp/sbcl/files/0.9.3/sbclrc
@@ -0,0 +1,18 @@
+;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CL-USER -*-
+
+;;; This file is installed as /etc/sbcl.rc and run on every invocation
+;;; of SBCL
+
+(if (probe-file "/etc/lisp-config.lisp")
+    (load "/etc/lisp-config.lisp")
+    (format t "~%;;; Warning: there is no /etc/lisp-config.lisp file"))
+
+;;; The following is required if you want source location functions to
+;;; work (such as those called when you use M-. (edit definition) in
+;;; ILISP or SLIME)
+
+(setf (logical-pathname-translations "SYS")
+      '(("SYS:SRC;**;*.*.*" #p"/usr/lib/sbcl/src/**/*.*")
+	("SYS:CONTRIB;**;*.*.*" #p"/usr/lib/sbcl/**/*.*")))
+
+;;; sbclrc ends here
diff --git a/dev-lisp/sbcl/files/digest-sbcl-0.9.3 b/dev-lisp/sbcl/files/digest-sbcl-0.9.3
new file mode 100644
index 000000000000..c3a1ac4eb502
--- /dev/null
+++ b/dev-lisp/sbcl/files/digest-sbcl-0.9.3
@@ -0,0 +1,7 @@
+MD5 29ad145f1fc45c65b8d65b39013bc43f sbcl-0.7.10-mips-linux-binary.tar.gz 7473873
+MD5 6c193e328cdb472787ef78401ee5294c sbcl-0.8.1-x86-linux-binary.tar.bz2 6348098
+MD5 3a72d0785ce0a8e02f9af632c2a4f217 sbcl-0.8.15-powerpc-linux-binary.tar.bz2 6656148
+MD5 029b85186984d0bfc8b49c4de1e8e45e sbcl-0.8.15-sparc-linux-binary.tar.bz2 6903090
+MD5 beba4861dc8de0a2420c483f15a93c05 sbcl-0.8.19-x86-64-linux-binary.tar.bz2 7466117
+MD5 458ad42279c59159f7482de048890e72 sbcl-0.9.3-html.tar.bz2 113165
+MD5 b6848cde3a7b26a2a82bc63b05ac58a5 sbcl-0.9.3-source.tar.bz2 2582754