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

diff --git a/src/attribute.lisp b/src/attribute.lisp
index d332f60..7273260 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)))))))