1.1--- a/lisp/lib/doc/package.lisp	Mon Sep 23 21:14:10 2024 -0400
     1.2+++ b/lisp/lib/doc/package.lisp	Mon Sep 23 21:22:28 2024 -0400
     1.3@@ -71,16 +71,15 @@
     1.4 (defmethod describe-object ((self package-documentation) stream)
     1.5   (with-slots (package files symbols) self
     1.6     (print-standard-describe-header self stream)
     1.7-    (describe-block (stream)
     1.8-      (describe package stream)
     1.9-      (format stream "~%Files: ~S"
    1.10-              (loop for f across files
    1.11-                    collect (doc-path f)))
    1.12-      (format stream "~%Symbol Docs: ")
    1.13-      (pprint-tabular
    1.14-       stream 
    1.15-       (loop for s across symbols
    1.16-             collect (doc-symbol s))))))
    1.17+    (describe package stream)
    1.18+    (format stream "~%Files: ~S"
    1.19+            (loop for f across files
    1.20+                  collect (doc-path f)))
    1.21+    (format stream "~%Symbol Docs: ")
    1.22+    (pprint-tabular
    1.23+     stream 
    1.24+     (loop for s across symbols
    1.25+           collect (doc-symbol s)))))
    1.26 
    1.27 ;; (sb-introspect:allocation-information (make-instance 'package-documentation))
    1.28 ;; sb-introspect:definition-source

     2.1--- a/lisp/lib/doc/pkg.lisp	Mon Sep 23 21:14:10 2024 -0400
     2.2+++ b/lisp/lib/doc/pkg.lisp	Mon Sep 23 21:22:28 2024 -0400
     2.3@@ -46,7 +46,7 @@
     2.4   (:import-from :sb-kernel :symbol-package-id)
     2.5   (:import-from :sb-ext :restrict-compiler-policy)
     2.6   (:import-from :ql-dist :dist :find-dist :provided-systems :installed-systems)
     2.7-  (:import-from :sb-impl :describe-block :print-standard-describe-header :describe-object)
     2.8+  (:import-from :sb-impl :print-standard-describe-header :describe-object)
     2.9   (:import-from :sb-int :condition)
    2.10   (:import-from :sb-alien :alien-type-p)
    2.11   (:export

     3.1--- a/lisp/lib/doc/symbol.lisp	Mon Sep 23 21:14:10 2024 -0400
     3.2+++ b/lisp/lib/doc/symbol.lisp	Mon Sep 23 21:22:28 2024 -0400
     3.3@@ -136,9 +136,8 @@
     3.4 (defmethod describe-object ((self symbol-documentation) stream)
     3.5   (with-slots (symbol id definitions specs alloc) self
     3.6     (print-standard-describe-header self stream)
     3.7-    (describe-block (stream)
     3.8-      (describe symbol stream)
     3.9-      (format stream "~%Alloc Info: ~S" alloc)
    3.10-      (format stream "~%Definitions: ~%")
    3.11-      (loop for s in specs
    3.12-            do (format stream "  ~S ~S~%" s (definition-source-pathname (pop definitions)))))))
    3.13+    (describe symbol stream)
    3.14+    (format stream "~%Alloc Info: ~S" alloc)
    3.15+    (format stream "~%Definitions: ~%")
    3.16+    (loop for s in specs
    3.17+          do (format stream "  ~S ~S~%" s (definition-source-pathname (pop definitions))))))