Add util-macros.lisp to our Ironclad fork.

Ignore-this: 95ba9ec94b949f41b8c9ebefe3712880

darcs-hash:75d28ef9577590743bf320b39d1acffe70882e83

1 files changed, 10 insertions, 0 deletions

diff --git a/ironclad/macro-utils.lisp b/ironclad/macro-utils.lisp
new file mode 100644
index 0000000..f7a621f
--- /dev/null
+++ b/ironclad/macro-utils.lisp
@@ -0,0 +1,10 @@
+;;;; macro-utils.lisp -- things to make compiler macros easier
+
+(in-package :crypto)
+
+(defun quotationp (thing)
+  (and (consp thing) (consp (rest thing))
+       (cl:null (cddr thing)) (eq (first thing) 'quote)))
+
+(defun unquote (thing)
+  (if (quotationp thing) (second thing) thing))