diff options
author | Tom Willemse | 2013-12-01 14:09:53 +0100 |
---|---|---|
committer | Tom Willemse | 2013-12-01 14:09:53 +0100 |
commit | 13608297c67fc905f630e9b142d3915d0eec5d6a (patch) | |
tree | 456edd769456271df506c9672cf8e1706592a92b /sbcl/arch-fixes.lisp | |
parent | c8adcf31fbe7c01c367259d3f284d41c4e066233 (diff) | |
download | pkgbuilds-13608297c67fc905f630e9b142d3915d0eec5d6a.tar.gz pkgbuilds-13608297c67fc905f630e9b142d3915d0eec5d6a.zip |
Add sbcl
Diffstat (limited to 'sbcl/arch-fixes.lisp')
-rw-r--r-- | sbcl/arch-fixes.lisp | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/sbcl/arch-fixes.lisp b/sbcl/arch-fixes.lisp new file mode 100644 index 0000000..bdc6313 --- /dev/null +++ b/sbcl/arch-fixes.lisp @@ -0,0 +1,21 @@ +(in-package "COMMON-LISP-USER") + +(let* ((parent (make-pathname :directory '(:absolute "usr" "share" "sbcl-source"))) + (src + (merge-pathnames + (make-pathname :directory '(:relative "src" :wild-inferiors) + :name :wild :type :wild) + parent)) + (contrib + (merge-pathnames + (make-pathname :directory '(:relative "contrib" :wild-inferiors) + :name :wild :type :wild) + parent))) + (setf (logical-pathname-translations "SYS") + `(("SYS:SRC;**;*.*.*" ,src) + ("SYS:CONTRIB;**;*.*.*" ,contrib)))) + +(ignore-errors + (sb-ext:gc :full t) + (sb-ext:enable-debugger) + (sb-ext:save-lisp-and-die "sbcl-new.core")) |