diff options
| -rw-r--r-- | cond.lisp | 11 | ||||
| -rw-r--r-- | init.lisp | 1 | ||||
| -rw-r--r-- | util.lisp | 4 |
3 files changed, 10 insertions, 6 deletions
@@ -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))) @@ -1 +1,2 @@ +(load "util.lisp") (load "cond.lisp") diff --git a/util.lisp b/util.lisp new file mode 100644 index 0000000..ed4c3a0 --- /dev/null +++ b/util.lisp @@ -0,0 +1,4 @@ +(%defmacro %defun args + (list '%fset + (list 'quote (car (cdr (car args)))) + (cons '%lambda (cdr (cdr (car args)))))) |