From 6006a909156fce9f584a9ed04e21710ce3eefe19 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Wed, 3 Nov 2004 09:09:44 +0000 Subject: [PATCH] 0.8.16.29: Fix FORMAT.PAREN PFD ansi-tests for #!+sb-unicode. --- NEWS | 2 ++ src/code/stream.lisp | 10 +++++----- version.lisp-expr | 2 +- 3 files changed, 8 insertions(+), 6 deletions(-) diff --git a/NEWS b/NEWS index 9e1bcd6..8ea62bf 100644 --- a/NEWS +++ b/NEWS @@ -47,6 +47,8 @@ changes in sbcl-0.8.17 relative to sbcl-0.8.16: ** CERROR, given a condition as condition designator, passes its remaining arguments to the continue format control without complaint. + ** Case-altering FORMAT directives work correctly on non-ASCII + characters. changes in sbcl-0.8.16 relative to sbcl-0.8.15: * enhancement: saving cores with foreign code loaded is now diff --git a/src/code/stream.lisp b/src/code/stream.lisp index 6fc1ac8..ed87695 100644 --- a/src/code/stream.lisp +++ b/src/code/stream.lisp @@ -1530,7 +1530,7 @@ (defun case-frob-upcase-out (stream char) (declare (type case-frob-stream stream) - (type base-char char)) + (type character char)) (let ((target (case-frob-stream-target stream)) (char (char-upcase char))) (if (ansi-stream-p target) @@ -1555,7 +1555,7 @@ (defun case-frob-downcase-out (stream char) (declare (type case-frob-stream stream) - (type base-char char)) + (type character char)) (let ((target (case-frob-stream-target stream)) (char (char-downcase char))) (if (ansi-stream-p target) @@ -1580,7 +1580,7 @@ (defun case-frob-capitalize-out (stream char) (declare (type case-frob-stream stream) - (type base-char char)) + (type character char)) (let ((target (case-frob-stream-target stream))) (cond ((alphanumericp char) (let ((char (char-upcase char))) @@ -1624,7 +1624,7 @@ (defun case-frob-capitalize-aux-out (stream char) (declare (type case-frob-stream stream) - (type base-char char)) + (type character char)) (let ((target (case-frob-stream-target stream))) (cond ((alphanumericp char) (let ((char (char-downcase char))) @@ -1669,7 +1669,7 @@ (defun case-frob-capitalize-first-out (stream char) (declare (type case-frob-stream stream) - (type base-char char)) + (type character char)) (let ((target (case-frob-stream-target stream))) (cond ((alphanumericp char) (let ((char (char-upcase char))) diff --git a/version.lisp-expr b/version.lisp-expr index 80d267f..e3357b7 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.8.16.28" +"0.8.16.29" -- 1.7.10.4