[Lisppaste-cvs] CVS update: lisppaste2/web-server.lisp

[Erik Enge]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/tmp/cvs-serv9860

Modified Files:
	web-server.lisp 
Log Message:
setf takes plenty forms; no need for three calls.

Date: Mon Nov 10 15:07:48 2003
Author: eenge

Index: lisppaste2/web-server.lisp
diff -u lisppaste2/web-server.lisp:1.4 lisppaste2/web-server.lisp:1.5
--- lisppaste2/web-server.lisp:1.4	Mon Nov 10 15:04:36 2003
+++ lisppaste2/web-server.lisp	Mon Nov 10 15:07:48 2003
@@ -1,4 +1,4 @@
-;;;; $Id: web-server.lisp,v 1.4 2003/11/10 20:04:36 eenge Exp $
+;;;; $Id: web-server.lisp,v 1.5 2003/11/10 20:07:48 eenge Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -59,9 +59,9 @@
          ((td :colspan 2) ((input :type reset))))))))))
 
 (defmethod araneida:handle-request-response ((handler submit-paste-handler) method request)
-  (setf (username handler) (araneida:body-param "USERNAME" (araneida:request-body request)))
-  (setf (title handler) (araneida:body-param "TITLE" (araneida:request-body request)))
-  (setf (text handler) (araneida:body-param "TEXT" (araneida:request-body request)))
+  (setf (username handler) (araneida:body-param "USERNAME" (araneida:request-body request))
+        (title handler) (araneida:body-param "TITLE" (araneida:request-body request))
+        (text handler) (araneida:body-param "TEXT" (araneida:request-body request)))
   (araneida:request-send-headers request)
 
   (let ((username (username handler))