From 4765624c39dffb085554b1459b3e80bcbf347791 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 4 Aug 2007 15:01:53 +0200
Subject: Refactor directory and source file layout.

darcs-hash:0eb031a60f3b86a678869960867410811ca5325c
---
 Lisp/utilities.lisp | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 Lisp/utilities.lisp

(limited to 'Lisp/utilities.lisp')

diff --git a/Lisp/utilities.lisp b/Lisp/utilities.lisp
new file mode 100644
index 0000000..f35a4d8
--- /dev/null
+++ b/Lisp/utilities.lisp
@@ -0,0 +1,10 @@
+(in-package #:mulk.objective-cl)
+
+
+(defun apply-macro (macro-name arg &rest args)
+  "Because FOREIGN-FUNCALL is a macro.  Why, oh why is this?"
+  (funcall
+   (compile nil
+            `(lambda ()
+               (,macro-name ,@(butlast (cons arg args))
+                            ,@(car (last (cons arg args))))))))
\ No newline at end of file
-- 
cgit v1.2.3