HCoop
/
clinton
/
lisp-on-lines.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
minor updates to work with released ucw-core
[clinton/lisp-on-lines.git]
/
src
/
display.lisp
diff --git
a/src/display.lisp
b/src/display.lisp
index
a0be611
..
7de1c63
100644
(file)
--- a/
src/display.lisp
+++ b/
src/display.lisp
@@
-22,6
+22,7
@@
(defun display (display object &rest args &key deactivate activate &allow-other-keys)
(defun display (display object &rest args &key deactivate activate &allow-other-keys)
+
(funcall-with-layer-context
(modify-layer-context (current-layer-context)
:activate activate
(funcall-with-layer-context
(modify-layer-context (current-layer-context)
:activate activate
@@
-32,6
+33,7
@@
(define-layered-method display-using-description
:around (description display object &rest args)
(declare (ignorable args))
(define-layered-method display-using-description
:around (description display object &rest args)
(declare (ignorable args))
+#+nil (break "Entering DISPLAY for ~A on ~A using ~A" object display description)
(let ((*display* display))
(apply #'funcall-with-described-object
(lambda ()
(let ((*display* display))
(apply #'funcall-with-described-object
(lambda ()