Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv18011

Modified Files: encode-for-pre.lisp Log Message: argh, fix xml-rpc multiline pastes

Date: Sun Mar 7 09:18:26 2004 Author: bmastenbrook

Index: lisppaste2/encode-for-pre.lisp diff -u lisppaste2/encode-for-pre.lisp:1.9 lisppaste2/encode-for-pre.lisp:1.10 --- lisppaste2/encode-for-pre.lisp:1.9 Tue Feb 3 21:54:24 2004 +++ lisppaste2/encode-for-pre.lisp Sun Mar 7 09:18:26 2004 @@ -1,4 +1,4 @@ -;;;; $Id: encode-for-pre.lisp,v 1.9 2004/02/04 02:54:24 bmastenbrook Exp $ +;;;; $Id: encode-for-pre.lisp,v 1.10 2004/03/07 14:18:26 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 '(#& #< #>) '("&amp;" "&lt;" "&gt;")))

(defun encode-for-tt (str) - (replace-in-string-1 (replace-in-string str '(#& #< #> #\newline #\return #\linefeed #\tab) '("&amp;" "&lt;" "&gt;" "" "<br>" "" "&nbsp;&nbsp;&nbsp;&nbsp;")) #\space "&nbsp;" t)) + (replace-in-string-1 (replace-in-string str '(#& #< #> #\newline #\return #\linefeed #\tab) '("&amp;" "&lt;" "&gt;" "<br>" "" "" "&nbsp;&nbsp;&nbsp;&nbsp;")) #\space "&nbsp;" t))