0.pre7.86.flaky7.13:

	restored *PRINT-PRETTY* default

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 0bf080f..d39885a 100644 (file)
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -632,10 +632,6 @@ reset to ~S."
            (*print-pretty* t)
            (*package* original-package))
 
-       ;; REMOVEME (In the flaky7 branch, I've been having 
-       ;; problems with the pretty printer...)
-       (setf *print-pretty* nil)
-
        ;; Before we start our own output, finish any pending output.
        ;; Otherwise, if the user tried to track the progress of
        ;; his program using PRINT statements, he'd tend to lose

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index b5e3b7c..d7220eb 100644 (file)
--- a/src/code/interr.lisp
+++ b/src/code/interr.lisp
@@ -459,6 +459,7 @@
        (/hexstr arguments)
 
        ;; REMOVEME
+       #|
        (/show0 "cold/low (LENGTH ARGUMENTS)=..")
        (/hexstr (length arguments))
        (dolist (argument arguments)
@@ -476,6 +477,7 @@
                      (/primitive-print "Argument type is a LIST."))
                     (t
                      (/primitive-print "Argument type is not a SYMBOL or LIST."))))))
+       |#
 
        (multiple-value-bind (name sb!debug:*stack-top-hint*)
           (find-interrupted-name)

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index e8097e3..41fd568 100644 (file)
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -481,11 +481,6 @@
 
 (defun repl (noprint)
   (/show0 "entering REPL")
-
-
-  ;; REMOVEME after debugging
-  (setf *print-pretty* nil)
-
   (let ((eof-marker (cons :eof nil)))
     (loop
      ;; FIXME: It seems bad to have GC behavior depend on scrubbing the

diff --git a/version.lisp-expr b/version.lisp-expr
index 858e47b..f472814 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.pre7.86.flaky7.11"
+"0.pre7.86.flaky7.13"