Oops. Need to tell precompile-ef-slot about +ef-osc+.

diff --git a/src/code/extfmts.lisp b/src/code/extfmts.lisp
index 7308b5d..a389dcb 100644 (file)
--- a/src/code/extfmts.lisp
+++ b/src/code/extfmts.lisp
@@ -1171,7 +1171,8 @@ character and illegal outputs are replaced by a question mark.")
        (#.+ef-os+ (%ef-octets-to-string ef))
        (#.+ef-so+ (%ef-string-to-octets ef))
        (#.+ef-en+ (%ef-encode ef))
-       (#.+ef-de+ (%ef-decode ef))))
+       (#.+ef-de+ (%ef-decode ef))
+       (#.+ef-osc+ (%ef-octets-to-string-counted ef))))
     `(setf (aref (ef-cache (find-external-format ,(ef-name ef))) ,slot)
         ,(subst (ef-name ef) ef
                 (function-lambda-expression (aref (ef-cache ef) slot))))))