(in-package :lisp-on-lines) ;;;; LoL CLOS Test Class (defclass/meta test-class () ((test-string :initform "test string" :type string)) (:documentation "foo")) (define-attributes (test-class) (test-string t :label "String :" :editablep t)) (defcomponent test-component () ((display-types :accessor display-types :initform (list 'viewer 'editor 'creator 'one-line 'as-string)) (current-type :accessor current-type :initform 'viewer) (instance :accessor instance :initform (make-instance 'test-class)))) (defmethod render ((self test-component)) (let ((test (instance self))) (<:h1 (<:as-html "Lisp on Lines Test Component")) (with-component (self) (