Changeset 2768

Show
Ignore:
Timestamp:
03/19/08 18:15:25 (10 months ago)
Author:
ksprotte
Message:

some enhancements to %encode-string

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/datastore/src/data/encoding.lisp

    r2767 r2768  
    193193 
    194194(defun %encode-string (object stream) 
    195   (labels ((string-to-octets-portably (string) 
    196              (flexi-streams:string-to-octets string :external-format #.(flexi-streams:make-external-format :utf-8))) 
    197            (string-to-octets (string) 
     195  (labels ((string-to-octets (string) 
    198196             #+sbcl(sb-ext:string-to-octets string :external-format :utf-8) 
    199              #-sbcl(string-to-octets-portably string))) 
     197             #-sbcl(flexi-streams:string-to-octets string :external-format #.(flexi-streams:make-external-format :utf-8)))) 
    200198    (let ((octets (string-to-octets object))) 
    201199      (%encode-integer (length octets) stream)