comparison lisp/cl-macs.el @ 373:6240c7796c7a r21-2b2

Import from CVS: tag r21-2b2
author cvs
date Mon, 13 Aug 2007 11:04:06 +0200
parents cc15677e0335
children 8626e4521993
comparison
equal deleted inserted replaced
372:49e1ed2d7ed8 373:6240c7796c7a
1729 (defsetf extent-parent set-extent-parent) 1729 (defsetf extent-parent set-extent-parent)
1730 (defsetf extent-properties set-extent-properties) 1730 (defsetf extent-properties set-extent-properties)
1731 ;; Avoid adding various face and glyph functions. 1731 ;; Avoid adding various face and glyph functions.
1732 (defsetf frame-selected-window (&optional f) (v) 1732 (defsetf frame-selected-window (&optional f) (v)
1733 `(set-frame-selected-window ,f ,v)) 1733 `(set-frame-selected-window ,f ,v))
1734 (defsetf glyph-image (glyph &optional domain) (i)
1735 (list 'set-glyph-image glyph i domain))
1734 (defsetf itimer-function set-itimer-function) 1736 (defsetf itimer-function set-itimer-function)
1735 (defsetf itimer-function-arguments set-itimer-function-arguments) 1737 (defsetf itimer-function-arguments set-itimer-function-arguments)
1736 (defsetf itimer-is-idle set-itimer-is-idle) 1738 (defsetf itimer-is-idle set-itimer-is-idle)
1737 (defsetf itimer-recorded-run-time set-itimer-recorded-run-time) 1739 (defsetf itimer-recorded-run-time set-itimer-recorded-run-time)
1738 (defsetf itimer-restart set-itimer-restart) 1740 (defsetf itimer-restart set-itimer-restart)