(FILECREATED " 2-Jun-86 17:11:22" {ERIS}<LISPCORE>LIBRARY>CMLLOAD.;1
 1591   

      changes to:  (VARS CMLLOADCOMS)
                   (FNS CL:LOAD)
                   (VARIABLES *LOAD-VERBOSE*))


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT CMLLOADCOMS)

(RPAQQ CMLLOADCOMS
 ((FNS CL:LOAD)
                    (VARIABLES *LOAD-VERBOSE*)))
(DEFUN CL:LOAD
 (FILENAME &KEY ((:VERBOSE *LOAD-VERBOSE*)
                               *LOAD-VERBOSE*)
                      ((:PRINT *LOAD-PRINT-STUFF*)
                       *LOAD-PRINT-STUFF*)
                      (IF-DOES-NOT-EXIST :ERROR)) 
                                        "Loads the file named by Filename into the Lisp environment."
   (LET ((*PACKAGE* *PACKAGE*)
         (F (OR (STREAMP FILENAME)
                (OPENSTREAM FILENAME (QUOTE INPUT)))         (* SHOULD USE IF-DOES-NOT-EXIST)

            )
         (*NOT-LOADING-FILE* NIL))
        (RESETLST (RESETSAVE NIL (BQUOTE (CLOSEF %, F)))
               (IF VERBOSE THEN (FORMAT T "; loading ~A at ~A ~&" (FULLNAME F)
                                       (DATE)))
               (until (PROGN (SKIPSEPRS F *READTABLE*)
                             (EOFP F))
                      do
                      (CL:IF PRINT (PRINT (CL:EVAL (CL:READ F))
                                          T)
                             (CL:EVAL (CL:READ F)))))
        FILENAME))

(DEFVAR *LOAD-VERBOSE*
 NIL "Default for VERBOSE keyword to LOAD.")

(PUTPROPS CMLLOAD COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP