[Lisppaste-cvs] CVS lisppaste2

[bmastenbrook]

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

Modified Files:
	web-server.lisp 
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 $
 
 ;;;; See the LICENSE file for licensing information.
@@ -945,21 +945,22 @@
        (<table width="100%" class="paste-area">
                (<tr>
                 (<td bgcolor="#F4F4F4" colspan="2" width="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 #'(lambda (e)
-                                                                        (cons (car e)
-                                                                              (encode (cdr e))))
-                                                                    (colorize: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))))))))))))
 
 (defmethod handle-request-response ((handler display-paste-handler) method request)
   (let* ((paste-number (parse-integer