From de143451c3a72616963340ef7cfea97fcedba3ae Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sat, 5 Jul 2008 23:07:13 +0200
Subject: Add macro %DEFUN.

---
 util.lisp | 4 ++++
 1 file changed, 4 insertions(+)
 create mode 100644 util.lisp

(limited to 'util.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))))))
-- 
cgit v1.2.3