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

Modified Files: web-server.lisp Log Message: fix parenthesis mismatch bug

Date: Tue Nov 11 09:39:24 2003 Author: eenge

Index: lisppaste2/web-server.lisp diff -u lisppaste2/web-server.lisp:1.5 lisppaste2/web-server.lisp:1.6 --- lisppaste2/web-server.lisp:1.5 Mon Nov 10 15:07:48 2003 +++ lisppaste2/web-server.lisp Tue Nov 11 09:39:24 2003 @@ -1,4 +1,4 @@ -;;;; $Id: web-server.lisp,v 1.5 2003/11/10 20:07:48 eenge Exp $ +;;;; $Id: web-server.lisp,v 1.6 2003/11/11 14:39:24 eenge Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $

;;;; See the LICENSE file for licensing information. @@ -82,22 +82,22 @@ (prin1-to-string *paste-counter*)))) (external-url (araneida:urlstring (araneida:merge-url *paste-external-url* - (prin1-to-string *paste-counter*))))) + (prin1-to-string *paste-counter*)))) (paste (make-paste :number *paste-counter* :user username :title title :contents text :universal-time (get-universal-time)))) - (irc:privmsg *connection* *channel* - (format nil "~A pasted ~A at ~A" username title external-url)) - (push paste *pastes*) - (araneida:html-stream - (araneida:request-stream request) - `(html - (head (title "Paste number " ,*paste-counter*)) - (body - (h1 "Pasted!") - (p "Your paste should be available at " ((a :href ,url) ,url) ", and + (irc:privmsg *connection* *channel* + (format nil "~A pasted ~A at ~A" username title external-url)) + (push paste *pastes*) + (araneida:html-stream + (araneida:request-stream request) + `(html + (head (title "Paste number " ,*paste-counter*)) + (body + (h1 "Pasted!") + (p "Your paste should be available at " ((a :href ,url) ,url) ", and was also sent to " ,*channel* " @ " ,(irc:server-name *connection*)))))))))))

(defmethod araneida:handle-request-response ((handler display-paste-handler) method request)