[cmucl-cvs] [git] CMU Common Lisp branch master updated. 20d-11-g3de1b87

[Raymond Toy]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  3de1b873641f0bec715d1af6d31ff39aa6a370dd (commit)
      from  38f32e9f4aed41488e8094162292f923767d06e3 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 3de1b873641f0bec715d1af6d31ff39aa6a370dd
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Mon Nov 19 22:42:47 2012 -0800

    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
--- 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))))))

-----------------------------------------------------------------------

Summary of changes:
 src/code/extfmts.lisp |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp