Add macro %DEFUN.

1 files changed, 5 insertions, 6 deletions

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)))