Misc Cleanups.

[clinton/lisp-on-lines.git] / src / attribute.lisp

diff --git a/src/attribute.lisp b/src/attribute.lisp
index 8f3f862..a229aa3 100644 (file)
--- a/src/attribute.lisp
+++ b/src/attribute.lisp
@@ -69,7 +69,7 @@
   (attribute-class 
    :accessor attribute-class 
    :initarg :attribute-class 
-   :initform 'standard-attribute)
+  :initform 'standard-attribute)
   (keyword
    :layered-accessor attribute-keyword
    :initarg :keyword
@@ -327,7 +327,7 @@
 (defmacro with-attributes (names description &body body)
   `(let ,(loop for name in names collect 
              (list name `(find-attribute ,description ',name)))
-     ,@body))q
+     ,@body))