Changeset 2766

Show
Ignore:
Timestamp:
03/19/08 17:34:29 (10 months ago)
Author:
ksprotte
Message:

changed %encode-string for new encoding scheme

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r2764 r2766  
    193193 
    194194(defun %encode-string (object stream) 
    195   (%encode-integer (length object) stream) 
    196   #+allegro 
    197   (excl::stream-write-sequence stream object) 
    198   #-allegro 
    199   (%write-string object stream)) 
     195  (labels ((string-to-octets (string) 
     196             (flexi-streams:string-to-octets string :external-format #.(flexi-streams:make-external-format :utf-8)))) 
     197    (let ((octets (string-to-octets object))) 
     198      (%encode-integer (length octets) stream) 
     199      (write-sequence octets stream)))) 
    200200 
    201201(defun encode-string (object stream)