blob: bdc631331f0ae8aa914684abe4935c0c9d44c4f1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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"))
|
