comparison lisp/cl-macs.el @ 318:afd57c14dfc8 r21-0b57

Import from CVS: tag r21-0b57
author cvs
date Mon, 13 Aug 2007 10:45:36 +0200
parents 57709be46d1b
children 182f72e8cd0d
comparison
equal deleted inserted replaced
317:a2fc9afbef65 318:afd57c14dfc8
1734 (defsetf extent-parent set-extent-parent) 1734 (defsetf extent-parent set-extent-parent)
1735 (defsetf extent-properties set-extent-properties) 1735 (defsetf extent-properties set-extent-properties)
1736 ;; Avoid adding various face and glyph functions. 1736 ;; Avoid adding various face and glyph functions.
1737 (defsetf frame-selected-window (&optional f) (v) 1737 (defsetf frame-selected-window (&optional f) (v)
1738 `(set-frame-selected-window ,f ,v)) 1738 `(set-frame-selected-window ,f ,v))
1739 (defsetf glyph-image (glyph &optional domain) (i)
1740 (list 'set-glyph-image glyph i domain))
1739 (defsetf itimer-function set-itimer-function) 1741 (defsetf itimer-function set-itimer-function)
1740 (defsetf itimer-function-arguments set-itimer-function-arguments) 1742 (defsetf itimer-function-arguments set-itimer-function-arguments)
1741 (defsetf itimer-is-idle set-itimer-is-idle) 1743 (defsetf itimer-is-idle set-itimer-is-idle)
1742 (defsetf itimer-recorded-run-time set-itimer-recorded-run-time) 1744 (defsetf itimer-recorded-run-time set-itimer-recorded-run-time)
1743 (defsetf itimer-restart set-itimer-restart) 1745 (defsetf itimer-restart set-itimer-restart)