X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fexternal-formats%2Fmb-util.lisp;h=e60dfed55adbf745109576e300c5cbe134b73d7d;hb=5d04a95274c9ddaebbcd6ddffc5d646e2c25598c;hp=ecac8fa8a0b09bc933198e50e193e43fbf40dbed;hpb=0d5ff04e2ced1cbb2979dd1a7fcfd7ba3d6da7c1;p=sbcl.git

diff --git a/src/code/external-formats/mb-util.lisp b/src/code/external-formats/mb-util.lisp
index ecac8fa..e60dfed 100644
--- a/src/code/external-formats/mb-util.lisp
+++ b/src/code/external-formats/mb-util.lisp
@@ -81,7 +81,7 @@
                              ;; two-byte sequence `"initial (length 3)"
                              ;; "non-continuation"' -- `#xef #x32')
                              ;; signal only part of that sequence as
-                             ;; erronous.
+                             ;; erroneous.
                              (loop for i from 1 below (min len remaining-bytes)
                                 always (valid-secondary-p i))
                              (enough-bytes-left-p len))))
@@ -276,7 +276,7 @@
 
        (instantiate-octets-definition ,define-mb->string)
 
-       (push '(,aliases
-               ,(make-od-name format '>string-aref) ,string->mb)
-             *external-format-functions*)
+       (add-external-format-funs ',aliases
+                                 '(,(make-od-name format '>string-aref)
+                                   ,string->mb))
        )))