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