X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/c29b2d2dda5ab82f7458666c154094693bfe9f1b..ec6dde1ef5ec97747c6ebfcc7f35b3d9da75843f:/src/attribute.lisp

diff --git a/src/attribute.lisp b/src/attribute.lisp
index d332f60..a229aa3 100644
--- 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
@@ -290,7 +290,9 @@
 		(with-function-access 
 		  (slot-value-using-class class attribute property))
 		(funcall fn layer (attribute-description attribute)))
-	    (funcall fn layer (attribute-description attribute))))))
+	    (handler-case (funcall fn layer (attribute-description attribute))
+	      (error ()
+		(warn "Error calling ~A" fn)))))))
 		    
 	      
 
@@ -325,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))