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

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index c50b579..f48f9cb 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)
@@ -993,13 +979,11 @@
 
 (/show0 "filesys.lisp 934")
 
-(defun !filesys-cold-init ()
-  (/show0 "entering !FILESYS-COLD-INIT")
-  (setf *default-pathname-defaults*
-	(%make-pathname *unix-host* nil nil nil nil :newest))
-  (setf (search-list "default:") (default-directory))
-  (/show0 "leaving !FILESYS-COLD-INIT")
-  nil)
+(/show0 "entering what used to be !FILESYS-COLD-INIT")
+(defvar *default-pathname-defaults*
+  (%make-pathname *unix-host* nil nil nil nil :newest))
+(setf (search-list "default:") (default-directory))
+(/show0 "leaving what used to be !FILESYS-COLD-INIT")
 
 (defun ensure-directories-exist (pathspec &key verbose (mode #o777))
   #!+sb-doc