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))))