From bmastenbrook@common-lisp.net Mon Jan 15 20:17:32 2007
From: bmastenbrook <bmastenbrook@common-lisp.net>
To: lisppaste-cvs@common-lisp.net
Subject: [Lisppaste-cvs] CVS lisppaste2
Date: Mon, 15 Jan 2007 20:17:32 -0500
Message-ID: <20070116011732.C74A51E010@common-lisp.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============5657556434705934888=="

--===============5657556434705934888==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

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

Modified Files:
	system-server.lisp=20
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 (sp=
lit-sequence:split-sequence #\/ (request-unhandled-part request)))))
                        collect " / "
-                         collect (<a href=3D?(urlstring (merge-url *show-com=
ponent-url*
-                                                           (format nil "~{~A=
~^/~}"
-                                                                   i)))>
-                                     (car (last i)))))
+                       collect (<a href=3D?(urlstring (merge-url *show-compo=
nent-url*
+                                                               (format nil "=
~{~A~^/~}"
+                                                                       i)))>
+                                   (car (last i)))))
               <p/>
               (typecase component
                 (asdf:module (module-div component (urlstring (request-url r=
equest))))
@@ -142,7 +142,7 @@
                                          :common-lisp-file
                                          :none)))
                 (t (<div class=3D"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."))))))))))
=20
 (when *serve-source*
   (install-handler


--===============5657556434705934888==--