[Phemlock-cvs] CVS update: phemlock/src/user/netnews.lisp

[Robert Strandh]

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

Modified Files:
	netnews.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/user/netnews.lisp
diff -u phemlock/src/user/netnews.lisp:1.1.1.1 phemlock/src/user/netnews.lisp:1.2
--- phemlock/src/user/netnews.lisp:1.1.1.1	Fri Jul  9 06:38:33 2004
+++ phemlock/src/user/netnews.lisp	Tue Aug 10 05:47:08 2004
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 #+CMU (ext:file-comment
-  "$Header: /project/phemlock/cvsroot/phemlock/src/user/netnews.lisp,v 1.1.1.1 2004/07/09 13:38:33 gbaumann Exp $")
+  "$Header: /project/phemlock/cvsroot/phemlock/src/user/netnews.lisp,v 1.2 2004/08/10 12:47:08 rstrandh Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -506,7 +506,7 @@
 		following ~S in database file."
 		       group-name))))))))
 
-(defun %set-nn-last-read-message-number (group-name new-value)
+(defun (setf nn-last-read-message-number) (new-value group-name)
   (with-open-file (s (merge-pathnames (value netnews-database-file)
 				      (user-homedir-pathname))
 		     :direction :io :if-does-not-exist :error
@@ -527,8 +527,6 @@
 		  (return t))))
       (write-line group-name s)
       (format s "~14D~%" new-value))))
-
-(defsetf nn-last-read-message-number %set-nn-last-read-message-number)
 
 (defconstant nntp-eof ".
"
   "NNTP marks the end of a textual response with this.  NNTP also recognizes