--- a/lisp/cl/cl-macs.el	Mon Aug 13 09:35:15 2007 +0200
+++ b/lisp/cl/cl-macs.el	Mon Aug 13 09:36:16 2007 +0200
@@ -1623,6 +1623,27 @@
 (defsetf frame-parameters modify-frame-parameters t)
 (defsetf frame-visible-p cl-set-frame-visible-p)
 (defsetf frame-width set-screen-width t)
+
+;; XEmacs: new stuff
+(defsetf selected-console select-console t)
+(defsetf selected-device select-device t)
+(defsetf device-baud-rate (&optional d) (v)
+  `(set-device-baud-rate ,d ,v))
+(defsetf current-frame-configuration set-frame-configuration)
+(defsetf frame-properties (&optional f) (p)
+  `(progn (set-frame-properties ,f ,p) ,p))
+(defsetf frame-property (f p &optional d) (v)
+  `(progn (set-frame-property ,f ,v) ,p))
+(defsetf specifier-instance (spec &optional dom def nof) (val)
+  `(set-specifier ,spec ,val ,dom))
+(defsetf annotation-glyph set-annotation-glyph)
+(defsetf annotation-down-glyph set-annotation-down-glyph)
+(defsetf annotation-face set-annotation-face)
+(defsetf annotation-layout set-annotation-layout)
+(defsetf annotation-data set-annotation-data)
+(defsetf annotation-action set-annotation-action)
+(defsetf annotation-menu set-annotation-menu)
+
 (defsetf getenv setenv t)
 (defsetf get-register set-register)
 (defsetf global-key-binding global-set-key)