0.6.8: tweaked SXHASH DEFTRANSFORMs, fixed HANDLER-BIND

[sbcl.git] / src / code / filesys.lisp

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index c50b579..744eeaf 100644 (file)
--- 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$")
 \f
 ;;;; 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)