(sb-ext:set-sbcl-source-location
 (merge-pathnames (make-pathname :directory '(:relative "sbcl-source")
                                 :defaults #1=(user-homedir-pathname))
                  #1#))

;; (sb-ext:set-sbcl-source-location
;;   (merge-pathnames (make-pathname :directory '(:relative "sbcl-source")
;;                                   :defaults #1=(user-homedir-pathname))
;;                    #1#))