Commit e3e985d0 authored by Robert Goldman's avatar Robert Goldman
Browse files

Merge branch 'package-location' into 'master'

Add package location information on SBCL

See merge request !90
parents cd68bc39 8281e011
Loading
Loading
Loading
Loading
+4 −1
Original line number Diff line number Diff line
@@ -732,7 +732,10 @@ export symbols with the same name as those exported from p. Note that in the ca
of shadowing, etc. the symbols with the same name may not be the same symbols.
UNINTERN -- Remove symbols here from PACKAGE."
  (let ((ensure-form
          `(apply 'ensure-package ',(parse-define-package-form package clauses))))
         `(prog1
              (apply 'ensure-package ',(parse-define-package-form package clauses))
            #+sbcl (setf (sb-impl::package-source-location (find-package ',package))
                         ,(sb-c:source-location)))))
    `(progn
       #+(or clasp ecl gcl mkcl) (defpackage ,package (:use))
       (eval-when (:compile-toplevel :load-toplevel :execute)