(:file "edit")
(:file "symbol")
(:file "list")
- (:file "clos"))
+ (:file "null")
+ (:file "clos")
+ )
:serial t))
:serial t
:depends-on (:contextl :arnesi :alexandria :parse-number
;;for rofl:
- :cl-postgres :simple-date :postmodern))
-
-
+ :cl-postgres
+ :simple-date-postgres
+ :postmodern ))
(defsystem :lisp-on-lines.test
:layered t
:special t)))
+(define-layered-method attribute-active-p :around (attribute)
+ (let ((active? (call-next-method)))
+ (if (eq :when active?)
+ (not (null (attribute-value attribute)))
+ active?)))
+
(define-layered-method attribute-label-formatter :around (attribute)
(or (slot-value attribute 'label-formatter)
(attribute-value (find-attribute (attribute-description attribute) 'label-formatter))