From: William Harold Newman <william.newman@airmail.net>
Date: Mon, 26 Nov 2001 21:31:40 +0000 (+0000)
Subject: 0.pre7.86.flaky7.13:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9ecb6b7686011c587bd0bf1b40a34c29338d89f3;p=sbcl.git

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
--- 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
--- 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
--- 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
--- 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"