0.pre7.86.flaky7.21:

	removed REMOVEME stuff

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index d7220eb..18e5ae3 100644 (file)
--- a/src/code/interr.lisp
+++ b/src/code/interr.lisp
@@ -458,27 +458,6 @@
        (/show0 "cold/low ARGUMENTS=..")
        (/hexstr arguments)
 
-       ;; REMOVEME
-       #|
-       (/show0 "cold/low (LENGTH ARGUMENTS)=..")
-       (/hexstr (length arguments))
-       (dolist (argument arguments)
-        (/show0 "cold/low ARGUMENT=..")
-        (/hexstr argument)
-        (if (symbolp argument)
-            (progn
-              (/show0 "Argument is a SYMBOL..")
-              (/primitive-print (symbol-name argument)))
-            (let ((argument-type (type-of argument)))
-              (cond ((symbolp argument-type)
-                     (/show0 "Argument type is a SYMBOL..")
-                     (/primitive-print (symbol-name argument-type)))
-                    ((listp argument-type)
-                     (/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)
         (/show0 "back from FIND-INTERRUPTED-NAME")

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index 41fd568..cd9463c 100644 (file)
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -386,10 +386,6 @@
           ;; return its truename.
           (probe-init-files (&rest possible-init-file-names)
             (/show0 "entering PROBE-INIT-FILES")
-
-            ;; REMOVEME: commented out while compiler has problems
-            #+nil
-
             (prog1
                 (find-if (lambda (x)
                            (and (stringp x) (probe-file x)))

diff --git a/version.lisp-expr b/version.lisp-expr
index 6ff8fba..87437f6 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.20"
+"0.pre7.86.flaky7.21"