Use cl:find-package in define-normalize-and-forward-package-methods macro.

Pascal J. Bourguignon [2015-11-02 10:30]
Use cl:find-package in define-normalize-and-forward-package-methods macro.
Filename
common-lisp/lisp/relative-package.lisp
diff --git a/common-lisp/lisp/relative-package.lisp b/common-lisp/lisp/relative-package.lisp
index b0979ef..0949673 100644
--- a/common-lisp/lisp/relative-package.lisp
+++ b/common-lisp/lisp/relative-package.lisp
@@ -320,7 +320,7 @@ NOTE:   The current implementation uses a prefix filter on the name of
       designator))

 (defmacro define-normalize-and-forward-package-methods (name &key (type-error nil))
-  (let ((cl-name (cl:intern (string name) (load-time-value (find-package "COMMON-LISP")))))
+  (let ((cl-name (cl:intern (string name) (load-time-value (cl:find-package "COMMON-LISP")))))
     `(progn
        ,@ (if type-error
               `((defmethod ,name ((name t))  (error 'simple-type-error
ViewGit