8 files changed, 0 insertions, 286 deletions
diff --git a/dev-lisp/sbcl/files/0.8.18/README.Gentoo b/dev-lisp/sbcl/files/0.8.18/README.Gentoo
deleted file mode 100644
index 49524b77e022..000000000000
--- a/dev-lisp/sbcl/files/0.8.18/README.Gentoo
+++ /dev/null
@@ -1,29 +0,0 @@
--*- outline -*- $Id: README.Gentoo,v 1.1 2005/01/07 21:52:19 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 you 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.8.18/customize-target-features.lisp-prefix b/dev-lisp/sbcl/files/0.8.18/customize-target-features.lisp-prefix
deleted file mode 100644
index 40f9a4fc85fa..000000000000
--- a/dev-lisp/sbcl/files/0.8.18/customize-target-features.lisp-prefix
+++ /dev/null
@@ -1,5 +0,0 @@
-(lambda (list)
-(flet ((enable (x)
-(pushnew x list))
-(disable (x)
-(setf list (remove x list))))
diff --git a/dev-lisp/sbcl/files/0.8.18/customize-target-features.lisp-suffix b/dev-lisp/sbcl/files/0.8.18/customize-target-features.lisp-suffix
deleted file mode 100644
index dbbde7adc44e..000000000000
--- a/dev-lisp/sbcl/files/0.8.18/customize-target-features.lisp-suffix
+++ /dev/null
@@ -1,2 +0,0 @@
-)
-list)
diff --git a/dev-lisp/sbcl/files/0.8.18/install-clc.lisp b/dev-lisp/sbcl/files/0.8.18/install-clc.lisp
deleted file mode 100644
index 98bf4f548b65..000000000000
--- a/dev-lisp/sbcl/files/0.8.18/install-clc.lisp
+++ /dev/null
@@ -1,64 +0,0 @@
-;;; -*- Mode: LISP; Package: CL-USER -*-
-;;;
-;;; Copyright (C) Peter Van Eynde 2001 and Kevin Rosenberg 2002-2003
-;;;
-;;; License: LGPL v2
-;;;
-;;; Some modifications for Gentoo, Matthew Kennedy <mkennedy@gentoo.org>
-;;;
-
-(in-package "COMMON-LISP-USER")
-
-(unless (ignore-errors
-	  (load "/usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp"))
-  (sb-unix:unix-exit 1))
-
-(unless (ignore-errors
-	  (common-lisp-controller:init-common-lisp-controller
-	   "/usr/lib/common-lisp/sbcl/" 
-	   :version 3)
-	  t)
-  (format t "~%Error during init of common-lisp-controller~%")
-  (sb-unix:unix-exit 1))
-
-(in-package :common-lisp-controller)
-
-(defun send-clc-command (command package)
-  (let ((process
-	 (sb-ext:run-program "/usr/bin/clc-send-command"
-			     (list (ecase command
-				     (:recompile "recompile")
-				     (:remove "remove"))
-				   (format nil "~A" package)
-				   "sbcl"
-				   "--quiet")
-			     :wait t)))
-    (if (= (sb-ext:process-exit-code process) 0)
-	(values)
-        (error "An error happened during ~A of ~A for ~A"
-	       (ecase command
-		      (:recompile "recompilation")
-		      (:remove "removal"))
-	       package
-	       "sbcl"))))
-
-(in-package :common-lisp-user)
-
-(progn
-  (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.8.18/sbcl-gentoo.patch b/dev-lisp/sbcl/files/0.8.18/sbcl-gentoo.patch
deleted file mode 100644
index 2b0dd38510e1..000000000000
--- a/dev-lisp/sbcl/files/0.8.18/sbcl-gentoo.patch
+++ /dev/null
@@ -1,32 +0,0 @@
-diff -ru sbcl-0.8.18.orig/contrib/sb-posix/posix-tests.lisp sbcl-0.8.18/contrib/sb-posix/posix-tests.lisp
---- sbcl-0.8.18.orig/contrib/sb-posix/posix-tests.lisp	2004-03-15 09:24:53.000000000 -0600
-+++ sbcl-0.8.18/contrib/sb-posix/posix-tests.lisp	2004-04-28 14:47:50.179460512 -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 -ru sbcl-0.8.18.orig/src/runtime/GNUmakefile sbcl-0.8.18/src/runtime/GNUmakefile
---- sbcl-0.8.18.orig/src/runtime/GNUmakefile	2004-04-10 08:37:23.000000000 -0500
-+++ sbcl-0.8.18/src/runtime/GNUmakefile	2004-04-28 14:46:29.556717032 -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.8.18/sbcl-no-tests-gentoo.patch b/dev-lisp/sbcl/files/0.8.18/sbcl-no-tests-gentoo.patch
deleted file mode 100644
index 72ec2fc81a2b..000000000000
--- a/dev-lisp/sbcl/files/0.8.18/sbcl-no-tests-gentoo.patch
+++ /dev/null
@@ -1,56 +0,0 @@
-diff -ur sbcl-0.8.18.orig/contrib/sb-bsd-sockets/sb-bsd-sockets.asd sbcl-0.8.18/contrib/sb-bsd-sockets/sb-bsd-sockets.asd
---- sbcl-0.8.18.orig/contrib/sb-bsd-sockets/sb-bsd-sockets.asd	2004-02-11 05:00:40.000000000 -0600
-+++ sbcl-0.8.18/contrib/sb-bsd-sockets/sb-bsd-sockets.asd	2004-07-11 15:30:52.230966464 -0500
-@@ -103,14 +103,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 sbcl-0.8.18.orig/contrib/sb-posix/sb-posix.asd sbcl-0.8.18/contrib/sb-posix/sb-posix.asd
---- sbcl-0.8.18.orig/contrib/sb-posix/sb-posix.asd	2003-11-29 14:41:47.000000000 -0600
-+++ sbcl-0.8.18/contrib/sb-posix/sb-posix.asd	2004-07-11 15:52:38.766342896 -0500
-@@ -86,34 +86,3 @@
- 		  "constants"
- 		  :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 --git a/dev-lisp/sbcl/files/0.8.18/sbcl.sh b/dev-lisp/sbcl/files/0.8.18/sbcl.sh
deleted file mode 100644
index d0ebaf86fa5d..000000000000
--- a/dev-lisp/sbcl/files/0.8.18/sbcl.sh
+++ /dev/null
@@ -1,80 +0,0 @@
-#!/bin/sh
-
-if [ ! -f /usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp ] ; then
-  cat <<EOF
-$0: cannot find the common-lisp-controller source.
-EOF
-  exit 0
-fi
-
-build_error()
-{
-    echo "Build failure $1"
-    exit 1
-}
-
-case $1 in
-    rebuild)
-	    echo $0 rebuilding...
-	    shift
-	    echo rebuilding $1
-	    sbcl --noinform --sysinit /etc/sbclrc --userinit /dev/null \
-	         --disable-debugger \
-	         --eval \
-"(handler-case
-     (progn
-       (c-l-c:compile-library (quote $1))
-       (sb-unix:unix-exit 0))
-    (error (e)
-      (ignore-errors (format t \"~&Build error: ~A~%\" e))
-      (finish-output)
-      (sb-unix:unix-exit 1)))" || build_error
-	    ;;
-     remove)
-	    echo $0 removing packages...
-	    shift
-	    while [ ! -z "$1" ] ; do
-		rm -rf "/usr/lib/common-lisp/sbcl/$1"
-		shift
- 	    done
-	    ;;
-    install-defsystem | install-clc)
-	    echo $0 loading and dumping clc.
-	    ( cd /usr/lib/sbcl
-	      sbcl --core /usr/lib/sbcl/sbcl-dist.core \
-		   --noinform --sysinit /etc/sbclrc --userinit /dev/null \
-		   --load "/usr/lib/sbcl/install-clc.lisp" 2> /dev/null
-              mv sbcl-new.core sbcl.core || (echo FAILED ; cp sbcl-dist.core sbcl.core ) )
-	    ;;
-    remove-defsystem | remove-clc)
-	    echo $0 removing clc-enabled image
-	    cp /usr/lib/sbcl/sbcl-dist.core /usr/lib/sbcl/sbcl.core
-	    ;;
-    make-user-image)
-	if [ ! -f "$2" ] ; then 
-	    echo "Trying to make-user image, but can not find file $2" >&2
-	    exit 1
-	fi 
-	sbcl --core /usr/lib/sbcl/sbcl-dist.core \
-	    --noinform --sysinit /dev/null --userinit /dev/null \
-	    --eval \
-"(handler-case
-  (progn    
-    (load \"$2\") 
-    (sb-ext:gc :full t)
-    (sb-ext:save-lisp-and-die \"/usr/lib/sbcl/sbcl-new.core\" :purify t))
-    (sb-unix:unix-exit 0))
-  (error (e)
-    (ignore-errors (format t \"make-user-image error: ~A~%\" e))
-    (finish-output)
-    (sb-unix:unix-exit 1)))"
-            mv sbcl-new.core sbcl.core || (echo FAILED ; cp sbcl-dist.core sbcl.core ) 
-	    ;;
-    *)
-	    echo $0 unkown command $1
-	    echo known commands: rebuild, remove, make-user-image, install-clc and remove-clc
-	    exit 1
-	    ;;
-esac
-
-exit 0
diff --git a/dev-lisp/sbcl/files/0.8.18/sbclrc b/dev-lisp/sbcl/files/0.8.18/sbclrc
deleted file mode 100644
index 91f31720d896..000000000000
--- a/dev-lisp/sbcl/files/0.8.18/sbclrc
+++ /dev/null
@@ -1,18 +0,0 @@
-;;; -*- 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