(instantiate-octets-definition define-ucs-2->string)
(define-external-format/variable-width (:ucs-2le :ucs2le #!+win32 :ucs2 #!+win32 :ucs-2) t
+ (code-char #xfffd)
2
(if (< bits #x10000)
(setf (sap-ref-16le sap tail) bits)
string->ucs-2le)
(define-external-format/variable-width (:ucs-2be :ucs2be) t
+ (code-char #xfffd)
2
(if (< bits #x10000)
(setf (sap-ref-16be sap tail) bits)