# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1315164931 -3600
# Node ID 9a93bc90b3bd8aeb3f36da44b295e0493d9f6cc7
# Parent  58b38d5b32d02df4fa6700143e0fc5a6c659df11
Add a defsetf for get-char-table, necessary for the tests in the last commit.

lisp/ChangeLog addition:

2011-09-04  Aidan Kehoe  <kehoea@parhasard.net>

	* cl-macs.el (get-char-table): Add a defsetf for this.

diff -r 58b38d5b32d0 -r 9a93bc90b3bd lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Sep 04 19:51:35 2011 +0100
+++ b/lisp/ChangeLog	Sun Sep 04 20:35:31 2011 +0100
@@ -1,3 +1,7 @@
+2011-09-04  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* cl-macs.el (get-char-table): Add a defsetf for this.
+
 2011-09-04  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* bytecomp.el (byte-compile-output-file-form):
diff -r 58b38d5b32d0 -r 9a93bc90b3bd lisp/cl-macs.el
--- a/lisp/cl-macs.el	Sun Sep 04 19:51:35 2011 +0100
+++ b/lisp/cl-macs.el	Sun Sep 04 20:35:31 2011 +0100
@@ -2215,6 +2215,9 @@
 ;(defsetf specifier-instance (spec &optional dom def nof) (val)
 ;  `(set-specifier ,spec ,val ,dom))
 
+(defsetf get-char-table (char table) (store)
+  `(put-char-table ,char ,store ,table))
+
 ;; Annotations
 (defsetf annotation-glyph set-annotation-glyph)
 (defsetf annotation-down-glyph set-annotation-down-glyph)