From 2d574face5edc74d932df5317cbd9b0b672c5cfe Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 8 Oct 2009 22:16:34 +0200
Subject: Add util-macros.lisp to our Ironclad fork.

Ignore-this: 95ba9ec94b949f41b8c9ebefe3712880

darcs-hash:75d28ef9577590743bf320b39d1acffe70882e83
---
 ironclad/macro-utils.lisp | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 ironclad/macro-utils.lisp

(limited to 'ironclad')

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))
-- 
cgit v1.2.3