From 0d52c58f1e8941c4c08182710abcb327489b8c99 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 27 Jul 2008 18:19:33 +0200 Subject: Use DEFUN in order to redefine functions used to implement DEFUN after it has been defined itself. --- defun-1.lisp | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 defun-1.lisp (limited to 'defun-1.lisp') diff --git a/defun-1.lisp b/defun-1.lisp new file mode 100644 index 0000000..a0c2416 --- /dev/null +++ b/defun-1.lisp @@ -0,0 +1,20 @@ +(%defmacro* defun (name lambda-list . body) + (let ((lambda-sym (gensym))) + `(%defun ,name ,lambda-sym + (d-b ,lambda-list nil nil ,lambda-sym + ,@body)))) + +(%defmacro* defmacro (name lambda-list . body) + (let ((arg-sym (gensym)) + (lambda-sym (gensym)) + (whole-sym (gensym)) + (env-sym (gensym))) + `(%defmacro ,name ,arg-sym + (let ((,whole-sym (first ,arg-sym)) + (,lambda-sym (cdr (first ,arg-sym))) + (,env-sym (second ,arg-sym))) + (d-b ,lambda-list ,env-sym ,whole-sym ,lambda-sym + ,@body))))) + + +(export '(defmacro defun)) -- cgit v1.2.3