(FILECREATED " 2-Jun-86 17:39:21" {ERIS}<LISPCORE>LIBRARY>CMLLOAD.;4
 2365   

      changes to:  (FNS CL:LOAD)
                   (VARS CMLLOADCOMS *LOAD-PRINT-STUFF* *LOAD-VERBOSE*)
                   (VARIABLES *LOAD-PRINT-STUFF* *LOAD-VERBOSE*)
                   (FUNCTIONS CAPITALIZE-WORDS)

      previous date: " 2-Jun-86 17:12:02" {ERIS}<LISPCORE>LIBRARY>CMLLOAD.;2)


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

(PRETTYCOMPRINT CMLLOADCOMS)

(RPAQQ CMLLOADCOMS
 ((FNS CL:LOAD)
                    (VARIABLES *LOAD-PRINT-STUFF* *LOAD-VERBOSE*)
                    (PROP FILETYPE CMLLOAD)))
(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 (LIST (QUOTE CLOSEF)
                                       F))
               (if *LOAD-VERBOSE* then (FORMAT T "; loading ~A at ~A ~&" (FULLNAME F)
                                              (DATE)))
               (until (PROGN (SKIPSEPRS F *READTABLE*)
                             (EOFP F))
                      do
                      (LET ((EXPR (CL:READ F)))
                           (CL:IF (SYMBOLP EXPR)
                                  (CL:IF *LOAD-PRINT-STUFF* (PRINT (LAPRD EXPR)
                                                                   T)
                                         (LAPRD EXPR))
                                  (CL:IF *LOAD-PRINT-STUFF* (PRINT (CL:EVAL EXPR)
                                                                   T)
                                         (CL:EVAL EXPR))))))
        FILENAME))

(DEFVAR *LOAD-PRINT-STUFF*
 NIL "Default value for :PRINT keyword to LOAD")

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


(PUTPROPS CMLLOAD FILETYPE
 COMPILE-FILE)
(PUTPROPS CMLLOAD COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP