;System Local-File made by fileserver at 7-Nov-88 17:24:29  -*-Mode: Lisp; Package: User; Base: 10-*-

;;; Written 7-Nov-88 17:24:29 by fileserver at site Gigamos Cambridge
;;; while running on Djinn from band 1
;;; with Experimental ZMail 74.15, 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 129.0, Experimental ZWEI 127.0, Microcode 1762, SDU Boot Tape 3.14, SDU ROM 102, 11/04.

;-*-Mode: Lisp; Package: User; Base: 10. -*-
(SI:RELOAD-FILE-WARNINGS
  '#FS::LOGICAL-PATHNAME "SYS: FILE; FSDEFS LISP >"
  '((:COMPILE NIL
     (FS::FILE-ATTRIBUTE NIL NIL
      (COMPILER::INVALID-BYTE-SPEC :NOT-PORTABLE NIL "LDB-TEST called with a call to GET as a BYTE specifier (this may not be portable)"))
     (FS::WITH-MAP-STREAM-OUT NIL NIL
      (COMPILER::OBSOLETE :OBSOLETE NIL "~S ~A." DEFMACRO-DISPLACE "is an obsolete form; it is now identical to DEFMACRO")
      (SI::PREMATURE-WARNING-MARKER NIL NIL "The problems described above were in data preceding the definition of ~S." FS::WITH-MAP-STREAM-OUT))
     (FS::DEFINE-ERRORS NIL NIL
      (COMPILER::OBSOLETE :OBSOLETE NIL "~S ~A." COMPILER::ADD-OPTIMIZER "is an obsolete form; use defoptimzer or defrewrite")
      (SI::PREMATURE-WARNING-MARKER NIL NIL "The problems described above were in data preceding the definition of ~S." FS::DEFINE-ERRORS)))))
;-*-Mode: Lisp; Package: User; Base: 10. -*-
(SI:RELOAD-FILE-WARNINGS
  '#FS::LOGICAL-PATHNAME "SYS: FILE; FSSTR LISP >"
  '((:COMPILE NIL
     ((:METHOD FS::LM-DATA-STREAM-MIXIN :DELETE) 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"))
     ((:METHOD FS::LM-DATA-STREAM-MIXIN :RENAME) 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"))
     ((:METHOD FS::LM-DATA-STREAM-MIXIN :CHANGE-PROPERTIES) 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: FILE; FSGUTS LISP >"
  '((:COMPILE NIL
     (FS::FIND-LM-BAND NIL NIL
      (SI::EXTRA-PROCESSORS :IMPLAUSIBLE NIL "A ~S expression failed to give alternatives for ~S" SELECT-PROCESSOR (:FALCON)))
     (FS::LMFS-DELETE-DIRECTORY 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"))
     (FS::LMFS-OPEN-FILE 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"))
     (FS::LMFS-DIRECTORY-LIST 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"))
     (FS::LMFS-ALL-DIRECTORIES 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"))
     (FS::MAKE-DIRECTORY-ALIST NIL NIL
      (COMPILER::ART-Q-LIST-WARNING :NOT-PORTABLE NIL "~S called with :TYPE ART-Q-LIST (this may not be portable)" MAKE-ARRAY))
     (FS::MAKE-SUBDIRECTORY-ALIST NIL NIL
      (COMPILER::ART-Q-LIST-WARNING :NOT-PORTABLE NIL "~S called with :TYPE ART-Q-LIST (this may not be portable)" MAKE-ARRAY))
     (FS::MAKE-FILE-NAME-ALIST NIL NIL
      (COMPILER::ART-Q-LIST-WARNING :NOT-PORTABLE NIL "~S called with :TYPE ART-Q-LIST (this may not be portable)" MAKE-ARRAY))
     (FS::PRINT-BRIEF-ATTRIBUTE-DESCRIPTION-IN-BRACKETS NIL NIL
      (COMPILER::INVALID-BYTE-SPEC :NOT-PORTABLE NIL "LDB-TEST called with a call to 1+ as a BYTE specifier (this may not be portable)"))
     (FS::LOOKUP-SUBDIRECTORY-STEP NIL NIL
      (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" FS::GIVE-FILE-GENERATION-NUMBER))
     (FS::LMFS-OPEN-OUTPUT-FILE NIL NIL
      (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" FS::GIVE-FILE-GENERATION-NUMBER)))))
;-*-Mode: Lisp; Package: User; Base: 10. -*-
(SI:RELOAD-FILE-WARNINGS
  '#FS::LOGICAL-PATHNAME "SYS: FILE; FSACC LISP >"
  '((:COMPILE NIL
     ((:METHOD FS::LOCAL-FILE-ACCESS :CHANGE-PROPERTIES) 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"))
     ((:METHOD FS::LOCAL-FILE-ACCESS :PROPERTIES) 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"))
     ((:METHOD FS::LOCAL-FILE-ACCESS :CREATE-DIRECTORY) 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"))
     ((:METHOD FS::LOCAL-FILE-ACCESS :CREATE-LINK) 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"))
     ((:METHOD FS::LOCAL-FILE-ACCESS :REMOTE-CONNECT) 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"))
     ((:METHOD FS::LOCAL-FILE-ACCESS :RENAME) 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"))
     ((:METHOD FS::LOCAL-FILE-ACCESS :DELETE) 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"))
     ((:METHOD FS::LOCAL-FILE-ACCESS :EXPUNGE) 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"))
     ((:METHOD FS::LOCAL-FILE-ACCESS :DELETE-MULTIPLE-FILES) 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: FILE; FSACL LISP >"
  '((:COMPILE NIL)))