1.0.18.16: many STYLE-WARNING changes.

[sbcl.git] / src / code / external-formats / mb-util.lisp

diff --git a/src/code/external-formats/mb-util.lisp b/src/code/external-formats/mb-util.lisp
index ecac8fa..e60dfed 100644 (file)
--- 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))
        )))