Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv9627
Modified Files: toplevel.lisp Log Message: Minor edit.
Date: Thu Mar 25 20:46:47 2004 Author: ffjeld
Index: movitz/losp/lib/toplevel.lisp diff -u movitz/losp/lib/toplevel.lisp:1.4 movitz/losp/lib/toplevel.lisp:1.5 --- movitz/losp/lib/toplevel.lisp:1.4 Fri Feb 13 17:11:24 2004 +++ movitz/losp/lib/toplevel.lisp Thu Mar 25 20:46:47 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Thu Sep 5 15:56:26 2002 ;;;; -;;;; $Id: toplevel.lisp,v 1.4 2004/02/13 22:11:24 ffjeld Exp $ +;;;; $Id: toplevel.lisp,v 1.5 2004/03/26 01:46:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -43,10 +43,10 @@ (apply f arguments) (multiple-value-bind (completion completion-count) (muerte.readline:complete-symbol-name (string name) - :package :keyword - :filter-matches (lambda (x) - (and (gethash x *toplevel-commands*) - t))) + :package :keyword + :filter-matches (lambda (x) + (and (gethash x *toplevel-commands*) + t))) (case completion-count (0 (format t "~&No toplevel command named ~S." name) name)