[comp.sys.xerox] Winning with il:windowprop

Jellinek.pa@XEROX.COM (11/09/88)

The following trick is of great use in writing window-based applications in
Medley.  I find it makes il:windowprop (and the very notion of window
properties) much more useful in the brave new world of Xerox Common Lisp.

Simply make the following declaration:

	(defsetf il:windowprop il:windowprop)

and you'll be able to use such handy idioms as

	(setf (il:windowprop window 'prop) ...)  ; saves on clarity, not typing
	(push ... (il:windowprop window 'prop))
	(pushnew ... (il:windowprop window 'prop))
	(pop (il:windowprop window 'prop))
	(incf (il:windowprop window 'prop))

and their friends.

		Herb