From 0200c1fabec349a53d525dfb66f13ebdaf20cc4a Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Wed, 7 Jul 2010 13:04:04 +0000 Subject: [PATCH] Fix typo and put closing paren in the correct place. --- pcl/simple-streams/external-formats/ascii.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pcl/simple-streams/external-formats/ascii.lisp b/pcl/simple-streams/external-formats/ascii.lisp index d988ce917..bd7b9986c 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)))) -- GitLab