+ )))
+
+;;;; wrap a DIV
+
+
+(deflayer wrap-div)
+
+(define-layered-class description
+ :in-layer wrap-div ()
+ ((div-attributes :accessor div-attributes :initarg :div :special t :initform nil)))
+
+(defdisplay :in-layer wrap-div :around (description object)
+ (let ((args (div-attributes description)))
+ (with-inactive-layers (wrap-div)
+ (yaclml::funcall-with-tag
+ (cons '<:div args)
+ (lambda ()
+ (call-next-method))))))
+
+
\ No newline at end of file