diff --git a/pcl/simple-streams/external-formats/iso8859-2.lisp b/pcl/simple-streams/external-formats/iso8859-2.lisp index a5e869f33929cc53894c801eb98cc2127008d797..a64b21803dcedffe2b64687aaf0a71a3a64ba9eb 100644 --- a/pcl/simple-streams/external-formats/iso8859-2.lisp +++ b/pcl/simple-streams/external-formats/iso8859-2.lisp @@ -4,7 +4,7 @@ ;;; This code was written by Paul Foley and has been placed in the public ;;; domain. ;;; -(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-2.lisp,v 1.4 2010/07/02 23:13:11 rtoy Exp $") +(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/iso8859-2.lisp,v 1.5 2010/07/07 21:59:49 rtoy Exp $") (in-package "STREAM") @@ -29,9 +29,9 @@ (code-to-octets (code state output error present) `(,output (if (< ,code 160) ,code - (let ((,code (get-inverse ,itable ,code))) + (let ((,present (get-inverse ,itable ,code))) (if ,code - (+ (the (unsigned-byte 7) ,code) 160) + (+ (the (unsigned-byte 7) ,present) 160) (if ,error (funcall ,error "Cannot output codepoint #x~X to ISO8859-2 stream" ,code) #x3F))))))) diff --git a/pcl/simple-streams/external-formats/mac-roman.lisp b/pcl/simple-streams/external-formats/mac-roman.lisp index 5b0b1ecd67359466282412833228a3f295f3ce95..8db4ceca57aa4403fde28bea61139266dc4ee8a3 100644 --- a/pcl/simple-streams/external-formats/mac-roman.lisp +++ b/pcl/simple-streams/external-formats/mac-roman.lisp @@ -4,7 +4,7 @@ ;;; This code was written by Paul Foley and has been placed in the public ;;; domain. ;;; -(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/mac-roman.lisp,v 1.5 2010/07/02 23:13:11 rtoy Exp $") +(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/mac-roman.lisp,v 1.6 2010/07/07 21:59:49 rtoy Exp $") (in-package "STREAM") @@ -34,9 +34,9 @@ (code-to-octets (code state output error present) `(,output (if (< ,code 128) ,code - (let ((,code (get-inverse ,itable ,code))) - (if ,code - (+ (the (unsigned-byte 7) ,code) 128) + (let ((,present (get-inverse ,itable ,code))) + (if ,present + (+ (the (unsigned-byte 7) ,present) 128) (if ,error (funcall ,error "Cannot output codepoint #x~X to MAC-ROMAN stream" ,code)