Index: file-commands.lisp
===================================================================
RCS file: /project/climacs/cvsroot/climacs/file-commands.lisp,v
retrieving revision 1.3
diff -c -r1.3 file-commands.lisp
*** file-commands.lisp	3 Mar 2006 19:38:57 -0000	1.3
--- file-commands.lisp	14 Mar 2006 03:00:51 -0000
***************
*** 36,54 ****
  	    (if (and (plusp (length so-far)) (eql (aref so-far 0) #\/))
  		""
  		(namestring #+sbcl *default-pathname-defaults*
!                             #+cmu (ext:default-directory)
!                             #-(or sbcl cmu) *default-pathname-defaults*)))
  	   (full-so-far (concatenate 'string directory-prefix so-far))
  	   (pathnames
  	    (loop with length = (length full-so-far)
  		  and wildcard = (concatenate 'string (remove-trail so-far) "*.*")
  		  for path in
! 		  #+(or sbcl cmu lispworks) (directory wildcard)
  		  #+openmcl (directory wildcard :directories t)
  		  #+allegro (directory wildcard :directories-are-files nil)
  		  #+cormanlisp (nconc (directory wildcard)
  				      (cl::directory-subdirs dirname))
! 		  #-(or sbcl cmu lispworks openmcl allegro cormanlisp)
  		    (directory wildcard)
  		  when (let ((mismatch (mismatch (namestring path) full-so-far)))
  			 (or (null mismatch) (= mismatch length)))
--- 36,54 ----
  	    (if (and (plusp (length so-far)) (eql (aref so-far 0) #\/))
  		""
  		(namestring #+sbcl *default-pathname-defaults*
!                             #+(or cmu scl) (ext:default-directory)
!                             #-(or sbcl cmu scl) *default-pathname-defaults*)))
  	   (full-so-far (concatenate 'string directory-prefix so-far))
  	   (pathnames
  	    (loop with length = (length full-so-far)
  		  and wildcard = (concatenate 'string (remove-trail so-far) "*.*")
  		  for path in
! 		  #+(or sbcl cmu scl lispworks) (directory wildcard)
  		  #+openmcl (directory wildcard :directories t)
  		  #+allegro (directory wildcard :directories-are-files nil)
  		  #+cormanlisp (nconc (directory wildcard)
  				      (cl::directory-subdirs dirname))
! 		  #-(or sbcl cmu scl lispworks openmcl allegro cormanlisp)
  		    (directory wildcard)
  		  when (let ((mismatch (mismatch (namestring path) full-so-far)))
  			 (or (null mismatch) (= mismatch length)))

