HCoop
/
clinton
/
lisp-on-lines.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b5cc8f3
)
Fix multiple evaluation of `object' form in `with-described-object'
author
Clinton Ebadi
<clinton@unknownlamer.org>
Fri, 24 Dec 2010 20:02:14 +0000
(15:02 -0500)
committer
Clinton Ebadi
<clinton@unknownlamer.org>
Fri, 24 Dec 2010 20:02:14 +0000
(15:02 -0500)
src/mao/description.lisp
patch
|
blob
|
blame
|
history
diff --git
a/src/mao/description.lisp
b/src/mao/description.lisp
index
8f7348d
..
37c3e4e
100644
(file)
--- 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)))))