Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/home/bmastenbrook/lisppaste2
Modified Files: encode-for-pre.lisp Log Message: doh, that order causes lots of   :-)
Date: Tue Feb 3 21:54:24 2004 Author: bmastenbrook
Index: lisppaste2/encode-for-pre.lisp diff -u lisppaste2/encode-for-pre.lisp:1.8 lisppaste2/encode-for-pre.lisp:1.9 --- lisppaste2/encode-for-pre.lisp:1.8 Tue Feb 3 21:41:12 2004 +++ lisppaste2/encode-for-pre.lisp Tue Feb 3 21:54:24 2004 @@ -1,4 +1,4 @@ -;;;; $Id: encode-for-pre.lisp,v 1.8 2004/02/04 02:41:12 bmastenbrook Exp $ +;;;; $Id: encode-for-pre.lisp,v 1.9 2004/02/04 02:54:24 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/encode-for-pre.lisp,v $
;;;; See the LICENSE file for licensing information. @@ -41,4 +41,4 @@ (replace-in-string str '(#& #< #>) '("&" "<" ">")))
(defun encode-for-tt (str) - (replace-in-string (replace-in-string-1 str #\space " " t) '(#& #< #> #\newline #\return #\linefeed #\tab) '("&" "<" ">" "" "<br>" "" " "))) + (replace-in-string-1 (replace-in-string str '(#& #< #> #\newline #\return #\linefeed #\tab) '("&" "<" ">" "" "<br>" "" " ")) #\space " " t))