[gsharp-cvs] CVS update: gsharp/gui.lisp

[Christophe Rhodes]

Update of /project/gsharp/cvsroot/gsharp
In directory common-lisp.net:/tmp/cvs-serv1888

Modified Files:
	gui.lisp 
Log Message:
allow gsharp to compile under non-cmucl.  Since this code is probably 
going to be removed anyway, we can bypass best practice restrictions
from <http://www-jcsu.jesus.cam.ac.uk/~csr21/papers/features.pdf>.

Date: Fri Jul 16 06:21:47 2004
Author: crhodes

Index: gsharp/gui.lisp
diff -u gsharp/gui.lisp:1.9 gsharp/gui.lisp:1.10
--- gsharp/gui.lisp:1.9	Wed Jul 14 11:07:33 2004
+++ gsharp/gui.lisp	Fri Jul 16 06:21:47 2004
@@ -327,7 +327,9 @@
       (complete-input stream
 		      (lambda (so-far mode)
 			(complete-from-possibilities
-			 so-far (ext:ambiguous-files so-far) '()
+			 so-far
+			 #+cmu (ext:ambiguous-files so-far) #-cmu
+			 '()
 			 :action mode
 			 :predicate (lambda (obj) (declare (ignore obj)) t)
 			 :name-key #'namestring