From de143451c3a72616963340ef7cfea97fcedba3ae Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sat, 5 Jul 2008 23:07:13 +0200 Subject: Add macro %DEFUN. --- cond.lisp | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'cond.lisp') diff --git a/cond.lisp b/cond.lisp index e5aed02..7b3d1cc 100644 --- a/cond.lisp +++ b/cond.lisp @@ -1,9 +1,8 @@ -(%fset 'list* - (%lambda args - (if (null (cdr args)) - (car args) - (cons (car args) - (apply 'list* (cdr args)))))) +(%defun list* args + (if (null (cdr args)) + (car args) + (cons (car args) + (apply 'list* (cdr args))))) (%defmacro let* args (let ((form (car args))) -- cgit v1.2.3