;System System made by keith at 28-Oct-88 16:29:32  -*-Mode: Lisp; Package: User; Base: 10-*-

;;; Written 28-Oct-88 16:29:32 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Djinn from band 4
;;; with Experimental ZWEI 126.27, Experimental ZMail 74.13, Experimental Local-File 76.0, Experimental File-Server 25.0, Experimental Lambda-Diag 18.0, Experimental Unix-Interface 15.0, Experimental Tape 26.4, Experimental System 128.0, Microcode 1762, SDU Boot Tape 3.14, SDU ROM 102, 10/27.

;-*-Mode: Lisp; Package: User; Base: 10. -*-
(SI:RELOAD-FILE-WARNINGS
  '#FS::LOGICAL-PATHNAME "SYS: SYS; QCCOLD LISP >"
  '((:COMPILE NIL)))
;-*-Mode: Lisp; Package: User; Base: 10. -*-
(SI:RELOAD-FILE-WARNINGS
  '#FS::LOGICAL-PATHNAME "SYS: SYS; QRAND LISP >"
  '((:COMPILE NIL
     (SI::MAYBE-CHANGE-FEF-TYPE NIL NIL
      (COMPILER::INVALID-BYTE-SPEC :NOT-PORTABLE NIL "DPB called with a call to LOGAND as a BYTE specifier (this may not be portable)"))
     (SI::FUNCTION-SPEC-DEFAULT-HANDLER NIL NIL
      (COMPILER::OBSOLETE :OBSOLETE NIL "~S ~A." WITH-STACK-LIST "is an obsolete form; most processor-dependent functions will go away in a future release")))))
;-*-Mode: Lisp; Package: User; Base: 10. -*-
(SI:RELOAD-FILE-WARNINGS
  '#FS::LOGICAL-PATHNAME "SYS: SYS; QCCOLD LISP >"
  '((:COMPILE NIL)))
;-*-Mode: Lisp; Package: User; Base: 10. -*-
(SI:RELOAD-FILE-WARNINGS
  '#FS::LOGICAL-PATHNAME "SYS: SYS; QCDEFS LISP >"
  '((:COMPILE NIL
     ((:PROPERTY COMPILER::COMPILER-TEMPORARIES-RESOURCE SI::RESOURCE-CONSTRUCTOR) NIL NIL
      (COMPILER::ART-Q-LIST-WARNING :NOT-PORTABLE NIL "~S called with :TYPE ART-Q-LIST (this may not be portable)" MAKE-ARRAY)))))
;-*-Mode: Lisp; Package: User; Base: 10. -*-
(SI:RELOAD-FILE-WARNINGS
  '#FS::LOGICAL-PATHNAME "SYS: NETWORK; IP-TCP; SERVER; FTP LISP >"
  '((:COMPILE NIL
     (FTP::FTP-STORE-1 NIL NIL
      (COMPILER::NOT-USED :IMPLAUSIBLE NIL "The variable ~S is bound but never used." FTP::IS))
     (FTP::GET-FTP-DATA-CONNECTION NIL NIL
      (SYSTEM:READ-ERROR :ERROR NIL "~A" "The special token GLOBAL:CLOSE was read in at top level.")
      (SYSTEM:READ-ERROR :ERROR NIL "~A" "The special token GLOBAL:CLOSE was read in at top level.")
      (SYSTEM:READ-ERROR :ERROR NIL "~A" "The special token GLOBAL:CLOSE was read in at top level.")
      (COMPILER::ATOM-AT-TOP-LEVEL :IMPLAUSIBLE NIL "The atom ~S appeared at top level; this would do nothing at FASLOAD time." :DIRECTION)
      (COMPILER::ATOM-AT-TOP-LEVEL :IMPLAUSIBLE NIL "The atom ~S appeared at top level; this would do nothing at FASLOAD time." :OUTPUT)
      (COMPILER::ATOM-AT-TOP-LEVEL :IMPLAUSIBLE NIL "The atom ~S appeared at top level; this would do nothing at FASLOAD time." NIL)
      (COMPILER::ATOM-AT-TOP-LEVEL :IMPLAUSIBLE NIL "The atom ~S appeared at top level; this would do nothing at FASLOAD time." NIL)
      (COMPILER::ATOM-AT-TOP-LEVEL :IMPLAUSIBLE NIL "The atom ~S appeared at top level; this would do nothing at FASLOAD time." NIL)
      (SI::PREMATURE-WARNING-MARKER NIL NIL "The problems described above were in data preceding the definition of ~S." FTP::GET-FTP-DATA-CONNECTION)))))