0.8.8.25:

[sbcl.git] / contrib / stale-symbols.lisp

diff --git a/contrib/stale-symbols.lisp b/contrib/stale-symbols.lisp
index 7d77e44..02823d4 100644 (file)
--- 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: ")