CMUCL commit: src/pcl/simple-streams/external-formats (ascii.lisp)

[Raymond Toy]

    Date: Wednesday, July 7, 2010 @ 09:04:04
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats

Modified: ascii.lisp

Fix typo and put closing paren in the correct place.


------------+
 ascii.lisp |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)


Index: src/pcl/simple-streams/external-formats/ascii.lisp
diff -u src/pcl/simple-streams/external-formats/ascii.lisp:1.3 src/pcl/simple-streams/external-formats/ascii.lisp:1.4
--- src/pcl/simple-streams/external-formats/ascii.lisp:1.3	Mon Jul  5 00:12:47 2010
+++ src/pcl/simple-streams/external-formats/ascii.lisp	Wed Jul  7 09:04:04 2010
@@ -4,7 +4,7 @@
 ;;; This code was written by Raymond Toy and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /project/cmucl/cvsroot/src/pcl/simple-streams/external-formats/ascii.lisp,v 1.3 2010-07-05 04:12:47 rtoy Exp $")
+(ext:file-comment "$Header: /project/cmucl/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))))