Fix multiple evaluation of object' form in with-described-object'

drewc · Dec 24, 2010 · 8f1d4c1 · 8f1d4c1
1 parent b5cc8f3
commit 8f1d4c1
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/mao/description.lisp b/src/mao/description.lisp
@@ -106,9 +106,11 @@
 		   (without-special-symbol-access 
 		     (funcall  function))))))))))))
 
-(defmacro with-described-object ((object &optional (description `(description-of ,object)))
+(defmacro with-described-object ((object &optional description)
 				 &body body)
-  `(funcall-with-described-object (lambda (),@body) ,object ,description))
+  (once-only (object)
+    `(funcall-with-described-object (lambda (),@body) ,object ,(or description
+							      `(description-of ,object)))))