[mcclim-devel] while I'm picking minor mcclim nits...

[Cyrus Harmon]

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