This fixes a few compile warnings. Of course, I have no idea what this does :) but the changes look like the right thing to do.
Cyrus
--- presentation-defs.lisp 10 Feb 2007 15:11:02 -0800 1.71 +++ presentation-defs.lisp 10 Feb 2007 15:17:12 -0800 @@ -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) @@ -1136,13 +1136,11 @@ (with-activation-gestures ((if additional-activations-p additional-activation-gestures activation-gestures) - :override activationsp) - (with-delimiter-gestures ((if additional-delimiters-p + :override activationsp) (with-delimiter-gestures ((if additional-delimiters-p additional-delimiter-gestures delimiter-gestures) :override delimitersp))) - (when (or (zerop (- end start)) - (let ((maybe-end)))) + (when (or (zerop (- end start))) (if defaultp (return-from accept-from-string (values default (if default-type-p