[beirc-cvs] CVS beirc

[afuchs]

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