From 13608297c67fc905f630e9b142d3915d0eec5d6a Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sun, 1 Dec 2013 14:09:53 +0100
Subject: Add sbcl

---
 sbcl/arch-fixes.lisp | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 sbcl/arch-fixes.lisp

(limited to 'sbcl/arch-fixes.lisp')

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"))
-- 
cgit v1.2.3-54-g00ecf