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

[Erik Enge]

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)