X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_const.lisp;h=13bb81391fd570e95a41544a1a4e921a65705c4d;hb=bcf5eb5825b1217d74f117b02d09b4ce4b007beb;hp=6fbc35b67993fc2798effb659063db749d247c9a;hpb=daa06c8dedc6dc1cf21936ee2769d9d25f0567bd;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_const.lisp b/src/lisp/ao_lisp_const.lisp
index 6fbc35b6..13bb8139 100644
--- a/src/lisp/ao_lisp_const.lisp
+++ b/src/lisp/ao_lisp_const.lisp
@@ -49,9 +49,12 @@
 		   (list
 		    'lambda
 		    args
-		    (cond ((cdr exprs)
-			   (cons progn exprs))
-			  ((car exprs))
+		    (cond (exprs
+			   (cond ((cdr exprs)
+				  (cons progn exprs))
+				 ((car exprs))
+				 )
+			   )
 			  )
 		    )
 		   )