X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_const.lisp;h=13bb81391fd570e95a41544a1a4e921a65705c4d;hb=a6e52fa669b65404d4416b6660f8508743e46d9b;hp=6fbc35b67993fc2798effb659063db749d247c9a;hpb=81f572512cad9cefadd4e4ede7678e2566117d2a;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))
+				 )
+			   )
 			  )
 		    )
 		   )