X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdescribe.lisp;h=d9a4e2b5e1cae396b969d521338d86c23b2c61cf;hb=4cf50b1896b25f5337e7c258b0b560da00d47993;hp=00dd3464373a862f58a8ecb99770fd69b3203721;hpb=39ecf3129db04ecf861c08459b6f5353bfc266c9;p=sbcl.git

diff --git a/src/pcl/describe.lisp b/src/pcl/describe.lisp
index 00dd346..d9a4e2b 100644
--- a/src/pcl/describe.lisp
+++ b/src/pcl/describe.lisp
@@ -26,6 +26,8 @@
 
 (in-package "SB-PCL")
 
+(declaim #.*optimize-byte-compilation*)
+
 (defmethod slots-to-inspect ((class slot-class) (object slot-object))
   (class-slots class))
 
@@ -129,12 +131,12 @@
     (format stream
 	    "~@[~&It has nicknames ~{~:_~S~^ ~}~]"
 	    (package-nicknames package))
-    (let* ((internal (sb-impl::package-internal-symbols package))
-	   (internal-count (- (sb-impl::package-hashtable-size internal)
-			      (sb-impl::package-hashtable-free internal)))
-	   (external (sb-impl::package-external-symbols package))
-	   (external-count (- (sb-impl::package-hashtable-size external)
-			      (sb-impl::package-hashtable-free external))))
+    (let* ((internal (package-internal-symbols package))
+	   (internal-count (- (package-hashtable-size internal)
+			      (package-hashtable-free internal)))
+	   (external (package-external-symbols package))
+	   (external-count (- (package-hashtable-size external)
+			      (package-hashtable-free external))))
       (format stream
 	      "~&It has ~S internal and ~S external symbols."
 	      internal-count external-count))