From d86ccf58d5b462100d1f4ec5d016024543ec7f53 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 17 Aug 2008 22:43:25 +0200
Subject: Replace special operator %DEFMACRO with intrinsic function %MACROSET.

---
 util.lisp | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'util.lisp')

diff --git a/util.lisp b/util.lisp
index 412b23d..ede7eeb 100644
--- a/util.lisp
+++ b/util.lisp
@@ -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))))
-- 
cgit v1.2.3