From bmastenbrook@common-lisp.net Mon Jan 15 21:37:39 2007
From: bmastenbrook <bmastenbrook@common-lisp.net>
To: lisppaste-cvs@common-lisp.net
Subject: [Lisppaste-cvs] CVS lisppaste2
Date: Mon, 15 Jan 2007 21:37:39 -0500
Message-ID: <20070116023739.648D9281E5@common-lisp.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============4521977861723041704=="

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

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

Modified Files:
	web-server.lisp=20
Log Message:
Oops. Monospace.


--- /project/lisppaste/cvsroot/lisppaste2/web-server.lisp	2007/01/16 01:10:44=
	1.89
+++ /project/lisppaste/cvsroot/lisppaste2/web-server.lisp	2007/01/16 02:37:39=
	1.90
@@ -1,4 +1,4 @@
-;;;; $Id: web-server.lisp,v 1.89 2007/01/16 01:10:44 bmastenbrook Exp $
+;;;; $Id: web-server.lisp,v 1.90 2007/01/16 02:37:39 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
=20
 ;;;; See the LICENSE file for licensing information.
@@ -945,21 +945,22 @@
        (<table width=3D"100%" class=3D"paste-area">
                (<tr>
                 (<td bgcolor=3D"#F4F4F4" colspan=3D"2" width=3D"100%">
-                     (when line-numbers (make-unescaped-string (line-number)=
))
-                     ;; FIXME!!! This all needs to be converted to use
-                     ;; XML objects natively.
-                     (make-unescaped-string
-                      (if colorize-as
-                          (memoize-format (list (paste-contents paste)
-                                                colorize-as
-                                                line-numbers)
-                                          (lambda ()
-                                      (colorize:format-scan colorize-as
-                                                            (mapcar #'(lambd=
a (e)
-                                                                        (con=
s (car e)
-                                                                            =
  (encode (cdr e))))
-                                                                    (coloriz=
e:scan-string colorize-as (paste-contents paste))))))
-                          (encode (paste-contents paste)))))))))))
+                     (<tt>
+                      (when line-numbers (make-unescaped-string (line-number=
)))
+                      ;; FIXME!!! This all needs to be converted to use
+                      ;; XML objects natively.
+                      (make-unescaped-string
+                       (if colorize-as
+                           (memoize-format (list (paste-contents paste)
+                                                 colorize-as
+                                                 line-numbers)
+                                           (lambda ()
+                                             (colorize:format-scan colorize-=
as
+                                                                   (mapcar #=
'(lambda (e)
+                                                                            =
   (cons (car e)
+                                                                            =
         (encode (cdr e))))
+                                                                           (=
colorize:scan-string colorize-as (paste-contents paste))))))
+                           (encode (paste-contents paste))))))))))))
=20
 (defmethod handle-request-response ((handler display-paste-handler) method r=
equest)
   (let* ((paste-number (parse-integer


--===============4521977861723041704==--