From 3b7bcf8ff3727a7f68102f7458805d1bebee5e78 Mon Sep 17 00:00:00 2001
From: William Harold Newman <william.newman@airmail.net>
Date: Tue, 4 Dec 2001 22:33:31 +0000
Subject: [PATCH] 0.pre7.86.flaky7.21: 	removed REMOVEME stuff

---
 src/code/interr.lisp   |   21 ---------------------
 src/code/toplevel.lisp |    4 ----
 version.lisp-expr      |    2 +-
 3 files changed, 1 insertion(+), 26 deletions(-)

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index d7220eb..18e5ae3 100644
--- 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
--- 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
--- 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"
-- 
1.7.10.4