Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv22707
Modified Files: encode-for-pre.lisp Log Message: Fix for multiple spaces.
Date: Wed Nov 12 23:30:55 2003 Author: bmastenbrook
Index: lisppaste2/encode-for-pre.lisp diff -u lisppaste2/encode-for-pre.lisp:1.2 lisppaste2/encode-for-pre.lisp:1.3 --- lisppaste2/encode-for-pre.lisp:1.2 Wed Nov 12 00:58:56 2003 +++ lisppaste2/encode-for-pre.lisp Wed Nov 12 23:30:54 2003 @@ -1,4 +1,4 @@ -;;;; $Id: encode-for-pre.lisp,v 1.2 2003/11/12 05:58:56 bmastenbrook Exp $ +;;;; $Id: encode-for-pre.lisp,v 1.3 2003/11/13 04:30:54 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/encode-for-pre.lisp,v $
;;;; See the LICENSE file for licensing information. @@ -26,4 +26,7 @@ (defun encode-for-tt (str) (replace-in-string (replace-in-string - (replace-in-string str #\newline "") #\return "<br>") #\linefeed "")) \ No newline at end of file + (replace-in-string + (replace-in-string + (replace-in-string str #\newline "") #\return "<br>") #\linefeed "") + #\space " ") #\tab " ")) \ No newline at end of file