From: Christophe Rhodes Date: Sun, 31 Oct 2004 10:34:47 +0000 (+0000) Subject: 0.8.16.20: X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=sidebyside;h=0b96758f3645dff3e681d82cc97ddab1faae27ac;p=sbcl.git 0.8.16.20: A couple more BASE-CHAR-CODE-LIMIT-related fixes: ... legal format directives are all base-chars; ... define the BASE-CHAR type in terms of the limit constant. Also add remaining test cases to the test suite, just to get them out of the way. --- diff --git a/src/code/deftypes-for-target.lisp b/src/code/deftypes-for-target.lisp index 14614cc..26a0f49 100644 --- a/src/code/deftypes-for-target.lisp +++ b/src/code/deftypes-for-target.lisp @@ -60,7 +60,8 @@ (sb!xc:deftype atom () '(not cons)) -(sb!xc:deftype base-char () 'character) +(sb!xc:deftype base-char () + '(character-set ((0 . #.(1- base-char-code-limit))))) (sb!xc:deftype extended-char () #!+sb-doc diff --git a/src/code/early-format.lisp b/src/code/early-format.lisp index 06baecd..7dbc663 100644 --- a/src/code/early-format.lisp +++ b/src/code/early-format.lisp @@ -18,9 +18,9 @@ #-sb-xc-host (code-char tab-char-code))) (defvar *format-directive-expanders* - (make-array char-code-limit :initial-element nil)) + (make-array base-char-code-limit :initial-element nil)) (defvar *format-directive-interpreters* - (make-array char-code-limit :initial-element nil)) + (make-array base-char-code-limit :initial-element nil)) (defvar *default-format-error-control-string* nil) (defvar *default-format-error-offset* nil) diff --git a/tests/compiler.test.sh b/tests/compiler.test.sh index de4512d..6e20f95 100644 --- a/tests/compiler.test.sh +++ b/tests/compiler.test.sh @@ -286,6 +286,12 @@ cat > $tmpfilename < $tmpfilename <