1.0.4.37: Delete some dead code in pack.lisp

[sbcl.git] / src / code / package.lisp

diff --git a/src/code/package.lisp b/src/code/package.lisp
index c636fdd..e8aeb85 100644 (file)
--- a/src/code/package.lisp
+++ b/src/code/package.lisp
@@ -104,7 +104,9 @@
   #!+sb-package-locks
   (lock nil :type boolean)
   #!+sb-package-locks
-  (%implementation-packages nil :type list))
+  (%implementation-packages nil :type list)
+  ;; Definition source location
+  (source-location nil :type (or null sb!c:definition-source-location)))
 \f
 ;;;; iteration macros
 
@@ -234,7 +236,7 @@
                                        (or (find-package package)
                                            (error 'simple-package-error
                                                   ;; could be a character
-                                                  :name (string package)
+                                                  :package (string package)
                                                   :format-control "~@<~S does not name a package ~:>"
                                                   :format-arguments (list package)))))
                                  (if (consp ,these-packages)