projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
;;;; Unix pathname host support
\f
;;;; Unix pathname host support
@@
-567,10
+564,6
@@
function))))
(%enumerate-files head pathname verify-existence function)))
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")
(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")
(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)
(let ((file (concatenate 'string directory name)))
(/show0 "computed basic FILE=..")
#!+sb-show (%primitive print file)