From 8281e0119afbcb1ead5956e18d76e2bcbd3e2aef Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau Date: Sun, 17 Dec 2017 16:55:44 -0500 Subject: [PATCH] Add package location information on SBCL Enhance define-package so SBCL can locate the source-location of the package. --- uiop/package.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/uiop/package.lisp b/uiop/package.lisp index f4eecead..4a6d38e1 100644 --- a/uiop/package.lisp +++ b/uiop/package.lisp @@ -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) -- GitLab