[climacs-devel] Re: Pathnames and cl-fad

[John Q Splittist]

John Q Splittist wrote:
> Anywho, a diff is attached. Not tested on all the lisps listed.

And complete rubbish it is, being the product of an earlier cut-n-paste. 
Sorry about that. Try this one.

JQS

--- gui.lisp.~1.128.~	Sat Mar 19 22:08:31 2005
+++ gui.lisp	Tue May  3 19:43:44 2005
@@ -621,9 +625,15 @@
  	   (full-so-far (concatenate 'string directory-prefix so-far))
  	   (pathnames
  	    (loop with length = (length full-so-far)
-		  for path in (directory (concatenate 'string
-						       (remove-trail 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)))
  		    collect path))