# HG changeset patch # User Steve Losh # Date 1471236131 0 # Node ID 3c0ce7d959f9274a411e494407bdff473849e780 # Parent f71d1be7cd2f0c5d62ccea72ab189204334cf8be Fix docstring diff -r f71d1be7cd2f -r 3c0ce7d959f9 losh.lisp --- a/losh.lisp Mon Aug 15 04:37:02 2016 +0000 +++ b/losh.lisp Mon Aug 15 04:42:11 2016 +0000 @@ -953,7 +953,7 @@ => (defmacro with-foo ((foo &optional (a-symbol 'a) (b-symbol 'b)) &body body) - `(with-accessors ((,a-symbol 'foo-a) (,b-symbol 'foo-b)) + `(with-accessors ((,a-symbol foo-a) (,b-symbol foo-b)) ,foo ,@body))