# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1727140948 14400
# Node ID 1f065ead57ca73a224cc5d93aa2258d99b140cdf
# Parent  6856c021d084116b1dc7d3b13f1d58c5ed99144c
removed use of internal 'describe-block'

diff -r 6856c021d084 -r 1f065ead57ca lisp/lib/doc/package.lisp
--- a/lisp/lib/doc/package.lisp	Mon Sep 23 21:14:10 2024 -0400
+++ b/lisp/lib/doc/package.lisp	Mon Sep 23 21:22:28 2024 -0400
@@ -71,16 +71,15 @@
 (defmethod describe-object ((self package-documentation) stream)
   (with-slots (package files symbols) self
     (print-standard-describe-header self stream)
-    (describe-block (stream)
-      (describe package stream)
-      (format stream "~%Files: ~S"
-              (loop for f across files
-                    collect (doc-path f)))
-      (format stream "~%Symbol Docs: ")
-      (pprint-tabular
-       stream 
-       (loop for s across symbols
-             collect (doc-symbol s))))))
+    (describe package stream)
+    (format stream "~%Files: ~S"
+            (loop for f across files
+                  collect (doc-path f)))
+    (format stream "~%Symbol Docs: ")
+    (pprint-tabular
+     stream 
+     (loop for s across symbols
+           collect (doc-symbol s)))))
 
 ;; (sb-introspect:allocation-information (make-instance 'package-documentation))
 ;; sb-introspect:definition-source
diff -r 6856c021d084 -r 1f065ead57ca lisp/lib/doc/pkg.lisp
--- a/lisp/lib/doc/pkg.lisp	Mon Sep 23 21:14:10 2024 -0400
+++ b/lisp/lib/doc/pkg.lisp	Mon Sep 23 21:22:28 2024 -0400
@@ -46,7 +46,7 @@
   (:import-from :sb-kernel :symbol-package-id)
   (:import-from :sb-ext :restrict-compiler-policy)
   (:import-from :ql-dist :dist :find-dist :provided-systems :installed-systems)
-  (:import-from :sb-impl :describe-block :print-standard-describe-header :describe-object)
+  (:import-from :sb-impl :print-standard-describe-header :describe-object)
   (:import-from :sb-int :condition)
   (:import-from :sb-alien :alien-type-p)
   (:export
diff -r 6856c021d084 -r 1f065ead57ca lisp/lib/doc/symbol.lisp
--- a/lisp/lib/doc/symbol.lisp	Mon Sep 23 21:14:10 2024 -0400
+++ b/lisp/lib/doc/symbol.lisp	Mon Sep 23 21:22:28 2024 -0400
@@ -136,9 +136,8 @@
 (defmethod describe-object ((self symbol-documentation) stream)
   (with-slots (symbol id definitions specs alloc) self
     (print-standard-describe-header self stream)
-    (describe-block (stream)
-      (describe symbol stream)
-      (format stream "~%Alloc Info: ~S" alloc)
-      (format stream "~%Definitions: ~%")
-      (loop for s in specs
-            do (format stream "  ~S ~S~%" s (definition-source-pathname (pop definitions)))))))
+    (describe symbol stream)
+    (format stream "~%Alloc Info: ~S" alloc)
+    (format stream "~%Definitions: ~%")
+    (loop for s in specs
+          do (format stream "  ~S ~S~%" s (definition-source-pathname (pop definitions))))))