Commit 8281e011 by Francois-Rene Rideau

Add package location information on SBCL

Enhance define-package so SBCL can locate the source-location of the package.
parent cdb843e8
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment