summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'dev-lisp/sbcl/files/0.9.11')
-rw-r--r--dev-lisp/sbcl/files/0.9.11/README.Gentoo30
-rw-r--r--dev-lisp/sbcl/files/0.9.11/customize-target-features.lisp-prefix5
-rw-r--r--dev-lisp/sbcl/files/0.9.11/customize-target-features.lisp-suffix2
-rw-r--r--dev-lisp/sbcl/files/0.9.11/install-clc.lisp37
-rw-r--r--dev-lisp/sbcl/files/0.9.11/sbcl-gentoo.patch68
-rw-r--r--dev-lisp/sbcl/files/0.9.11/sbcl.sh65
-rw-r--r--dev-lisp/sbcl/files/0.9.11/sbclrc16
7 files changed, 223 insertions, 0 deletions
diff --git a/dev-lisp/sbcl/files/0.9.11/README.Gentoo b/dev-lisp/sbcl/files/0.9.11/README.Gentoo
new file mode 100644
index 000000000000..f3083d45bf4d
--- /dev/null
+++ b/dev-lisp/sbcl/files/0.9.11/README.Gentoo
@@ -0,0 +1,30 @@
+-*- outline -*- $Id: README.Gentoo,v 1.1 2006/04/04 15:35:43 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 the x86 and amd64
+ platforms is available with 'USE="threads" emerge dev-lisp/sbcl'. Note, an
+ NPTL-enabled GLIBC is a requirement beginning with SBCL 0.9.5.
+
+ * 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.11/customize-target-features.lisp-prefix b/dev-lisp/sbcl/files/0.9.11/customize-target-features.lisp-prefix
new file mode 100644
index 000000000000..40f9a4fc85fa
--- /dev/null
+++ b/dev-lisp/sbcl/files/0.9.11/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.11/customize-target-features.lisp-suffix b/dev-lisp/sbcl/files/0.9.11/customize-target-features.lisp-suffix
new file mode 100644
index 000000000000..dbbde7adc44e
--- /dev/null
+++ b/dev-lisp/sbcl/files/0.9.11/customize-target-features.lisp-suffix
@@ -0,0 +1,2 @@
+)
+list)
diff --git a/dev-lisp/sbcl/files/0.9.11/install-clc.lisp b/dev-lisp/sbcl/files/0.9.11/install-clc.lisp
new file mode 100644
index 000000000000..8ae9a3828dff
--- /dev/null
+++ b/dev-lisp/sbcl/files/0.9.11/install-clc.lisp
@@ -0,0 +1,37 @@
+;;; -*- Mode: LISP; Package: CL-USER -*-
+;;;
+;;; Copyright (C) Peter Van Eynde 2001 and Kevin Rosenberg 2002-2003
+;;;
+;;; License: LGPL v2
+;;;
+
+;; This file is originally from the Debian project patch to SBCL
+;; upstream.
+
+(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"))
diff --git a/dev-lisp/sbcl/files/0.9.11/sbcl-gentoo.patch b/dev-lisp/sbcl/files/0.9.11/sbcl-gentoo.patch
new file mode 100644
index 000000000000..a4aacd5e102b
--- /dev/null
+++ b/dev-lisp/sbcl/files/0.9.11/sbcl-gentoo.patch
@@ -0,0 +1,68 @@
+diff -urN sbcl-0.9.11-orig/contrib/sb-bsd-sockets/sb-bsd-sockets.asd sbcl-0.9.11/contrib/sb-bsd-sockets/sb-bsd-sockets.asd
+--- sbcl-0.9.11-orig/contrib/sb-bsd-sockets/sb-bsd-sockets.asd 2004-08-02 06:42:56.000000000 -0500
++++ sbcl-0.9.11/contrib/sb-bsd-sockets/sb-bsd-sockets.asd 2006-01-28 20:01:55.989010096 -0600
+@@ -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 -urN sbcl-0.9.11-orig/contrib/sb-posix/sb-posix.asd sbcl-0.9.11/contrib/sb-posix/sb-posix.asd
+--- sbcl-0.9.11-orig/contrib/sb-posix/sb-posix.asd 2006-01-24 11:14:50.000000000 -0600
++++ sbcl-0.9.11/contrib/sb-posix/sb-posix.asd 2006-01-28 20:03:25.675375696 -0600
+@@ -89,33 +89,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 -urN sbcl-0.9.11-orig/src/runtime/runtime.c sbcl-0.9.11/src/runtime/runtime.c
+--- sbcl-0.9.11-orig/src/runtime/runtime.c 2006-01-24 11:15:45.000000000 -0600
++++ sbcl-0.9.11/src/runtime/runtime.c 2006-01-28 20:04:04.549465936 -0600
+@@ -68,7 +68,7 @@
+ #endif
+
+ #ifndef SBCL_HOME
+-#define SBCL_HOME "/usr/local/lib/sbcl/"
++#define SBCL_HOME "/usr/lib/sbcl/"
+ #endif
+
+
diff --git a/dev-lisp/sbcl/files/0.9.11/sbcl.sh b/dev-lisp/sbcl/files/0.9.11/sbcl.sh
new file mode 100644
index 000000000000..6693bd9b4e8b
--- /dev/null
+++ b/dev-lisp/sbcl/files/0.9.11/sbcl.sh
@@ -0,0 +1,65 @@
+#!/bin/sh
+
+# This file is originally from the Debian project patch to SBCL
+# upstream. It has been modified by the Gentoo project to NOT use
+# /etc/sbcl.rc which has been confusing because SBCL docs refer
+# /etc/sbclrc.
+
+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
+ install-clc)
+ echo $0 loading and dumping clc.
+ ( cd /usr/lib/sbcl
+ /usr/bin/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-clc)
+ echo $0 removing clc-enabled image
+ cp /usr/lib/sbcl/sbcl-dist.core /usr/lib/sbcl/sbcl.core
+ ;;
+ rebuild)
+ echo $0 rebuilding...
+ shift
+ echo rebuilding $1
+ /usr/bin/sbcl --noinform --sysinit /etc/sbclrc --userinit /dev/null \
+ --disable-debugger \
+ --eval \
+"(handler-case
+ (progn
+ (asdf:operate 'asdf:compile-op (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 "/var/cache/common-lisp-controller/*/sbcl/${1}"
+ shift
+ done
+ ;;
+ *)
+ echo $0 unkown command $1
+ echo known commands: rebuild, remove, install-clc, and remove-clc
+ exit 1
+ ;;
+esac
+
+exit 0 \ No newline at end of file
diff --git a/dev-lisp/sbcl/files/0.9.11/sbclrc b/dev-lisp/sbcl/files/0.9.11/sbclrc
new file mode 100644
index 000000000000..bd0ab76b6adf
--- /dev/null
+++ b/dev-lisp/sbcl/files/0.9.11/sbclrc
@@ -0,0 +1,16 @@
+;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CL-USER -*-
+
+;;; This file is installed as /etc/sbclrc 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/**/*.*")))