Changeset 2767

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

%encode-string now native for sbcl

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r2766 r2767  
    193193 
    194194(defun %encode-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)))) 
     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) 
     198             #+sbcl(sb-ext:string-to-octets string :external-format :utf-8) 
     199             #-sbcl(string-to-octets-portably string))) 
    197200    (let ((octets (string-to-octets object))) 
    198201      (%encode-integer (length octets) stream)