CMUCL commit: src/compiler (fndb.lisp)

[Raymond Toy]

    Date: Saturday, July 3, 2010 @ 10:47:50
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/compiler

Modified: fndb.lisp

Oops.  Add types for :DECODING-ERROR and :ENCODING-ERROR keyword
parameters. 


-----------+
 fndb.lisp |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)


Index: src/compiler/fndb.lisp
diff -u src/compiler/fndb.lisp:1.144 src/compiler/fndb.lisp:1.145
--- src/compiler/fndb.lisp:1.144	Sat Jul  3 10:13:57 2010
+++ src/compiler/fndb.lisp	Sat Jul  3 10:47:49 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/fndb.lisp,v 1.144 2010-07-03 14:13:57 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/fndb.lisp,v 1.145 2010-07-03 14:47:49 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1096,8 +1096,8 @@
 		       (:mapped boolean)
 		       (:input-handle (or null fixnum stream))
 		       (:output-handle (or null fixnum stream))
-		       :decoding-error
-		       :encoding-error
+		       (:decoding-error (or null symbol function))
+		       (:encoding-error (or null symbol function))
 		  &allow-other-keys)
   (or stream null)
   ()