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