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