X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=sbcl-init-for-test.l;fp=sbcl-init-for-test.l;h=8c97e41993cf24edac65ee9c1d01f0bc0f166528;hb=52e4bb145ca19c9ef91f57f7ca8dab0a507cb03f;hp=0000000000000000000000000000000000000000;hpb=2dbe6ed85d0f9527c29584c2f38c5458642c3177;p=yule.git

diff --git a/sbcl-init-for-test.l b/sbcl-init-for-test.l
new file mode 100644
index 0000000..8c97e41
--- /dev/null
+++ b/sbcl-init-for-test.l
@@ -0,0 +1,7 @@
+(defmacro named-lambda (name args &body body)
+  `(labels ((,name ,args ,@body))
+     #',name))
+
+(defun reverse-list (&rest args)
+  (reverse args))
+