Changeset 5249


Ignore:
Timestamp:
Sep 24, 2006, 3:27:18 AM (18 years ago)
Author:
Gary Byers
Message:

Doh! character constant fasl encoding ($fasl-char).

Location:
trunk/ccl
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-0/nfasload.lisp

    r5134 r5249  
    362362
    363363(deffaslop $fasl-char (s)
    364   (%epushval s (code-char (%fasl-read-byte s))))
     364  (%epushval s (code-char (%fasl-read-count s))))
    365365
    366366;;; Deprecated

  • trunk/ccl/lib/nfcomp.lisp

    r5058 r5249  
    14531453  (let ((code (%char-code char)))
    14541454    (fasl-out-opcode $fasl-char char)
    1455     (fasl-out-byte code)))
     1455    (fasl-out-count code)))
    14561456
    14571457;;; Always write big-endian.

  • trunk/ccl/xdump/xfasload.lisp

    r5169 r5249  
    11071107;;; fasl-char: maybe epush, return target representation of BASE-CHARACTER
    11081108(defxloadfaslop $fasl-char (s)
    1109   (let* ((code (%fasl-read-byte s))
     1109  (let* ((code (%fasl-read-count s))
    11101110         (target-char (logior *xload-target-subtag-char*
    11111111                              (ash code *xload-target-charcode-shift*))))
Note: See TracChangeset for help on using the changeset viewer.