0.7.2.15:

	tweaks to make DESCRIBE prettier...
	...used PPRINT-NEWLINE instead of FRESH-LINE, since mixing
		physical FRESH-LINE with pretty-printing operations
		leads to weird ugliness
	...deleted unused *DESCRIBE-INDENTATION-STEP*
	tweaks to make the debugger prettier...
	...replaced output in the style
		#<SB-DEBUG::UNPRINTABLE-OBJECT unavailable argument>
		with output in the style #<unavailable argument>, since
		I now realize that although following the #<TYPE ...>
		style of output is a good general rule, it's not as
		important as conciseness in placeholder values that
		no one but a crazed guru will ever want to look at
		anyway

diff --git a/BUGS b/BUGS
index fc6d731..7be13df 100644 (file)
--- a/BUGS
+++ b/BUGS
@@ -1312,6 +1312,7 @@ WORKAROUND:
   FBOUNDP)) raises an error when it should return NIL.
 
 162:
+  (reported by Robert E. Brown 2002-04-16) 
   When a function is called with too few arguments, causing the
   debugger to be entered, the uninitialized slots in the bad call frame 
   seem to cause GCish problems, being interpreted as tagged data even
@@ -1326,7 +1327,9 @@ WORKAROUND:
     0] (room)
     ...
     failed AVER: "(SAP= CURRENT END)"
-  (reported by Robert E. Brown 2002-04-16)
+  (Christophe Rhodes reports that this doesn't occur on the SPARC, which
+  isn't too surprising since there are many differences in stack
+  implementation and GC conservatism between the X86 and other ports.)
 
 DEFUNCT CATEGORIES OF BUGS
   IR1-#:

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 2d3f93d..5ee2e99 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -518,9 +518,6 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
              ;; hairy compiles.
              "*COMPILE-PROGRESS*"
 
-             ;; There is no one right way to do DESCRIBE.
-             "*DESCRIBE-INDENTATION-STEP*"
-
              ;; It can be handy to be able to evaluate expressions involving
              ;; the thing under examination by CL:INSPECT.
              "*INSPECTED*"

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 237583f..4943a51 100644 (file)
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -492,12 +492,11 @@ Function and macro commands:
 ) ; EVAL-WHEN
 
 ;;; This is used in constructing arg lists for debugger printing when
-;;; the arg list is unavailable, some arg is unavailable or unused,
-;;; etc.
+;;; the arg list is unavailable, some arg is unavailable or unused, etc.
 (defstruct (unprintable-object
            (:constructor make-unprintable-object (string))
            (:print-object (lambda (x s)
-                            (print-unreadable-object (x s :type t)
+                            (print-unreadable-object (x s)
                               (write-string (unprintable-object-string x)
                                             s))))
            (:copier nil))

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index 814a1b9..7ea642d 100644 (file)
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -12,10 +12,6 @@
 
 (in-package "SB-IMPL") ;(SB-IMPL, not SB!IMPL, since we're built in warm load.)
 \f
-(defvar *describe-indentation-step* 3
-  #+sb-doc
-  "the number of spaces that sets off each line of a recursive description")
-
 (declaim (ftype (function (t stream)) describe-object))
 (defgeneric describe-object ((x t) stream))
 
@@ -24,9 +20,9 @@
   "Print a description of the object X."
   (let ((stream (out-synonym-of stream-designator)))
     (pprint-logical-block (stream nil)
-      (fresh-line stream)
+      (pprint-newline :mandatory stream)
       (describe-object x stream)
-      (fresh-line stream)))
+      (pprint-newline :mandatory stream)))
   (values))
 \f
 ;;;; miscellaneous DESCRIBE-OBJECT methods

diff --git a/version.lisp-expr b/version.lisp-expr
index 0cd9fb3..ff4289f 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; for internal versions, especially for internal versions off the
 ;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.7.2.14"
+"0.7.2.15"