Changeset 6576


Ignore:
Timestamp:
May 20, 2007, 1:05:47 AM (18 years ago)
Author:
Gary Byers
Message:

Get number of args right in call to STRING-ENCODED-LENGTH-IN-BYTES
from CSTRING-ENCODED-LENGTH-IN-BYTES. Sorry.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-1/l1-unicode.lisp

    r6560 r6576  
    46314631(defun cstring-encoded-length-in-bytes (encoding string start end)
    46324632  (+ (ash (character-encoding-code-unit-size encoding) -3) ; NUL terminator
    4633      (string-encoded-length-in-bytes string start end)))
     4633     (string-encoded-length-in-bytes encoding string start end)))
    46344634
    46354635                   
Note: See TracChangeset for help on using the changeset viewer.