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