Update of /project/beirc/cvsroot/beirc In directory clnet:/tmp/cvs-serv2592

Modified Files: presentations.lisp Log Message: Remove typo that prevented presentations.lisp from compiling.

--- /project/beirc/cvsroot/beirc/presentations.lisp 2006/03/21 22:45:03 1.12 +++ /project/beirc/cvsroot/beirc/presentations.lisp 2006/03/22 00:31:14 1.13 @@ -69,12 +69,12 @@ ;; argument must be terminated by hitting RET twice. ugh. (define-presentation-method accept ((type mumble) *standard-input* (view textual-view) &key) (with-delimiter-gestures (nil :override t) - . (let ((*completion-gestures* '(#\Tab))) - (nth-value 2 - (complete-input *standard-input* 'nickname-completer - #+(or):possibility-printer #+(or) 'nickname-competion-printer - :allow-any-input t - :partial-completers '()))))) + (let ((*completion-gestures* '(#\Tab))) + (nth-value 2 + (complete-input *standard-input* 'nickname-completer + #+(or):possibility-printer #+(or) 'nickname-competion-printer + :allow-any-input t + :partial-completers '())))))

;;; nicknames