Use 21 bit characters on Lisp offering them.

2007-12-22 15:19:25 +00:00
parent 2a41e7611f
commit 5cd8915297
4 changed files with 95 additions and 36 deletions
--- a/xstream.lisp
+++ b/xstream.lisp
@ -83,7 +83,10 @@
  `(unsigned-byte ,(integer-length array-total-size-limit)))

 (deftype buffer-byte ()
-  `(unsigned-byte 16))
+  #+rune-is-utf-16
+  `(unsigned-byte 16)
+  #-rune-is-utf-16
+  `(unsigned-byte 32))

 (deftype octet ()
  `(unsigned-byte 8))