diff options
Diffstat (limited to 'util.lisp')
-rw-r--r-- | util.lisp | 11 |
1 files changed, 11 insertions, 0 deletions
@@ -22,6 +22,17 @@ otherwise unless when eq boundp)) +(%macroset '%defmacro + (%lambda args + (let ((form (car args))) + (let ((name (car (cdr form))) + (lambda-list-name (car (cdr (cdr form)))) + (body (cdr (cdr (cdr form))))) + (list '%macroset + (list 'quote name) + (cons '%lambda + (cons lambda-list-name body))))))) + (%defmacro %defun args (list '%fset (list 'quote (car (cdr (car args)))) |