diff options
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")) |