X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fearly-fasl.lisp;h=a6259dba4df3bffa71de49ee2eef5ac7064c28af;hb=b0b168c08b31a748150f404398af754f26fd4813;hp=22c662546b5bfd1aa41fdc745d1e326fea50ac86;hpb=9514c25e89aad10784c6d04fea4595d8c8ae68cc;p=sbcl.git

diff --git a/src/code/early-fasl.lisp b/src/code/early-fasl.lisp
index 22c6625..a6259db 100644
--- a/src/code/early-fasl.lisp
+++ b/src/code/early-fasl.lisp
@@ -110,14 +110,14 @@
 
 ;;;; the FOP database
 
-(declaim (simple-vector *fop-names* *fop-functions*))
+(declaim (simple-vector *fop-names* *fop-funs*))
 
 ;;; a vector indexed by a FaslOP that yields the FOP's name
 (defvar *fop-names* (make-array 256 :initial-element nil))
 
 ;;; a vector indexed by a FaslOP that yields a function of 0 arguments
 ;;; which will perform the operation
-(defvar *fop-functions*
+(defvar *fop-funs*
   (make-array 256
 	      :initial-element (lambda ()
 				 (error "corrupt fasl file: losing FOP"))))
@@ -134,7 +134,7 @@
 
 ;;; the FASL file we're reading from
 (defvar *fasl-input-stream*)
-(declaim (type lisp-stream *fasl-input-stream*))
+(declaim (type ansi-stream *fasl-input-stream*))
 
 (defvar *load-print* nil
   #!+sb-doc