1.0.5.34: faster STRING-TO-OCTETS for unibyte and UTF-8 encodings

[sbcl.git] / src / code / external-formats / ucs-2.lisp

diff --git a/src/code/external-formats/ucs-2.lisp b/src/code/external-formats/ucs-2.lisp
index 2aea2df..fc1d4bd 100644 (file)
--- a/src/code/external-formats/ucs-2.lisp
+++ b/src/code/external-formats/ucs-2.lisp
@@ -209,10 +209,8 @@
 
 (instantiate-octets-definition define-ucs-2->string)
 
-(pushnew '((:ucs-2le :ucs2le #!+win32 :ucs2 #!+win32 :ucs-2)
-           ucs-2le->string-aref string->ucs-2le)
-         *external-format-functions*)
+(add-external-format-funs '(:ucs-2le :ucs2le #!+win32 :ucs2 #!+win32 :ucs-2)
+                          '(ucs-2le->string-aref string->ucs-2le))
 
-(pushnew '((:ucs-2be :ucs2be)
-           ucs-2be->string-aref string->ucs-2be)
-         *external-format-functions*)
+(add-external-format-funs '(:ucs-2be :ucs2be)
+                          '(ucs-2be->string-aref string->ucs-2be))