X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_const.lisp;h=c6f50e346c9dd8bb61fcbc12eee7c6525af1ea23;hb=7da6bfc195fad97e3afc576c609897c131fd4d8c;hp=621fefc4f9ecfe3c9798210398a5edcbc6f40b40;hpb=794718abc62f4610495fe2bd535a2b67bc46573c;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_const.lisp b/src/lisp/ao_lisp_const.lisp
index 621fefc4..c6f50e34 100644
--- a/src/lisp/ao_lisp_const.lisp
+++ b/src/lisp/ao_lisp_const.lisp
@@ -7,16 +7,20 @@
 
 					; 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
+					;
+					; Define a variable without returning the value
+					; Useful when defining functions to avoid
+					; having lots of output generated
+					;
 
-(set 'def (macro (def-param)
+(setq def (macro (def-param)
 		 (list
 		  'progn
 		  (list
@@ -127,3 +131,30 @@
 		 )
 		)
      )
+
+					;
+					; A slightly more convenient form
+					; for defining lambdas.
+					;
+					; (defun <name> (<params>) s-exprs)
+					;
+
+(def defun (macro (defun-param)
+		    (let ((name (car defun-param))
+			  (args (cadr defun-param))
+			  (exprs (cdr (cdr defun-param))))
+		      (list
+		       def
+		       name
+		       (list
+			'lambda
+			args
+			(cond ((cdr exprs)
+			       (cons progn exprs))
+			      ((car exprs))
+			      )
+			)
+		       )
+		      )
+		    )
+     )