From d2370aa9d420b1e466e58f00dbda0309ade6ced9 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 27 Jul 2008 12:34:26 +0200 Subject: D-B: Fix &OPTIONAL handling. --- util.lisp | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'util.lisp') diff --git a/util.lisp b/util.lisp index 08c7d1c..63777ea 100644 --- a/util.lisp +++ b/util.lisp @@ -187,13 +187,12 @@ expansion-1 (macroexpand expansion-2)))) -(%defun* macroexpand-all (object . rest) - (let* ((env (if rest (car rest) nil))) - (if (consp object) - (let ((expansion (macroexpand object env))) - (cons (macroexpand-all (car expansion)) - (macroexpand-all (cdr expansion)))) - object))) - (%defmacro* unless (test . body) `(if (not ,test) (progn ,@body) nil)) + +(%defmacro* when (test . body) + `(if ,test (progn ,@body) nil)) + + +(export '(and or not let* list* case cond append reverse macroexpand + otherwise unless when)) -- cgit v1.2.3