Misc Cleanups.
[clinton/lisp-on-lines.git] / src / attribute.lisp
index 7273260..a229aa3 100644 (file)
 (defmacro with-attributes (names description &body body)
   `(let ,(loop for name in names collect 
              (list name `(find-attribute ,description ',name)))
-     ,@body))q
+     ,@body))