[mcclim-cvs] CVS mcclim

[thenriksen]

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

Modified Files:
	presentations.lisp 
Log Message:
Removed useless T clause in `fake-params-arg'. Two other clauses
already handle atoms and conses respectively, there are no other kinds
of objects.


--- /project/mcclim/cvsroot/mcclim/presentations.lisp	2007/11/19 21:02:58	1.80
+++ /project/mcclim/cvsroot/mcclim/presentations.lisp	2007/11/19 21:14:01	1.81
@@ -240,9 +240,7 @@
 		       (let ((var (car lambda-var)))
 			 (do-arg (if (and (eq state '&key) (consp var))
 				     (car var)
-				     var))))
-		      (t (list (fake-params-args lambda-var))))))))
-  
+				     var)))))))))
 
 ;;; Yet another variation on a theme...