From 3de1b873641f0bec715d1af6d31ff39aa6a370dd Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Mon, 19 Nov 2012 22:42:47 -0800 Subject: [PATCH] Oops. Need to tell precompile-ef-slot about +ef-osc+. --- src/code/extfmts.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/code/extfmts.lisp b/src/code/extfmts.lisp index 7308b5d5e..a389dcb9b 100644 --- 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)))))) -- GitLab