; -*- Mode:TEXT -*-
; This is the UNFASL for DJ: L.SYS; INNER-SYSTEM-FILE-ALIST.QFASL#27



(SI::FASL-OP-VERSION-INFO
  (SYSTEM:FASL-OP-PACKAGE-SYMBOL
    (SYSTEM:FASL-OP-STRING "")
    (SYSTEM:FASL-OP-STRING "LAMBDA")
    <:LAMBDA>)
  (SYSTEM:FASL-OP-FIXED 2))

(SYSTEM:FASL-OP-END-OF-WHACK)

(SYSTEM:FASL-OP-FILE-PROPERTY-LIST
  (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-STRING "")
      (SYSTEM:FASL-OP-STRING "COMPILE-DATA")
      <:COMPILE-DATA>)
    (SYSTEM:FASL-OP-LIST [6] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-STRING "keith")
      (SYSTEM:FASL-OP-STRING "Djinn")
      (SYSTEM:FASL-OP-FIXED 2803513635)
      (SYSTEM:FASL-OP-FIXED 128)
      (SYSTEM:FASL-OP-FIXED 0)
      (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-STRING "COMPILER")
          (SYSTEM:FASL-OP-STRING "NEW-DESTINATIONS")
          <COMPILER:NEW-DESTINATIONS>)
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-STRING "GLOBAL")
          (SYSTEM:FASL-OP-STRING "T")
          <GLOBAL:T>)
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-INDEX [32] {""})
          (SYSTEM:FASL-OP-STRING "SITE")
          <:SITE>)
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-INDEX [32] {""})
          (SYSTEM:FASL-OP-STRING "LMI")
          <:LMI>)
       => (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>))
     => ("keith" "Djinn" 2803513635 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)))
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "QFASL-SOURCE-FILE-UNIQUE-ID")
      <:QFASL-SOURCE-FILE-UNIQUE-ID>)
    (SYSTEM:FASL-OP-EVAL1
      (SYSTEM:FASL-OP-LIST [7] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-STRING "FS")
          (SYSTEM:FASL-OP-STRING "MAKE-FASLOAD-PATHNAME")
          <FS:MAKE-FASLOAD-PATHNAME>)
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-PACKAGE-SYMBOL
            (SYSTEM:FASL-OP-INDEX [43] {"GLOBAL"})
            (SYSTEM:FASL-OP-STRING "QUOTE")
            <GLOBAL:QUOTE>)
          (SYSTEM:FASL-OP-STRING "DJ")
         => (<GLOBAL:QUOTE> "DJ"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (SYSTEM:FASL-OP-STRING "DSK")
         => (<GLOBAL:QUOTE> "DSK"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "L")
            (SYSTEM:FASL-OP-STRING "SYS")
           => ("L" "SYS"))
         => (<GLOBAL:QUOTE> ("L" "SYS")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (SYSTEM:FASL-OP-STRING "INNER-SYSTEM-FILE-ALIST")
         => (<GLOBAL:QUOTE> "INNER-SYSTEM-FILE-ALIST"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (SYSTEM:FASL-OP-STRING "LISP")
         => (<GLOBAL:QUOTE> "LISP"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (SYSTEM:FASL-OP-FIXED 27)
         => (<GLOBAL:QUOTE> 27))
       => (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "INNER-SYSTEM-FILE-ALIST") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 27)))
      (EVAL '(<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "INNER-SYSTEM-FILE-ALIST") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 27))))
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "READTABLE")
      <:READTABLE>)
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "ZL")
      <:ZL>)
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "BASE")
      <:BASE>)
    (SYSTEM:FASL-OP-FIXED 10)
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "PACKAGE")
      <:PACKAGE>)
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "SYSTEM-INTERNALS")
      <:SYSTEM-INTERNALS>)
   => (<:COMPILE-DATA> ("keith" "Djinn" 2803513635 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (SI::**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "INNER-SYSTEM-FILE-ALIST") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 27)))) <:READTABLE> <:ZL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)))

(SYSTEM:FASL-OP-LIST [33] Area=WORKING-STORAGE-AREA
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS2; DEFSEL QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SYS2; DEFSEL QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS2; RESOUR QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SYS2; RESOUR QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS; QMISC QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SYS; QMISC QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS; DESCRIBE QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SYS; DESCRIBE QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS; SORT QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SYS; SORT QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: IO; FORMAT QFASL >")
    (SYSTEM:FASL-OP-STRING "FORMAT")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: IO; FORMAT QFASL >" "FORMAT" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: IO1; FQUERY QFASL >")
    (SYSTEM:FASL-OP-STRING "FORMAT")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: IO1; FQUERY QFASL >" "FORMAT" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS2; HASH QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SYS2; HASH QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS2; FLAVOR QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SYS2; FLAVOR QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS2; HASHFL QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SYS2; HASHFL QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS2; PRODEF QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SYS2; PRODEF QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS2; PROCES QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SYS2; PROCES QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS2; NUMER QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SYS2; NUMER QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: DEBUGGER; EH QFASL >")
    (SYSTEM:FASL-OP-STRING "EH")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: DEBUGGER; EH QFASL >" "EH" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: DEBUGGER; EHF QFASL >")
    (SYSTEM:FASL-OP-STRING "EH")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: DEBUGGER; EHF QFASL >" "EH" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: DEBUGGER; TRAP QFASL >")
    (SYSTEM:FASL-OP-STRING "EH")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: DEBUGGER; TRAP QFASL >" "EH" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: DEBUGGER; CONDITION-FLAVORS QFASL >")
    (SYSTEM:FASL-OP-STRING "EH")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: DEBUGGER; CONDITION-FLAVORS QFASL >" "EH" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: DEBUGGER; EHC QFASL >")
    (SYSTEM:FASL-OP-STRING "EH")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: DEBUGGER; EHC QFASL >" "EH" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: DEBUGGER; EHBPT QFASL >")
    (SYSTEM:FASL-OP-STRING "EH")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: DEBUGGER; EHBPT QFASL >" "EH" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS2; DISASS QFASL >")
    (SYSTEM:FASL-OP-STRING "COMPILER")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SYS2; DISASS QFASL >" "COMPILER" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: IO; NEW-DISK QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: IO; NEW-DISK QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: IO; DISK QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: IO; DISK QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: IO; UDISK QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: IO; UDISK QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: IO; DLEDIT QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: IO; DLEDIT QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS2; LOGIN QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SYS2; LOGIN QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: IO; RDDEFS QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: IO; RDDEFS QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: NETWORK; PACKAGES QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: NETWORK; PACKAGES QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: NETWORK; HOST QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: NETWORK; HOST QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: IO; FILE; ACCESS QFASL >")
    (SYSTEM:FASL-OP-STRING "FS")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: IO; FILE; ACCESS QFASL >" "FS" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: NETWORK; TRANSPARENT QFASL >")
    (SYSTEM:FASL-OP-STRING "NETWORK")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: NETWORK; TRANSPARENT QFASL >" "NETWORK" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: IO; STREAM QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: IO; STREAM QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: LAMBDA-DIAG; LAM-PACKAGE QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: LAMBDA-DIAG; LAM-PACKAGE QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: IO; FILE; PATHNM QFASL >")
    (SYSTEM:FASL-OP-STRING "FS")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: IO; FILE; PATHNM QFASL >" "FS" <GLOBAL:T>))
 => (("SYS: SYS2; DEFSEL QFASL >" "SI" <GLOBAL:T>) ("SYS: SYS2; RESOUR QFASL >" "SI" <GLOBAL:T>) ("SYS: SYS; QMISC QFASL >" "SI" <GLOBAL:T>) ("SYS: SYS; DESCRIBE QFASL >" "SI" <GLOBAL:T>) ("SYS: SYS; SORT QFASL >" "SI" <GLOBAL:T>) ("SYS: IO; FORMAT QFASL >" "FORMAT" <GLOBAL:T>) ("SYS: IO1; FQUERY QFASL >" "FORMAT" <GLOBAL:T>) ("SYS: SYS2; HASH QFASL >" "SI" <GLOBAL:T>) ("SYS: SYS2; FLAVOR QFASL >" "SI" <GLOBAL:T>) ("SYS: SYS2; HASHFL QFASL >" "SI" <GLOBAL:T>) ("SYS: SYS2; PRODEF QFASL >" "SI" <GLOBAL:T>) ("SYS: SYS2; PROCES QFASL >" "SI" <GLOBAL:T>) ("SYS: SYS2; NUMER QFASL >" "SI" <GLOBAL:T>) ("SYS: DEBUGGER; EH QFASL >" "EH" <GLOBAL:T>) ("SYS: DEBUGGER; EHF QFASL >" "EH" <GLOBAL:T>) ("SYS: DEBUGGER; TRAP QFASL >" "EH" <GLOBAL:T>) ("SYS: DEBUGGER; CONDITION-FLAVORS QFASL >" "EH" <GLOBAL:T>) ("SYS: DEBUGGER; EHC QFASL >" "EH" <GLOBAL:T>) ("SYS: DEBUGGER; EHBPT QFASL >" "EH" <GLOBAL:T>) ("SYS: SYS2; DISASS QFASL >" "COMPILER" <GLOBAL:T>) ("SYS: IO; NEW-DISK QFASL >" "SI" <GLOBAL:T>) ("SYS: IO; DISK QFASL >" "SI" <GLOBAL:T>) ("SYS: IO; UDISK QFASL >" "SI" <GLOBAL:T>) ("SYS: IO; DLEDIT QFASL >" "SI" <GLOBAL:T>) ("SYS: SYS2; LOGIN QFASL >" "SI" <GLOBAL:T>) ("SYS: IO; RDDEFS QFASL >" "SI" <GLOBAL:T>) ("SYS: NETWORK; PACKAGES QFASL >" "SI" <GLOBAL:T>) ("SYS: NETWORK; HOST QFASL >" "SI" <GLOBAL:T>) ("SYS: IO; FILE; ACCESS QFASL >" "FS" <GLOBAL:T>) ("SYS: NETWORK; TRANSPARENT QFASL >" "NETWORK" <GLOBAL:T>) ("SYS: IO; STREAM QFASL >" "SI" <GLOBAL:T>) ("SYS: LAMBDA-DIAG; LAM-PACKAGE QFASL >" "SI" <GLOBAL:T>) ("SYS: IO; FILE; PATHNM QFASL >" "FS" <GLOBAL:T>)))

(SYSTEM:FASL-OP-STOREIN-SYMBOL-VALUE [208] {NIL}
  (SYSTEM:FASL-OP-SYMBOL <INNER-SYSTEM-FILE-ALIST>))

(SYSTEM:FASL-OP-LIST [24] Area=WORKING-STORAGE-AREA
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: IO; FILE; PATHST QFASL >")
    (SYSTEM:FASL-OP-STRING "FS")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: IO; FILE; PATHST QFASL >" "FS" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: FILE; LMPARS QFASL >")
    (SYSTEM:FASL-OP-STRING "FS")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: FILE; LMPARS QFASL >" "FS" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: IO; FILE; OPEN QFASL >")
    (SYSTEM:FASL-OP-STRING "FS")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: IO; FILE; OPEN QFASL >" "FS" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: COLD; SYSCONF QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: COLD; SYSCONF QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS; CONFIG-DEFS QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SYS; CONFIG-DEFS QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS; IOMSG QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SYS; IOMSG QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS; SHARED-DEVICE QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SYS; SHARED-DEVICE QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS; CONFIG QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SYS; CONFIG QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: NETWORK; KERNEL; DEFS QFASL >")
    (SYSTEM:FASL-OP-STRING "NET")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: NETWORK; KERNEL; DEFS QFASL >" "NET" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: NETWORK; KERNEL; LIBRARY QFASL >")
    (SYSTEM:FASL-OP-STRING "NET")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: NETWORK; KERNEL; LIBRARY QFASL >" "NET" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: NETWORK; KERNEL; NETWORK-INTERFACE QFASL >")
    (SYSTEM:FASL-OP-STRING "NET")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: NETWORK; KERNEL; NETWORK-INTERFACE QFASL >" "NET" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: NETWORK; KERNEL; PACKETS QFASL >")
    (SYSTEM:FASL-OP-STRING "NET")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: NETWORK; KERNEL; PACKETS QFASL >" "NET" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: NETWORK; DRIVERS; LOOPBACK QFASL >")
    (SYSTEM:FASL-OP-STRING "NET")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: NETWORK; DRIVERS; LOOPBACK QFASL >" "NET" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: NETWORK; DRIVERS; SHARE QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: NETWORK; DRIVERS; SHARE QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: NETWORK; DRIVERS; DRIVER-PROCESS QFASL >")
    (SYSTEM:FASL-OP-STRING "NET")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: NETWORK; DRIVERS; DRIVER-PROCESS QFASL >" "NET" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: NETWORK; KERNEL; NETWORK-PROTOCOL QFASL >")
    (SYSTEM:FASL-OP-STRING "NET")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: NETWORK; KERNEL; NETWORK-PROTOCOL QFASL >" "NET" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: NETWORK; KERNEL; ARP QFASL >")
    (SYSTEM:FASL-OP-STRING "NET")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: NETWORK; KERNEL; ARP QFASL >" "NET" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: NETWORK; CHAOS; CHSNCP QFASL >")
    (SYSTEM:FASL-OP-STRING "CHAOS")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: NETWORK; CHAOS; CHSNCP QFASL >" "CHAOS" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: NETWORK; CHAOS; CHUSE QFASL >")
    (SYSTEM:FASL-OP-STRING "CHAOS")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: NETWORK; CHAOS; CHUSE QFASL >" "CHAOS" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: NETWORK; CHAOS; QFILE QFASL >")
    (SYSTEM:FASL-OP-STRING "FS")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: NETWORK; CHAOS; QFILE QFASL >" "FS" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: NETWORK; KERNEL; CONFIGURE QFASL >")
    (SYSTEM:FASL-OP-STRING "NET")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: NETWORK; KERNEL; CONFIGURE QFASL >" "NET" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: IO1; TIME QFASL >")
    (SYSTEM:FASL-OP-STRING "TIME")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: IO1; TIME QFASL >" "TIME" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: IO1; TIMPAR QFASL >")
    (SYSTEM:FASL-OP-STRING "TIME")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: IO1; TIMPAR QFASL >" "TIME" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: NETWORK; CHAOS; CHSAUX QFASL >")
    (SYSTEM:FASL-OP-STRING "CHAOS")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: NETWORK; CHAOS; CHSAUX QFASL >" "CHAOS" <GLOBAL:T>))
 => (("SYS: IO; FILE; PATHST QFASL >" "FS" <GLOBAL:T>) ("SYS: FILE; LMPARS QFASL >" "FS" <GLOBAL:T>) ("SYS: IO; FILE; OPEN QFASL >" "FS" <GLOBAL:T>) ("SYS: COLD; SYSCONF QFASL >" "SI" <GLOBAL:T>) ("SYS: SYS; CONFIG-DEFS QFASL >" "SI" <GLOBAL:T>) ("SYS: SYS; IOMSG QFASL >" "SI" <GLOBAL:T>) ("SYS: SYS; SHARED-DEVICE QFASL >" "SI" <GLOBAL:T>) ("SYS: SYS; CONFIG QFASL >" "SI" <GLOBAL:T>) ("SYS: NETWORK; KERNEL; DEFS QFASL >" "NET" <GLOBAL:T>) ("SYS: NETWORK; KERNEL; LIBRARY QFASL >" "NET" <GLOBAL:T>) ("SYS: NETWORK; KERNEL; NETWORK-INTERFACE QFASL >" "NET" <GLOBAL:T>) ("SYS: NETWORK; KERNEL; PACKETS QFASL >" "NET" <GLOBAL:T>) ("SYS: NETWORK; DRIVERS; LOOPBACK QFASL >" "NET" <GLOBAL:T>) ("SYS: NETWORK; DRIVERS; SHARE QFASL >" "SI" <GLOBAL:T>) ("SYS: NETWORK; DRIVERS; DRIVER-PROCESS QFASL >" "NET" <GLOBAL:T>) ("SYS: NETWORK; KERNEL; NETWORK-PROTOCOL QFASL >" "NET" <GLOBAL:T>) ("SYS: NETWORK; KERNEL; ARP QFASL >" "NET" <GLOBAL:T>) ("SYS: NETWORK; CHAOS; CHSNCP QFASL >" "CHAOS" <GLOBAL:T>) ("SYS: NETWORK; CHAOS; CHUSE QFASL >" "CHAOS" <GLOBAL:T>) ("SYS: NETWORK; CHAOS; QFILE QFASL >" "FS" <GLOBAL:T>) ("SYS: NETWORK; KERNEL; CONFIGURE QFASL >" "NET" <GLOBAL:T>) ("SYS: IO1; TIME QFASL >" "TIME" <GLOBAL:T>) ("SYS: IO1; TIMPAR QFASL >" "TIME" <GLOBAL:T>) ("SYS: NETWORK; CHAOS; CHSAUX QFASL >" "CHAOS" <GLOBAL:T>)))

(SYSTEM:FASL-OP-STOREIN-SYMBOL-VALUE [542] {NIL}
  (SYSTEM:FASL-OP-SYMBOL <REST-OF-PATHNAMES-FILE-ALIST>))

(SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SITE; SITE QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SITE; SITE QFASL >" "SI" <GLOBAL:T>))
 => (("SYS: SITE; SITE QFASL >" "SI" <GLOBAL:T>)))

(SYSTEM:FASL-OP-STOREIN-SYMBOL-VALUE [547] {NIL}
  (SYSTEM:FASL-OP-SYMBOL <SITE-FILE-ALIST>))

(SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SITE; HSTTBL QFASL >")
    (SYSTEM:FASL-OP-STRING "CHAOS")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SITE; HSTTBL QFASL >" "CHAOS" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SITE; LMLOCS QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => ("SYS: SITE; LMLOCS QFASL >" "SI" <GLOBAL:T>))
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SITE; SYS TRANSLATIONS >")
    (SYSTEM:FASL-OP-STRING "FS")
   => ("SYS: SITE; SYS TRANSLATIONS >" "FS"))
 => (("SYS: SITE; HSTTBL QFASL >" "CHAOS" <GLOBAL:T>) ("SYS: SITE; LMLOCS QFASL >" "SI" <GLOBAL:T>) ("SYS: SITE; SYS TRANSLATIONS >" "FS")))

(SYSTEM:FASL-OP-STOREIN-SYMBOL-VALUE [618] {NIL}
  (SYSTEM:FASL-OP-SYMBOL <HOST-TABLE-FILE-ALIST>))

(SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS2; QCDEFS QFASL >")
    (SYSTEM:FASL-OP-STRING "COMPILER")
   => ("SYS: SYS2; QCDEFS QFASL >" "COMPILER"))
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS2; MAKSYS QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
   => ("SYS: SYS2; MAKSYS QFASL >" "SI"))
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS2; PATCH QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
   => ("SYS: SYS2; PATCH QFASL >" "SI"))
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-STRING "SYS: SYS; SYSDCL QFASL >")
    (SYSTEM:FASL-OP-STRING "SI")
   => ("SYS: SYS; SYSDCL QFASL >" "SI"))
 => (("SYS: SYS2; QCDEFS QFASL >" "COMPILER") ("SYS: SYS2; MAKSYS QFASL >" "SI") ("SYS: SYS2; PATCH QFASL >" "SI") ("SYS: SYS; SYSDCL QFASL >" "SI")))

(SYSTEM:FASL-OP-STOREIN-SYMBOL-VALUE [640] {NIL}
  (SYSTEM:FASL-OP-SYMBOL <SYSTEM-SYSTEM-FILE-ALIST>))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-SYMBOL <TERPRI>)
   => (<TERPRI>))
  (EVAL '(<TERPRI>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-SYMBOL <PRINC>)
    (SYSTEM:FASL-OP-STRING "[DONE]")
   => (<PRINC> "[DONE]"))
  (EVAL '(<PRINC> "[DONE]")))

(SYSTEM:FASL-OP-END-OF-WHACK)

(SYSTEM:FASL-OP-END-OF-FILE)