X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_const.lisp;h=9d8af58862e1af43a7fb1c21fe005999cf56178a;hb=1a00bf4ac12a6505d4b23d94e99b4b46bf679020;hp=08a511d9cf0ec380e4fc696956b9e329eb4fdf4b;hpb=417161dbb36323b5a6572859dedad02ca92fc65c;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_const.lisp b/src/lisp/ao_lisp_const.lisp
index 08a511d9..9d8af588 100644
--- a/src/lisp/ao_lisp_const.lisp
+++ b/src/lisp/ao_lisp_const.lisp
@@ -7,12 +7,8 @@
 
 					; evaluate a list of sexprs
 
-(setq progn (lexpr (l) (last l)))
+;(setq progn (lexpr (l) (last l)))
 
-					; simple math operators
-
-(setq 1+ (lambda (x) (+ x 1)))
-(setq 1- (lambda (x) (- x 1)))
 
 					;
 					; Define a variable without returning the value
@@ -64,7 +60,7 @@
 					; make the list of names in the let
 					;
 
-		     (set 'make-names (lambda (vars)
+		     (setq make-names (lambda (vars)
 				       (cond (vars
 					      (cons (car (car vars))
 						    (make-names (cdr vars))))
@@ -77,7 +73,7 @@
 					; pre-pended to the
 					; expressions to evaluate
 					;
-		     (set 'make-exprs (lambda (vars exprs)
+		     (setq make-exprs (lambda (vars exprs)
 				       (progn
 					 (cond (vars (cons
 						      (list set
@@ -94,13 +90,13 @@
 					 )
 				       )
 			  )
-		     (set 'exprs (make-exprs vars exprs))
+		     (setq exprs (make-exprs vars exprs))
 
 					;
 					; the parameters to the lambda is a list
 					; of nils of the right length
 					;
-		     (set 'make-nils (lambda (vars)
+		     (setq make-nils (lambda (vars)
 				      (cond (vars (cons nil (make-nils (cdr vars))))
 					    )
 				      )
@@ -108,7 +104,6 @@
 					;
 					; build the lambda.
 					;
-		     (set 'last-let-value 
 		     (cons
 		      (list
 		       'lambda
@@ -120,8 +115,6 @@
 		      (make-nils vars)
 		      )
 		     )
-		     )
-		     
 		   )
 		 (car let-param)
 		 (cdr let-param)
@@ -158,3 +151,12 @@
 		      )
 		    )
      )
+
+					; simple math operators
+					;
+					; Do these last to run defun
+					; at least once so the let macro
+					; is resolved
+
+(defun 1+ (x) (+ x 1))
+(defun 1- (x) (- x 1))