diff options
Diffstat (limited to 'dev-lisp/sbcl/files/0.9.11')
-rw-r--r-- | dev-lisp/sbcl/files/0.9.11/README.Gentoo | 30 | ||||
-rw-r--r-- | dev-lisp/sbcl/files/0.9.11/customize-target-features.lisp-prefix | 5 | ||||
-rw-r--r-- | dev-lisp/sbcl/files/0.9.11/customize-target-features.lisp-suffix | 2 | ||||
-rw-r--r-- | dev-lisp/sbcl/files/0.9.11/install-clc.lisp | 37 | ||||
-rw-r--r-- | dev-lisp/sbcl/files/0.9.11/sbcl-gentoo.patch | 68 | ||||
-rw-r--r-- | dev-lisp/sbcl/files/0.9.11/sbcl.sh | 65 | ||||
-rw-r--r-- | dev-lisp/sbcl/files/0.9.11/sbclrc | 16 |
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/**/*.*"))) |