diff --git a/pcl/simple-streams/external-formats/ascii.lisp b/pcl/simple-streams/external-formats/ascii.lisp index d988ce9179061a9ecd90d7c379a397a990fc3816..bd7b9986cdd95094a466f65686624934ce11d026 100644 --- a/pcl/simple-streams/external-formats/ascii.lisp +++ b/pcl/simple-streams/external-formats/ascii.lisp @@ -4,7 +4,7 @@ ;;; This code was written by Raymond Toy and has been placed in the public ;;; domain. ;;; -(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/ascii.lisp,v 1.3 2010/07/05 04:12:47 rtoy Exp $") +(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/ascii.lisp,v 1.4 2010/07/07 13:04:04 rtoy Exp $") (in-package "STREAM") @@ -17,11 +17,11 @@ (if ,error (funcall ,error "Invalid octet #x~4,'0X for ASCII" ,c 1) +replacement-character-code+)) - 1)) + 1))) (code-to-octets (code state output error) `(,output (if (> ,code #x7F) (if ,error (funcall ,error "Cannot output codepoint #x~X to ASCII stream" ,code) #x3F) - ,code))))) + ,code))))