[Phemlock-cvs] CVS update: phemlock/src/spell/correlate.lisp phemlock/src/spell/flags.lisp

[Robert Strandh]

Update of /project/phemlock/cvsroot/phemlock/src/spell
In directory common-lisp.net:/tmp/cvs-serv10336/src/spell

Modified Files:
	correlate.lisp flags.lisp 
Log Message:
Replaced most trivial defsetf with a corresponding (defun (setf ...) ...)


Date: Tue Aug 10 05:47:08 2004
Author: rstrandh

Index: phemlock/src/spell/correlate.lisp
diff -u phemlock/src/spell/correlate.lisp:1.1.1.1 phemlock/src/spell/correlate.lisp:1.2
--- phemlock/src/spell/correlate.lisp:1.1.1.1	Fri Jul  9 06:38:12 2004
+++ phemlock/src/spell/correlate.lisp	Tue Aug 10 05:47:07 2004
@@ -201,10 +201,9 @@
 (declaim (inline desc-table-ref descriptor-ref))
 (defun desc-table-ref (dictionary index)
   (aref (descriptor-table dictionary) index))
-(defun %set-desc-table-ref (dictionary index value)
-  (setf (aref (descriptor-table dictionary) index) value))
 
-(defsetf desc-table-ref %set-desc-table-ref)
+(defun (setf desc-table-ref) (value dictionary index)
+  (setf (aref (descriptor-table dictionary) index) value))
 
 (defun descriptor-ref (dictionary index)
   (aref (descriptors dictionary) index))


Index: phemlock/src/spell/flags.lisp
diff -u phemlock/src/spell/flags.lisp:1.1.1.1 phemlock/src/spell/flags.lisp:1.2
--- phemlock/src/spell/flags.lisp:1.1.1.1	Fri Jul  9 06:38:12 2004
+++ phemlock/src/spell/flags.lisp	Tue Aug 10 05:47:08 2004
@@ -31,10 +31,8 @@
 (declaim (inline flag-mask))
 (defun flag-mask (char)
   (aref *flag-masks* (char-code char)))
-(defun %set-flag-mask (char value)
+(defun (setf flag-mask) (value char)
   (setf (aref *flag-masks* (char-code char)) value))
-
-(defsetf flag-mask %set-flag-mask)
 
 (dolist (e flag-names-to-masks)
   (let ((char (car e))