sbcl-run-program-fix/fix-source-path.lisp

   1 (in-package "COMMON-LISP-USER")
   2
   3 (let* ((parent (make-pathname :directory '(:absolute "usr" "share" "sbcl-source")))
   4        (src
   5         (merge-pathnames
   6          (make-pathname :directory '(:relative "src" :wild-inferiors)
   7                         :name :wild :type :wild)
   8          parent))
   9          (contrib
  10           (merge-pathnames
  11            (make-pathname :directory '(:relative "contrib" :wild-inferiors)
  12                           :name :wild :type :wild)
  13            parent)))
  14   (setf (logical-pathname-translations "SYS")
  15         `(("SYS:SRC;**;*.*.*" ,src)
  16           ("SYS:CONTRIB;**;*.*.*" ,contrib))))
  17
  18 (ignore-errors
  19  (sb-ext:gc :full t)
  20  (sb-ext:save-lisp-and-die "sbcl-new.core"))
  21
  22