diff options
Diffstat (limited to 'defun-1.lisp')
| -rw-r--r-- | defun-1.lisp | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/defun-1.lisp b/defun-1.lisp index 51e9db0..875b7a5 100644 --- a/defun-1.lisp +++ b/defun-1.lisp @@ -21,7 +21,7 @@ (export '(defmacro defun)) -(%defun* make-defun-body (lambda-list body) +(%defun* make-defun-body (lambda-list body destructuring-p) (let ((lambda-sym (gensym))) `(,lambda-sym (d-b ,lambda-list nil nil ,lambda-sym @@ -29,7 +29,7 @@ (%defmacro* defun (name lambda-list . body) `(%defun ,name - ,@(make-defun-body lambda-list body))) + ,@(make-defun-body lambda-list body nil))) (%defun* make-defmacro-body (lambda-list body) (let ((arg-sym (gensym)) @@ -49,7 +49,11 @@ (%defmacro* lambda (lambda-list . body) `(%lambda - ,@(make-defun-body lambda-list body))) + ,@(make-defun-body lambda-list body nil))) + +(%defmacro* destructuring-lambda (lambda-list . body) + `(%lambda + ,@(make-defun-body lambda-list body t))) (defun funcall (function &rest arguments) (apply function arguments)) |