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