[mcclim-cvs] CVS mcclim

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv14605

Modified Files:
	presentation-defs.lisp 
Log Message:
`accept-from-string' is still WIP, but it should cause fewer compiler
warnings now. The remaining one is actually out of our control, in
fact, an SBCL hacker would be welcome to fix it, if that is possible.


--- /project/mcclim/cvsroot/mcclim/presentation-defs.lisp	2007/02/10 21:32:22	1.71
+++ /project/mcclim/cvsroot/mcclim/presentation-defs.lisp	2007/11/19 21:10:40	1.72
@@ -1121,11 +1121,11 @@
 			   &key view
 			   (default nil defaultp)
 			   (default-type nil default-type-p)
-			   activation-gestures
+			   (activation-gestures nil activationsp)
 			   (additional-activation-gestures
 			    nil
 			    additional-activations-p)
-			   delimiter-gestures
+			   (delimiter-gestures nil delimitersp)
 			   (additional-delimiter-gestures
 			    nil
 			    additional-delimiters-p)
@@ -1141,8 +1141,7 @@
 				  additional-delimiter-gestures
 				  delimiter-gestures)
 			      :override delimitersp)))
-  (when (or (zerop (- end start))
-	    (let ((maybe-end))))
+  (when (zerop (- end start))
     (if defaultp
 	(return-from accept-from-string (values default
 						(if default-type-p
@@ -1153,7 +1152,7 @@
   (let ((index 0))
     (multiple-value-bind (val ptype)
 	(with-input-from-string (stream string :start start :end end
-				 :index index)
+                                               :index index)
 	  (with-keywords-removed (args (:start :end))
 	    (apply #'stream-accept stream type :view +textual-view+ args)))
       (values val ptype index))))