Commit ed0f4d5e authored by Eric Timmons's avatar Eric Timmons Committed by Francois-Rene Rideau

Evaluate sb-c:source-location after macroexpansion

Tested on SBCL 1.4.4. If sb-c:source-location is evaluated during macro
expansion, then the source location will always point to asdf.lisp (inside the
define-package macro). If it is evaluated after macro expansion, it points to
the right place.
parent 53f72684
...@@ -735,7 +735,7 @@ UNINTERN -- Remove symbols here from PACKAGE." ...@@ -735,7 +735,7 @@ UNINTERN -- Remove symbols here from PACKAGE."
`(prog1 `(prog1
(apply 'ensure-package ',(parse-define-package-form package clauses)) (apply 'ensure-package ',(parse-define-package-form package clauses))
#+sbcl (setf (sb-impl::package-source-location (find-package ',package)) #+sbcl (setf (sb-impl::package-source-location (find-package ',package))
,(sb-c:source-location))))) (sb-c:source-location)))))
`(progn `(progn
#+(or clasp ecl gcl mkcl) (defpackage ,package (:use)) #+(or clasp ecl gcl mkcl) (defpackage ,package (:use))
(eval-when (:compile-toplevel :load-toplevel :execute) (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