X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffilesys.lisp;h=744eeaf26ecb7c8a0358f252d847a0629234535c;hb=6973177fbe23d007655345c1fe2e0d6a5e397aa5;hp=c50b579cb848f06ab499eccf699fd464d8f87c4f;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index c50b579..744eeaf 100644
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -10,9 +10,6 @@
 ;;;; files for more information.
 
 (in-package "SB!IMPL")
-
-(file-comment
-  "$Header$")
 
 ;;;; Unix pathname host support
 
@@ -567,10 +564,6 @@
 				   function))))
       (%enumerate-files head pathname verify-existence function)))
 
-;;; REMOVEME after finding bug.
-#!+sb-show (defvar *show-directory*)
-#!+sb-show (defvar *show-name*)
-
 (defun %enumerate-files (directory pathname verify-existence function)
   (declare (simple-string directory))
   (/show0 "entering %ENUMERATE-FILES")
@@ -614,13 +607,6 @@
 		 (sb!unix:close-dir dir)))))
 	  (t
 	   (/show0 "default case")
-	   
-	   ;; Put DIRECTORY and NAME somewhere we can find them even when
-	   ;; things are too screwed up for the debugger.
-	   #!+sb-show (progn
-			(setf *show-directory* directory
-			      *show-name* name))
-
 	   (let ((file (concatenate 'string directory name)))
 	     (/show0 "computed basic FILE=..")
 	     #!+sb-show (%primitive print file)