/[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.36 by rtoy, Wed Aug 4 02:56:36 2010 UTC revision 1.37 by rtoy, Sat Aug 14 23:18:03 2010 UTC
# Line 649  character and illegal outputs are replac Line 649  character and illegal outputs are replac
649    (code-to-octets (code state output error)    (code-to-octets (code state output error)
650      `(,output (if (> ,code 255)      `(,output (if (> ,code 255)
651                    (if ,error                    (if ,error
652                        (funcall ,error                        (locally
653                                 (intl:gettext "Cannot output codepoint #x~X to ISO8859-1 stream")                            ;; No warnings about fdefinition
654                                 ,code 1)                            (declare (optimize (ext:inhibit-warnings 3)))
655                            (funcall ,error
656                                     (intl:gettext "Cannot output codepoint #x~X to ISO8859-1 stream")
657                                     ,code 1))
658                        #x3F)                        #x3F)
659                    ,code))))                    ,code))))
660    

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

  ViewVC Help
Powered by ViewVC 1.1.5