From 6977f80a1c7ebdf158f2081a2b9f1f35e1f0b667 Mon Sep 17 00:00:00 2001 From: Utz-Uwe Haus Date: Mon, 9 May 2011 13:29:00 +0200 Subject: [PATCH] another round of default test predicate mess Signed-off-by: Utz-Uwe Haus --- satwrap.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/satwrap.lisp b/satwrap.lisp index 99ff9da..6488d5c 100644 --- a/satwrap.lisp +++ b/satwrap.lisp @@ -224,7 +224,7 @@ Returns a list of literals fixed, sign according to phase.") (locally ,@body))) -(defmacro with-index-hash ((mapping &key (test #'eq)) objects &body body) +(defmacro with-index-hash ((mapping &key (test '#'eq)) objects &body body) "Execute BODY while binding MAPPING to a hash-table (with predicate TEST, defaults to #'cl:eq) mapping the elements of the sequence OBJECTS to integer 1..[length objects]. -- 2.11.4.GIT