remobe ROFL and add validation

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

diff --git a/src/attribute.lisp b/src/attribute.lisp
index d332f60..7273260 100644 (file)
--- a/src/attribute.lisp
+++ b/src/attribute.lisp
@@ -69,7 +69,7 @@
   (attribute-class 
    :accessor attribute-class 
    :initarg :attribute-class 
   (attribute-class 
    :accessor attribute-class 
    :initarg :attribute-class 

-   :initform 'standard-attribute)
+  :initform 'standard-attribute)

   (keyword
    :layered-accessor attribute-keyword
    :initarg :keyword
   (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)))
                (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)))))))