[Lisppaste-cvs] CVS lisppaste2

[bmastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory clnet:/tmp/cvs-serv10195

Modified Files:
	system-server.lisp 
Log Message:
paredit failed me! (trailing parens?)))


--- /project/lisppaste/cvsroot/lisppaste2/system-server.lisp	2007/01/16 00:56:30	1.2
+++ /project/lisppaste/cvsroot/lisppaste2/system-server.lisp	2007/01/16 01:17:32	1.3
@@ -129,10 +129,10 @@
                         "All Systems")
                     (loop for i in (reverse (maplist #'reverse (nreverse (split-sequence:split-sequence #\/ (request-unhandled-part request)))))
                        collect " / "
-                         collect (<a href=?(urlstring (merge-url *show-component-url*
-                                                           (format nil "~{~A~^/~}"
-                                                                   i)))>
-                                     (car (last i)))))
+                       collect (<a href=?(urlstring (merge-url *show-component-url*
+                                                               (format nil "~{~A~^/~}"
+                                                                       i)))>
+                                   (car (last i)))))
               <p/>
               (typecase component
                 (asdf:module (module-div component (urlstring (request-url request))))
@@ -142,7 +142,7 @@
                                          :common-lisp-file
                                          :none)))
                 (t (<div class="paste-area">
-                         "I'm afraid I don't quite know what to do with this file.")))))))))))))
+                         "I'm afraid I don't quite know what to do with this file."))))))))))
 
 (when *serve-source*
   (install-handler