-(defun display (display object &rest args)
- (display-using-description (description-of object) display object args))
+
+
+(defun modify-layer-context (context &key activate deactivate)
+ (dolist (d deactivate)
+ (setf context (remove-layer (find-description d)
+ context)))
+ (dolist (d activate context)
+ (setf context (adjoin-layer (find-description d)
+ context))))
+
+
+
+
+(defun display (display object &rest args &key deactivate activate &allow-other-keys)
+ (funcall-with-layer-context
+ (modify-layer-context (current-layer-context)
+ :activate activate
+ :deactivate deactivate)
+ (lambda ()
+ (apply #'display-using-description (description-of object) display object args))))