/[cmucl]/src/code/extfmts.lisp
ViewVC logotype

Diff of /src/code/extfmts.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2.4.3.2.20 by rtoy, Mon May 18 23:54:37 2009 UTC revision 1.2.4.3.2.21 by rtoy, Wed May 20 21:47:36 2009 UTC
# Line 512  Line 512 
512             (let ((,code (octets-to-codepoint ,external-format             (let ((,code (octets-to-codepoint ,external-format
513                                              (cdr ,s) ,count ,input ,unput)))                                              (cdr ,s) ,count ,input ,unput)))
514               (declare (type (unsigned-byte 31) ,code))               (declare (type (unsigned-byte 31) ,code))
515               (cond ((or (<= #xD800 ,code #xDFFF)               (cond ((or (lisp::surrogatep ,code)
516                          (> ,code #x10FFFF))                          (> ,code #x10FFFF))
517                      #-(and unicode (not unicode-bootstrap)) #\?                      #-(and unicode (not unicode-bootstrap)) #\?
518                      #+(and unicode (not unicode-bootstrap)) #\U+FFFD)                      #+(and unicode (not unicode-bootstrap)) #\U+FFFD)

Legend:
Removed from v.1.2.4.3.2.20  
changed lines
  Added in v.1.2.4.3.2.21

  ViewVC Help
Powered by ViewVC 1.1.5