Mercurial > hg > xemacs-beta

comparison lisp/cl-macs.el @ 286:57709be46d1b r21-0b41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b41
author cvs
date Mon, 13 Aug 2007 10:35:03 +0200
parents 12579d965149
children afd57c14dfc8
comparison
equal deleted inserted replaced
285:9a3756523c1b 286:57709be46d1b
1690 ;; Consoles 1690 ;; Consoles
1691 (defsetf selected-console select-console t) 1691 (defsetf selected-console select-console t)
1692 (defsetf selected-device select-device t) 1692 (defsetf selected-device select-device t)
1693 (defsetf device-baud-rate (&optional d) (v) 1693 (defsetf device-baud-rate (&optional d) (v)
1694 `(set-device-baud-rate ,d ,v)) 1694 `(set-device-baud-rate ,d ,v))
1695 (defsetf specifier-instance (spec &optional dom def nof) (val) 1695 ;; This setf method is a bad idea, because set-specifier *adds* a
1696 `(set-specifier ,spec ,val ,dom)) 1696 ;; specification, rather than just setting it. The net effect is that
1697 ;; it makes specifier-instance return VAL, but other things don't work
1698 ;; as expected -- letf, to name one.
1699 ;(defsetf specifier-instance (spec &optional dom def nof) (val)
1700 ; `(set-specifier ,spec ,val ,dom))
1697 1701
1698 ;; Annotations 1702 ;; Annotations
1699 (defsetf annotation-glyph set-annotation-glyph) 1703 (defsetf annotation-glyph set-annotation-glyph)
1700 (defsetf annotation-down-glyph set-annotation-down-glyph) 1704 (defsetf annotation-down-glyph set-annotation-down-glyph)
1701 (defsetf annotation-face set-annotation-face) 1705 (defsetf annotation-face set-annotation-face)