X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fstale-symbols.lisp;h=02823d43eeeaae4cf43cc1bd1f77c5199c516169;hb=32c8edbd49ca77907154987e28e8d3f81f61dabc;hp=7d77e4420fc268280d58fb79158e01cc06cb08d6;hpb=4c203717bcb22364be4fd195b54374e9e43fcc00;p=sbcl.git

diff --git a/contrib/stale-symbols.lisp b/contrib/stale-symbols.lisp
index 7d77e44..02823d4 100644
--- a/contrib/stale-symbols.lisp
+++ b/contrib/stale-symbols.lisp
@@ -38,7 +38,7 @@
 ;;; are displayed, but are not stale. It displays the names of
 ;;; restarts. Worse, it displays the names of CMUCL-internal constants.
 ;;; These symbols that name constants are not referenced from anywhere
-;;; expect the package datastructures because the compiler can
+;;; except the package datastructures because the compiler can
 ;;; substitute their value wherever they're used in the CMUCL source
 ;;; code, without keeping a reference to the symbol hanging around.
 ;;; There are also a number of PCL-related symbols that are displayed,
@@ -50,9 +50,9 @@
 (defun print-stale-reference (obj stream)
   (cond ((vectorp obj)
          (format stream "vector (probable package internals)"))
-        ((sb-c::compiled-debug-function-p obj)
-         (format stream "#<compiled-debug-function ~a>"
-                 (sb-c::compiled-debug-function-name obj)))
+        ((sb-c::compiled-debug-fun-p obj)
+         (format stream "#<compiled-debug-fun ~a>"
+                 (sb-c::compiled-debug-fun-name obj)))
         (t
          (format stream "~w" obj))))
 
@@ -71,7 +71,8 @@
                             (length static-space-refs)
                             (length dynamic-space-refs)))
                (format t "Symbol ~a::~a~%"
-                       (and (symbol-package obj) (package-name (symbol-package obj)))
+                       (and (symbol-package obj)
+			    (package-name (symbol-package obj)))
                        (symbol-name obj))
                (unless (null read-only-space-refs)
                  (princ "   Reference in read-only space: ")