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))