; -*- Mode:TEXT -*-
; This is the UNFASL for DJ: L.SYS; SYSDCL.QFASL#352



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

(FASL-OP-END-OF-WHACK)

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

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-SYMBOL <DEFSYSTEM-1>)
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "SYSTEM")
        <:SYSTEM>)
     => (<GLOBAL:QUOTE> <:SYSTEM>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-PACKAGE-SYMBOL
            (FASL-OP-INDEX [32] {""})
            (FASL-OP-STRING "NAME")
            <:NAME>)
          (FASL-OP-STRING "System")
         => (<:NAME> "System"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-PACKAGE-SYMBOL
            (FASL-OP-INDEX [32] {""})
            (FASL-OP-STRING "SHORT-NAME")
            <:SHORT-NAME>)
          (FASL-OP-STRING "SYS")
         => (<:SHORT-NAME> "SYS"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-PACKAGE-SYMBOL
            (FASL-OP-INDEX [32] {""})
            (FASL-OP-STRING "PATCHABLE")
            <:PATCHABLE>)
          (FASL-OP-STRING "SYS: PATCH;")
         => (<:PATCHABLE> "SYS: PATCH;"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-PACKAGE-SYMBOL
            (FASL-OP-INDEX [32] {""})
            (FASL-OP-STRING "WARNINGS-PATHNAME-DEFAULT")
            <:WARNINGS-PATHNAME-DEFAULT>)
          (FASL-OP-STRING "SYS:PATCH;SYSTEM-CWARNS.LISP")
         => (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;SYSTEM-CWARNS.LISP"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-PACKAGE-SYMBOL
            (FASL-OP-INDEX [32] {""})
            (FASL-OP-STRING "MODULE")
            <:MODULE>)
          (FASL-OP-SYMBOL <ALLDEFS>)
          (FASL-OP-LIST [6] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: SYS2; DEFMAC")
            (FASL-OP-STRING "SYS: SYS2; LMMAC")
            (FASL-OP-STRING "SYS: SYS2; SETF")
            (FASL-OP-STRING "SYS: SYS2; STRUCT")
            (FASL-OP-STRING "SYS: SYS; TYPES")
            (FASL-OP-STRING "SYS: DEBUGGER; ERRMAC")
           => ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))
         => (<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")))
        (FASL-OP-LIST [20] Area=WORKING-STORAGE-AREA
          (FASL-OP-PACKAGE-SYMBOL
            (FASL-OP-INDEX [32] {""})
            (FASL-OP-STRING "COMPONENT-SYSTEMS")
            <:COMPONENT-SYSTEMS>)
          (FASL-OP-SYMBOL <FONTS>)
          (FASL-OP-SYMBOL <SYSTEM-INTERNALS>)
          (FASL-OP-SYMBOL <GARBAGE-COLLECTOR>)
          (FASL-OP-SYMBOL <FORMAT>)
          (FASL-OP-SYMBOL <COMPILER>)
          (FASL-OP-SYMBOL <SHARE>)
          (FASL-OP-SYMBOL <FILE-SYSTEM>)
          (FASL-OP-PACKAGE-SYMBOL
            (FASL-OP-STRING "LISP")
            (FASL-OP-STRING "TIME")
            <LISP:TIME>)
          (FASL-OP-SYMBOL <TV>)
          (FASL-OP-SYMBOL <FANCY-LANDSCAPE>)
          (FASL-OP-SYMBOL <FONT-UTILITIES>)
          (FASL-OP-SYMBOL <PEEK>)
          (FASL-OP-SYMBOL <NETWORK>)
          (FASL-OP-SYMBOL <SUPDUP>)
          (FASL-OP-SYMBOL <EH>)
          (FASL-OP-SYMBOL <MATH>)
          (FASL-OP-SYMBOL <METER>)
          (FASL-OP-SYMBOL <SRCCOM>)
          (FASL-OP-SYMBOL <SERIAL>)
         => (<:COMPONENT-SYSTEMS> <FONTS> <SYSTEM-INTERNALS> <GARBAGE-COLLECTOR> <FORMAT> <COMPILER> <SHARE> <FILE-SYSTEM> <LISP:TIME> <TV> <FANCY-LANDSCAPE> <FONT-UTILITIES> <PEEK> <NETWORK> <SUPDUP> <EH> <MATH> <METER> <SRCCOM> <SERIAL>))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <LAST>)
          (FASL-OP-STRING "SYS: SYS; LAST")
         => (<METER> <LAST> "SYS: SYS; LAST"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-PACKAGE-SYMBOL
            (FASL-OP-INDEX [32] {""})
            (FASL-OP-STRING "COMPILE-LOAD")
            <:COMPILE-LOAD>)
          (FASL-OP-INDEX [139] {<SRCCOM>})
         => (<:COMPILE-LOAD> <SRCCOM>))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-PACKAGE-SYMBOL
            (FASL-OP-INDEX [32] {""})
            (FASL-OP-STRING "DO-COMPONENTS")
            <:DO-COMPONENTS>)
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-PACKAGE-SYMBOL
              (FASL-OP-INDEX [32] {""})
              (FASL-OP-STRING "FASLOAD")
              <:FASLOAD>)
            (FASL-OP-INDEX [139] {<SRCCOM>})
           => (<:FASLOAD> <SRCCOM>))
         => (<:DO-COMPONENTS> (<:FASLOAD> <SRCCOM>)))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {NIL})
          (FASL-OP-INDEX [172] {NIL})
         => (NIL NIL))
       => ((<:NAME> "System") (<:SHORT-NAME> "SYS") (<:PATCHABLE> "SYS: PATCH;") (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;SYSTEM-CWARNS.LISP") (<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<:COMPONENT-SYSTEMS> <FONTS> <SYSTEM-INTERNALS> <GARBAGE-COLLECTOR> <FORMAT> <COMPILER> <SHARE> <FILE-SYSTEM> <LISP:TIME> <TV> <FANCY-LANDSCAPE> <FONT-UTILITIES> <PEEK> <NETWORK> <SUPDUP> <EH> <MATH> <METER> <SRCCOM> <SERIAL>) (<METER> <LAST> "SYS: SYS; LAST") (<:COMPILE-LOAD> <SRCCOM>) (<:DO-COMPONENTS> (<:FASLOAD> <SRCCOM>)) (NIL NIL)))
     => (<GLOBAL:QUOTE> ((<:NAME> "System") (<:SHORT-NAME> "SYS") (<:PATCHABLE> "SYS: PATCH;") (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;SYSTEM-CWARNS.LISP") (<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<:COMPONENT-SYSTEMS> <FONTS> <SYSTEM-INTERNALS> <GARBAGE-COLLECTOR> <FORMAT> <COMPILER> <SHARE> <FILE-SYSTEM> <LISP:TIME> <TV> <FANCY-LANDSCAPE> <FONT-UTILITIES> <PEEK> <NETWORK> <SUPDUP> <EH> <MATH> <METER> <SRCCOM> <SERIAL>) (<METER> <LAST> "SYS: SYS; LAST") (<:COMPILE-LOAD> <SRCCOM>) (<:DO-COMPONENTS> (<:FASLOAD> <SRCCOM>)) (NIL NIL))))
   => (<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:SYSTEM>) (<GLOBAL:QUOTE> ((<:NAME> "System") (<:SHORT-NAME> "SYS") (<:PATCHABLE> "SYS: PATCH;") (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;SYSTEM-CWARNS.LISP") (<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<:COMPONENT-SYSTEMS> <FONTS> <SYSTEM-INTERNALS> <GARBAGE-COLLECTOR> <FORMAT> <COMPILER> <SHARE> <FILE-SYSTEM> <LISP:TIME> <TV> <FANCY-LANDSCAPE> <FONT-UTILITIES> <PEEK> <NETWORK> <SUPDUP> <EH> <MATH> <METER> <SRCCOM> <SERIAL>) (<METER> <LAST> "SYS: SYS; LAST") (<:COMPILE-LOAD> <SRCCOM>) (<:DO-COMPONENTS> (<:FASLOAD> <SRCCOM>)) (NIL NIL)))))
  (EVAL '(<DEFSYSTEM-1> (<GLOBAL:QUOTE> <:SYSTEM>) (<GLOBAL:QUOTE> ((<:NAME> "System") (<:SHORT-NAME> "SYS") (<:PATCHABLE> "SYS: PATCH;") (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;SYSTEM-CWARNS.LISP") (<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<:COMPONENT-SYSTEMS> <FONTS> <SYSTEM-INTERNALS> <GARBAGE-COLLECTOR> <FORMAT> <COMPILER> <SHARE> <FILE-SYSTEM> <LISP:TIME> <TV> <FANCY-LANDSCAPE> <FONT-UTILITIES> <PEEK> <NETWORK> <SUPDUP> <EH> <MATH> <METER> <SRCCOM> <SERIAL>) (<METER> <LAST> "SYS: SYS; LAST") (<:COMPILE-LOAD> <SRCCOM>) (<:DO-COMPONENTS> (<:FASLOAD> <SRCCOM>)) (NIL NIL))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [85] {<:SYSTEM-INTERNALS>})
     => (<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [12] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-PACKAGE-SYMBOL
            (FASL-OP-INDEX [32] {""})
            (FASL-OP-STRING "NICKNAMES")
            <:NICKNAMES>)
          (FASL-OP-STRING "SI")
         => (<:NICKNAMES> "SI"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <DEFS>)
          (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: SYS2; PRODEF")
            (FASL-OP-STRING "SYS: IO; RDDEFS")
            (FASL-OP-STRING "SYS: SYS2; SGDEFS")
            (FASL-OP-STRING "SYS: SYS2; NUMDEF")
            (FASL-OP-STRING "SYS: SYS; STORAGE-DEFS")
           => ("SYS: SYS2; PRODEF" "SYS: IO; RDDEFS" "SYS: SYS2; SGDEFS" "SYS: SYS2; NUMDEF" "SYS: SYS; STORAGE-DEFS"))
         => (<METER> <DEFS> ("SYS: SYS2; PRODEF" "SYS: IO; RDDEFS" "SYS: SYS2; SGDEFS" "SYS: SYS2; NUMDEF" "SYS: SYS; STORAGE-DEFS")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <METH>)
          (FASL-OP-STRING "SYS: SYS2; METH")
         => (<METER> <METH> "SYS: SYS2; METH"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <CLASS>)
          (FASL-OP-STRING "SYS: SYS2; CLASS")
         => (<METER> <CLASS> "SYS: SYS2; CLASS"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <MAIN>)
          (FASL-OP-LIST [68] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: SYS2; ADVISE")
            (FASL-OP-STRING "SYS: SYS2; BAND")
            (FASL-OP-STRING "SYS: SYS2; CHARACTER")
            (FASL-OP-STRING "SYS: SYS; CLPACK")
            (FASL-OP-STRING "SYS: WINDOW; COLD")
            (FASL-OP-STRING "SYS: SYS2; DEFSEL")
            (FASL-OP-STRING "SYS: IO; NEW-DISK")
            (FASL-OP-STRING "SYS: IO; DISK")
            (FASL-OP-STRING "SYS: IO; UDISK")
            (FASL-OP-STRING "SYS: SYS; DESCRIBE")
            (FASL-OP-STRING "SYS: IO; DLEDIT")
            (FASL-OP-STRING "SYS: IO; DRIBBL")
            (FASL-OP-STRING "SYS: SYS2; ENCAPS")
            (FASL-OP-STRING "SYS: SYS; EVAL")
            (FASL-OP-STRING "sys: sys; special-forms")
            (FASL-OP-STRING "SYS: SYS2; FLAVOR")
            (FASL-OP-STRING "SYS: SYS; GENRIC")
            (FASL-OP-STRING "SYS: COLD; GLOBAL")
            (FASL-OP-STRING "SYS: IO; GRIND")
            (FASL-OP-STRING "SYS: IO1; HARDCOPY")
            (FASL-OP-STRING "SYS: SYS2; HASH")
            (FASL-OP-STRING "SYS: SYS2; HASHFL")
            (FASL-OP-STRING "SYS: NETWORK; PACKAGES")
            (FASL-OP-STRING "SYS: NETWORK; HOST")
            (FASL-OP-STRING "SYS: IO1; INC")
            (FASL-OP-STRING "SYS: IO1; INFIX")
            (FASL-OP-STRING "SYS: IO; INPUT-READERS")
            (FASL-OP-STRING "SYS: LAMBDA-DIAG; LAM-PACKAGE")
            (FASL-OP-STRING "SYS: COLD; LISP")
            (FASL-OP-STRING "SYS: SYS2; LOGIN")
            (FASL-OP-STRING "SYS: SYS2; LOOP")
            (FASL-OP-STRING "SYS: SYS; LTOP")
            (FASL-OP-STRING "SYS: SYS2; MACARRAY")
            (FASL-OP-STRING "SYS: SYS2; MAKSYS")
            (FASL-OP-STRING "SYS: SYS2; NUMER")
            (FASL-OP-STRING "SYS: SYS2; PATCH")
            (FASL-OP-STRING "SYS: SYS2; PLANE")
            (FASL-OP-STRING "SYS: IO; PRINT")
            (FASL-OP-STRING "SYS: SYS2; PROCES")
            (FASL-OP-STRING "SYS: IO; QIO")
            (FASL-OP-STRING "sys: sys; qccold")
            (FASL-OP-STRING "sys: sys; qcdefs")
            (FASL-OP-STRING "SYS: SYS; QFASL")
            (FASL-OP-STRING "SYS: SYS; QFCTNS")
            (FASL-OP-STRING "SYS: SYS; QMISC")
            (FASL-OP-STRING "SYS: SYS; QNEW")
            (FASL-OP-STRING "SYS: SYS; QRAND")
            (FASL-OP-STRING "SYS: SYS2; QTRACE")
            (FASL-OP-STRING "SYS: SYS2; RAT")
            (FASL-OP-STRING "SYS: IO; READ")
            (FASL-OP-STRING "SYS: SYS; REP")
            (FASL-OP-STRING "SYS: SYS2; RESOUR")
            (FASL-OP-STRING "SYS: SYS2; SELEV")
            (FASL-OP-STRING "SYS: SYS; SGFCTN")
            (FASL-OP-STRING "SYS: SYS; SORT")
            (FASL-OP-STRING "SYS: SYS; SPDWIM")
            (FASL-OP-STRING "SYS: SYS2; STEP")
            (FASL-OP-STRING "SYS: SYS; STORAGE")
            (FASL-OP-STRING "SYS: IO; STREAM")
            (FASL-OP-STRING "SYS: SYS2; STRING")
            (FASL-OP-STRING "SYS: SYS; SYSDCL")
            (FASL-OP-STRING "SYS: COLD; SYSTEM")
            (FASL-OP-STRING "SYS: SYS2; UNFASL")
            (FASL-OP-STRING "SYS: IO; UNIBUS")
            (FASL-OP-STRING "SYS: SYS2; CLMAC")
            (FASL-OP-STRING "SYS: SYS2; ANALYZE")
            (FASL-OP-STRING "SYS: NETWORK; TABLE")
            (FASL-OP-STRING "SYS: NETWORK; TRANSPARENT")
           => ("SYS: SYS2; ADVISE" "SYS: SYS2; BAND" "SYS: SYS2; CHARACTER" "SYS: SYS; CLPACK" "SYS: WINDOW; COLD" "SYS: SYS2; DEFSEL" "SYS: IO; NEW-DISK" "SYS: IO; DISK" "SYS: IO; UDISK" "SYS: SYS; DESCRIBE" "SYS: IO; DLEDIT" "SYS: IO; DRIBBL" "SYS: SYS2; ENCAPS" "SYS: SYS; EVAL" "sys: sys; special-forms" "SYS: SYS2; FLAVOR" "SYS: SYS; GENRIC" "SYS: COLD; GLOBAL" "SYS: IO; GRIND" "SYS: IO1; HARDCOPY" "SYS: SYS2; HASH" "SYS: SYS2; HASHFL" "SYS: NETWORK; PACKAGES" "SYS: NETWORK; HOST" "SYS: IO1; INC" "SYS: IO1; INFIX" "SYS: IO; INPUT-READERS" "SYS: LAMBDA-DIAG; LAM-PACKAGE" "SYS: COLD; LISP" "SYS: SYS2; LOGIN" "SYS: SYS2; LOOP" "SYS: SYS; LTOP" "SYS: SYS2; MACARRAY" "SYS: SYS2; MAKSYS" "SYS: SYS2; NUMER" "SYS: SYS2; PATCH" "SYS: SYS2; PLANE" "SYS: IO; PRINT" "SYS: SYS2; PROCES" "SYS: IO; QIO" "sys: sys; qccold" "sys: sys; qcdefs" "SYS: SYS; QFASL" "SYS: SYS; QFCTNS" "SYS: SYS; QMISC" "SYS: SYS; QNEW" "SYS: SYS; QRAND" "SYS: SYS2; QTRACE" "SYS: SYS2; RAT" "SYS: IO; READ" "SYS: SYS; REP" "SYS: SYS2; RESOUR" "SYS: SYS2; SELEV" "SYS: SYS; SGFCTN" "SYS: SYS; SORT" "SYS: SYS; SPDWIM" "SYS: SYS2; STEP" "SYS: SYS; STORAGE" "SYS: IO; STREAM" "SYS: SYS2; STRING" "SYS: SYS; SYSDCL" "SYS: COLD; SYSTEM" "SYS: SYS2; UNFASL" "SYS: IO; UNIBUS" "SYS: SYS2; CLMAC" "SYS: SYS2; ANALYZE" "SYS: NETWORK; TABLE" "SYS: NETWORK; TRANSPARENT"))
         => (<METER> <MAIN> ("SYS: SYS2; ADVISE" "SYS: SYS2; BAND" "SYS: SYS2; CHARACTER" "SYS: SYS; CLPACK" "SYS: WINDOW; COLD" "SYS: SYS2; DEFSEL" "SYS: IO; NEW-DISK" "SYS: IO; DISK" "SYS: IO; UDISK" "SYS: SYS; DESCRIBE" "SYS: IO; DLEDIT" "SYS: IO; DRIBBL" "SYS: SYS2; ENCAPS" "SYS: SYS; EVAL" "sys: sys; special-forms" "SYS: SYS2; FLAVOR" "SYS: SYS; GENRIC" "SYS: COLD; GLOBAL" "SYS: IO; GRIND" "SYS: IO1; HARDCOPY" "SYS: SYS2; HASH" "SYS: SYS2; HASHFL" "SYS: NETWORK; PACKAGES" "SYS: NETWORK; HOST" "SYS: IO1; INC" "SYS: IO1; INFIX" "SYS: IO; INPUT-READERS" "SYS: LAMBDA-DIAG; LAM-PACKAGE" "SYS: COLD; LISP" "SYS: SYS2; LOGIN" "SYS: SYS2; LOOP" "SYS: SYS; LTOP" "SYS: SYS2; MACARRAY" "SYS: SYS2; MAKSYS" "SYS: SYS2; NUMER" "SYS: SYS2; PATCH" "SYS: SYS2; PLANE" "SYS: IO; PRINT" "SYS: SYS2; PROCES" "SYS: IO; QIO" "sys: sys; qccold" "sys: sys; qcdefs" "SYS: SYS; QFASL" "SYS: SYS; QFCTNS" "SYS: SYS; QMISC" "SYS: SYS; QNEW" "SYS: SYS; QRAND" "SYS: SYS2; QTRACE" "SYS: SYS2; RAT" "SYS: IO; READ" "SYS: SYS; REP" "SYS: SYS2; RESOUR" "SYS: SYS2; SELEV" "SYS: SYS; SGFCTN" "SYS: SYS; SORT" "SYS: SYS; SPDWIM" "SYS: SYS2; STEP" "SYS: SYS; STORAGE" "SYS: IO; STREAM" "SYS: SYS2; STRING" "SYS: SYS; SYSDCL" "SYS: COLD; SYSTEM" "SYS: SYS2; UNFASL" "SYS: IO; UNIBUS" "SYS: SYS2; CLMAC" "SYS: SYS2; ANALYZE" "SYS: NETWORK; TABLE" "SYS: NETWORK; TRANSPARENT")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <RDTBL>)
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: IO; RDTBL")
            (FASL-OP-STRING "SYS: IO; CRDTBL")
           => ("SYS: IO; RDTBL" "SYS: IO; CRDTBL"))
         => (<METER> <RDTBL> ("SYS: IO; RDTBL" "SYS: IO; CRDTBL")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <EXPORT>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: COLD; EXPORT")
           => ("SYS: COLD; EXPORT"))
         => (<METER> <EXPORT> ("SYS: COLD; EXPORT")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [370] {NIL})
         => ("SYS: SYS2; CLASS" NIL))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [384] {NIL})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {NIL})
           => ("SYS: SYS2; CHARACTER" NIL))
         => ("SYS: SYS2; CLASS" NIL ("SYS: SYS2; CHARACTER" NIL)))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-PACKAGE-SYMBOL
            (FASL-OP-INDEX [32] {""})
            (FASL-OP-STRING "READFILE")
            <:READFILE>)
          (FASL-OP-INDEX [460] {NIL})
         => (<:READFILE> NIL))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [378] {NIL})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {NIL})
           => ("SYS: SYS2; CHARACTER" NIL))
         => ("SYS: SYS2; CLASS" NIL ("SYS: SYS2; CHARACTER" NIL)))
        (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [381] {NIL})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {NIL})
           => ("SYS: SYS2; CHARACTER" NIL))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [378] {NIL})
           => ("SYS: SYS2; CHARACTER" NIL))
         => ("SYS: SYS2; CLASS" NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" NIL)))
       => ((<:NICKNAMES> "SI") (<METER> <DEFS> ("SYS: SYS2; PRODEF" "SYS: IO; RDDEFS" "SYS: SYS2; SGDEFS" "SYS: SYS2; NUMDEF" "SYS: SYS; STORAGE-DEFS")) (<METER> <METH> "SYS: SYS2; METH") (<METER> <CLASS> "SYS: SYS2; CLASS") (<METER> <MAIN> ("SYS: SYS2; ADVISE" "SYS: SYS2; BAND" "SYS: SYS2; CHARACTER" "SYS: SYS; CLPACK" "SYS: WINDOW; COLD" "SYS: SYS2; DEFSEL" "SYS: IO; NEW-DISK" "SYS: IO; DISK" "SYS: IO; UDISK" "SYS: SYS; DESCRIBE" "SYS: IO; DLEDIT" "SYS: IO; DRIBBL" "SYS: SYS2; ENCAPS" "SYS: SYS; EVAL" "sys: sys; special-forms" "SYS: SYS2; FLAVOR" "SYS: SYS; GENRIC" "SYS: COLD; GLOBAL" "SYS: IO; GRIND" "SYS: IO1; HARDCOPY" "SYS: SYS2; HASH" "SYS: SYS2; HASHFL" "SYS: NETWORK; PACKAGES" "SYS: NETWORK; HOST" "SYS: IO1; INC" "SYS: IO1; INFIX" "SYS: IO; INPUT-READERS" "SYS: LAMBDA-DIAG; LAM-PACKAGE" "SYS: COLD; LISP" "SYS: SYS2; LOGIN" "SYS: SYS2; LOOP" "SYS: SYS; LTOP" "SYS: SYS2; MACARRAY" "SYS: SYS2; MAKSYS" "SYS: SYS2; NUMER" "SYS: SYS2; PATCH" "SYS: SYS2; PLANE" "SYS: IO; PRINT" "SYS: SYS2; PROCES" "SYS: IO; QIO" "sys: sys; qccold" "sys: sys; qcdefs" "SYS: SYS; QFASL" "SYS: SYS; QFCTNS" "SYS: SYS; QMISC" "SYS: SYS; QNEW" "SYS: SYS; QRAND" "SYS: SYS2; QTRACE" "SYS: SYS2; RAT" "SYS: IO; READ" "SYS: SYS; REP" "SYS: SYS2; RESOUR" "SYS: SYS2; SELEV" "SYS: SYS; SGFCTN" "SYS: SYS; SORT" "SYS: SYS; SPDWIM" "SYS: SYS2; STEP" "SYS: SYS; STORAGE" "SYS: IO; STREAM" "SYS: SYS2; STRING" "SYS: SYS; SYSDCL" "SYS: COLD; SYSTEM" "SYS: SYS2; UNFASL" "SYS: IO; UNIBUS" "SYS: SYS2; CLMAC" "SYS: SYS2; ANALYZE" "SYS: NETWORK; TABLE" "SYS: NETWORK; TRANSPARENT")) (<METER> <RDTBL> ("SYS: IO; RDTBL" "SYS: IO; CRDTBL")) (<METER> <EXPORT> ("SYS: COLD; EXPORT")) ("SYS: SYS2; CLASS" NIL) ("SYS: SYS2; CLASS" NIL ("SYS: SYS2; CHARACTER" NIL)) (<:READFILE> NIL) ("SYS: SYS2; CLASS" NIL ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" NIL))))
     => (<GLOBAL:QUOTE> ((<:NICKNAMES> "SI") (<METER> <DEFS> ("SYS: SYS2; PRODEF" "SYS: IO; RDDEFS" "SYS: SYS2; SGDEFS" "SYS: SYS2; NUMDEF" "SYS: SYS; STORAGE-DEFS")) (<METER> <METH> "SYS: SYS2; METH") (<METER> <CLASS> "SYS: SYS2; CLASS") (<METER> <MAIN> ("SYS: SYS2; ADVISE" "SYS: SYS2; BAND" "SYS: SYS2; CHARACTER" "SYS: SYS; CLPACK" "SYS: WINDOW; COLD" "SYS: SYS2; DEFSEL" "SYS: IO; NEW-DISK" "SYS: IO; DISK" "SYS: IO; UDISK" "SYS: SYS; DESCRIBE" "SYS: IO; DLEDIT" "SYS: IO; DRIBBL" "SYS: SYS2; ENCAPS" "SYS: SYS; EVAL" "sys: sys; special-forms" "SYS: SYS2; FLAVOR" "SYS: SYS; GENRIC" "SYS: COLD; GLOBAL" "SYS: IO; GRIND" "SYS: IO1; HARDCOPY" "SYS: SYS2; HASH" "SYS: SYS2; HASHFL" "SYS: NETWORK; PACKAGES" "SYS: NETWORK; HOST" "SYS: IO1; INC" "SYS: IO1; INFIX" "SYS: IO; INPUT-READERS" "SYS: LAMBDA-DIAG; LAM-PACKAGE" "SYS: COLD; LISP" "SYS: SYS2; LOGIN" "SYS: SYS2; LOOP" "SYS: SYS; LTOP" "SYS: SYS2; MACARRAY" "SYS: SYS2; MAKSYS" "SYS: SYS2; NUMER" "SYS: SYS2; PATCH" "SYS: SYS2; PLANE" "SYS: IO; PRINT" "SYS: SYS2; PROCES" "SYS: IO; QIO" "sys: sys; qccold" "sys: sys; qcdefs" "SYS: SYS; QFASL" "SYS: SYS; QFCTNS" "SYS: SYS; QMISC" "SYS: SYS; QNEW" "SYS: SYS; QRAND" "SYS: SYS2; QTRACE" "SYS: SYS2; RAT" "SYS: IO; READ" "SYS: SYS; REP" "SYS: SYS2; RESOUR" "SYS: SYS2; SELEV" "SYS: SYS; SGFCTN" "SYS: SYS; SORT" "SYS: SYS; SPDWIM" "SYS: SYS2; STEP" "SYS: SYS; STORAGE" "SYS: IO; STREAM" "SYS: SYS2; STRING" "SYS: SYS; SYSDCL" "SYS: COLD; SYSTEM" "SYS: SYS2; UNFASL" "SYS: IO; UNIBUS" "SYS: SYS2; CLMAC" "SYS: SYS2; ANALYZE" "SYS: NETWORK; TABLE" "SYS: NETWORK; TRANSPARENT")) (<METER> <RDTBL> ("SYS: IO; RDTBL" "SYS: IO; CRDTBL")) (<METER> <EXPORT> ("SYS: COLD; EXPORT")) ("SYS: SYS2; CLASS" NIL) ("SYS: SYS2; CLASS" NIL ("SYS: SYS2; CHARACTER" NIL)) (<:READFILE> NIL) ("SYS: SYS2; CLASS" NIL ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" NIL)))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> ((<:NICKNAMES> "SI") (<METER> <DEFS> ("SYS: SYS2; PRODEF" "SYS: IO; RDDEFS" "SYS: SYS2; SGDEFS" "SYS: SYS2; NUMDEF" "SYS: SYS; STORAGE-DEFS")) (<METER> <METH> "SYS: SYS2; METH") (<METER> <CLASS> "SYS: SYS2; CLASS") (<METER> <MAIN> ("SYS: SYS2; ADVISE" "SYS: SYS2; BAND" "SYS: SYS2; CHARACTER" "SYS: SYS; CLPACK" "SYS: WINDOW; COLD" "SYS: SYS2; DEFSEL" "SYS: IO; NEW-DISK" "SYS: IO; DISK" "SYS: IO; UDISK" "SYS: SYS; DESCRIBE" "SYS: IO; DLEDIT" "SYS: IO; DRIBBL" "SYS: SYS2; ENCAPS" "SYS: SYS; EVAL" "sys: sys; special-forms" "SYS: SYS2; FLAVOR" "SYS: SYS; GENRIC" "SYS: COLD; GLOBAL" "SYS: IO; GRIND" "SYS: IO1; HARDCOPY" "SYS: SYS2; HASH" "SYS: SYS2; HASHFL" "SYS: NETWORK; PACKAGES" "SYS: NETWORK; HOST" "SYS: IO1; INC" "SYS: IO1; INFIX" "SYS: IO; INPUT-READERS" "SYS: LAMBDA-DIAG; LAM-PACKAGE" "SYS: COLD; LISP" "SYS: SYS2; LOGIN" "SYS: SYS2; LOOP" "SYS: SYS; LTOP" "SYS: SYS2; MACARRAY" "SYS: SYS2; MAKSYS" "SYS: SYS2; NUMER" "SYS: SYS2; PATCH" "SYS: SYS2; PLANE" "SYS: IO; PRINT" "SYS: SYS2; PROCES" "SYS: IO; QIO" "sys: sys; qccold" "sys: sys; qcdefs" "SYS: SYS; QFASL" "SYS: SYS; QFCTNS" "SYS: SYS; QMISC" "SYS: SYS; QNEW" "SYS: SYS; QRAND" "SYS: SYS2; QTRACE" "SYS: SYS2; RAT" "SYS: IO; READ" "SYS: SYS; REP" "SYS: SYS2; RESOUR" "SYS: SYS2; SELEV" "SYS: SYS; SGFCTN" "SYS: SYS; SORT" "SYS: SYS; SPDWIM" "SYS: SYS2; STEP" "SYS: SYS; STORAGE" "SYS: IO; STREAM" "SYS: SYS2; STRING" "SYS: SYS; SYSDCL" "SYS: COLD; SYSTEM" "SYS: SYS2; UNFASL" "SYS: IO; UNIBUS" "SYS: SYS2; CLMAC" "SYS: SYS2; ANALYZE" "SYS: NETWORK; TABLE" "SYS: NETWORK; TRANSPARENT")) (<METER> <RDTBL> ("SYS: IO; RDTBL" "SYS: IO; CRDTBL")) (<METER> <EXPORT> ("SYS: COLD; EXPORT")) ("SYS: SYS2; CLASS" NIL) ("SYS: SYS2; CLASS" NIL ("SYS: SYS2; CHARACTER" NIL)) (<:READFILE> NIL) ("SYS: SYS2; CLASS" NIL ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" NIL))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> ((<:NICKNAMES> "SI") (<METER> <DEFS> ("SYS: SYS2; PRODEF" "SYS: IO; RDDEFS" "SYS: SYS2; SGDEFS" "SYS: SYS2; NUMDEF" "SYS: SYS; STORAGE-DEFS")) (<METER> <METH> "SYS: SYS2; METH") (<METER> <CLASS> "SYS: SYS2; CLASS") (<METER> <MAIN> ("SYS: SYS2; ADVISE" "SYS: SYS2; BAND" "SYS: SYS2; CHARACTER" "SYS: SYS; CLPACK" "SYS: WINDOW; COLD" "SYS: SYS2; DEFSEL" "SYS: IO; NEW-DISK" "SYS: IO; DISK" "SYS: IO; UDISK" "SYS: SYS; DESCRIBE" "SYS: IO; DLEDIT" "SYS: IO; DRIBBL" "SYS: SYS2; ENCAPS" "SYS: SYS; EVAL" "sys: sys; special-forms" "SYS: SYS2; FLAVOR" "SYS: SYS; GENRIC" "SYS: COLD; GLOBAL" "SYS: IO; GRIND" "SYS: IO1; HARDCOPY" "SYS: SYS2; HASH" "SYS: SYS2; HASHFL" "SYS: NETWORK; PACKAGES" "SYS: NETWORK; HOST" "SYS: IO1; INC" "SYS: IO1; INFIX" "SYS: IO; INPUT-READERS" "SYS: LAMBDA-DIAG; LAM-PACKAGE" "SYS: COLD; LISP" "SYS: SYS2; LOGIN" "SYS: SYS2; LOOP" "SYS: SYS; LTOP" "SYS: SYS2; MACARRAY" "SYS: SYS2; MAKSYS" "SYS: SYS2; NUMER" "SYS: SYS2; PATCH" "SYS: SYS2; PLANE" "SYS: IO; PRINT" "SYS: SYS2; PROCES" "SYS: IO; QIO" "sys: sys; qccold" "sys: sys; qcdefs" "SYS: SYS; QFASL" "SYS: SYS; QFCTNS" "SYS: SYS; QMISC" "SYS: SYS; QNEW" "SYS: SYS; QRAND" "SYS: SYS2; QTRACE" "SYS: SYS2; RAT" "SYS: IO; READ" "SYS: SYS; REP" "SYS: SYS2; RESOUR" "SYS: SYS2; SELEV" "SYS: SYS; SGFCTN" "SYS: SYS; SORT" "SYS: SYS; SPDWIM" "SYS: SYS2; STEP" "SYS: SYS; STORAGE" "SYS: IO; STREAM" "SYS: SYS2; STRING" "SYS: SYS; SYSDCL" "SYS: COLD; SYSTEM" "SYS: SYS2; UNFASL" "SYS: IO; UNIBUS" "SYS: SYS2; CLMAC" "SYS: SYS2; ANALYZE" "SYS: NETWORK; TABLE" "SYS: NETWORK; TRANSPARENT")) (<METER> <RDTBL> ("SYS: IO; RDTBL" "SYS: IO; CRDTBL")) (<METER> <EXPORT> ("SYS: COLD; EXPORT")) ("SYS: SYS2; CLASS" NIL) ("SYS: SYS2; CLASS" NIL ("SYS: SYS2; CHARACTER" NIL)) (<:READFILE> NIL) ("SYS: SYS2; CLASS" NIL ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" NIL)))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "FONTS")
        <:FONTS>)
     => (<GLOBAL:QUOTE> <:FONTS>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [83] {<:PACKAGE>})
          (FASL-OP-INDEX [150] {"FASLOAD"})
         => (<:PACKAGE> "FASLOAD"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-PACKAGE-SYMBOL
            (FASL-OP-INDEX [32] {""})
            (FASL-OP-STRING "PATHNAME-DEFAULT")
            <:PATHNAME-DEFAULT>)
          (FASL-OP-STRING "SYS: FONTS;")
         => (<:PATHNAME-DEFAULT> "SYS: FONTS;"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
          (FASL-OP-LIST [36] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "TVFONT")
            (FASL-OP-STRING "CPTFONTB")
            (FASL-OP-STRING "CPTFONT")
            (FASL-OP-STRING "CPTFONTSH")
            (FASL-OP-STRING "BIGFNT")
            (FASL-OP-STRING "TINY")
            (FASL-OP-STRING "5X5")
            (FASL-OP-STRING "MEDFNT")
            (FASL-OP-STRING "MEDFNB")
            (FASL-OP-STRING "METS")
            (FASL-OP-STRING "METSI")
            (FASL-OP-STRING "43VXMS")
            (FASL-OP-STRING "HL6")
            (FASL-OP-STRING "HL7")
            (FASL-OP-STRING "HL10")
            (FASL-OP-STRING "HL10B")
            (FASL-OP-STRING "HL12")
            (FASL-OP-STRING "HL12I")
            (FASL-OP-STRING "HL12B")
            (FASL-OP-STRING "HL12BI")
            (FASL-OP-STRING "TR8")
            (FASL-OP-STRING "TR8I")
            (FASL-OP-STRING "TR8B")
            (FASL-OP-STRING "TR10")
            (FASL-OP-STRING "TR10I")
            (FASL-OP-STRING "TR10B")
            (FASL-OP-STRING "TR10BI")
            (FASL-OP-STRING "TR12")
            (FASL-OP-STRING "TR12B")
            (FASL-OP-STRING "TR12I")
            (FASL-OP-STRING "TR12BI")
            (FASL-OP-STRING "MOUSE")
            (FASL-OP-STRING "SEARCH")
            (FASL-OP-STRING "TOG")
            (FASL-OP-STRING "ABACUS")
            (FASL-OP-STRING "NARROW")
           => ("TVFONT" "CPTFONTB" "CPTFONT" "CPTFONTSH" "BIGFNT" "TINY" "5X5" "MEDFNT" "MEDFNB" "METS" "METSI" "43VXMS" "HL6" "HL7" "HL10" "HL10B" "HL12" "HL12I" "HL12B" "HL12BI" "TR8" "TR8I" "TR8B" "TR10" "TR10I" "TR10B" "TR10BI" "TR12" "TR12B" "TR12I" "TR12BI" "MOUSE" "SEARCH" "TOG" "ABACUS" "NARROW"))
         => ("SYS: SYS2; CHARACTER" ("TVFONT" "CPTFONTB" "CPTFONT" "CPTFONTSH" "BIGFNT" "TINY" "5X5" "MEDFNT" "MEDFNB" "METS" "METSI" "43VXMS" "HL6" "HL7" "HL10" "HL10B" "HL12" "HL12I" "HL12B" "HL12BI" "TR8" "TR8I" "TR8B" "TR10" "TR10I" "TR10B" "TR10BI" "TR12" "TR12B" "TR12I" "TR12BI" "MOUSE" "SEARCH" "TOG" "ABACUS" "NARROW")))
       => ((<:PACKAGE> "FASLOAD") (<:PATHNAME-DEFAULT> "SYS: FONTS;") ("SYS: SYS2; CHARACTER" ("TVFONT" "CPTFONTB" "CPTFONT" "CPTFONTSH" "BIGFNT" "TINY" "5X5" "MEDFNT" "MEDFNB" "METS" "METSI" "43VXMS" "HL6" "HL7" "HL10" "HL10B" "HL12" "HL12I" "HL12B" "HL12BI" "TR8" "TR8I" "TR8B" "TR10" "TR10I" "TR10B" "TR10BI" "TR12" "TR12B" "TR12I" "TR12BI" "MOUSE" "SEARCH" "TOG" "ABACUS" "NARROW"))))
     => (<GLOBAL:QUOTE> ((<:PACKAGE> "FASLOAD") (<:PATHNAME-DEFAULT> "SYS: FONTS;") ("SYS: SYS2; CHARACTER" ("TVFONT" "CPTFONTB" "CPTFONT" "CPTFONTSH" "BIGFNT" "TINY" "5X5" "MEDFNT" "MEDFNB" "METS" "METSI" "43VXMS" "HL6" "HL7" "HL10" "HL10B" "HL12" "HL12I" "HL12B" "HL12BI" "TR8" "TR8I" "TR8B" "TR10" "TR10I" "TR10B" "TR10BI" "TR12" "TR12B" "TR12I" "TR12BI" "MOUSE" "SEARCH" "TOG" "ABACUS" "NARROW")))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:FONTS>) (<GLOBAL:QUOTE> ((<:PACKAGE> "FASLOAD") (<:PATHNAME-DEFAULT> "SYS: FONTS;") ("SYS: SYS2; CHARACTER" ("TVFONT" "CPTFONTB" "CPTFONT" "CPTFONTSH" "BIGFNT" "TINY" "5X5" "MEDFNT" "MEDFNB" "METS" "METSI" "43VXMS" "HL6" "HL7" "HL10" "HL10B" "HL12" "HL12I" "HL12B" "HL12BI" "TR8" "TR8I" "TR8B" "TR10" "TR10I" "TR10B" "TR10BI" "TR12" "TR12B" "TR12I" "TR12BI" "MOUSE" "SEARCH" "TOG" "ABACUS" "NARROW"))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:FONTS>) (<GLOBAL:QUOTE> ((<:PACKAGE> "FASLOAD") (<:PATHNAME-DEFAULT> "SYS: FONTS;") ("SYS: SYS2; CHARACTER" ("TVFONT" "CPTFONTB" "CPTFONT" "CPTFONTSH" "BIGFNT" "TINY" "5X5" "MEDFNT" "MEDFNB" "METS" "METSI" "43VXMS" "HL6" "HL7" "HL10" "HL10B" "HL12" "HL12I" "HL12B" "HL12BI" "TR8" "TR8I" "TR8B" "TR10" "TR10I" "TR10B" "TR10BI" "TR12" "TR12B" "TR12I" "TR12BI" "MOUSE" "SEARCH" "TOG" "ABACUS" "NARROW")))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "NETWORK")
        <:NETWORK>)
     => (<GLOBAL:QUOTE> <:NETWORK>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [23] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [122] {<GARBAGE-COLLECTOR>})
          (FASL-OP-STRING "Network System")
         => (<GARBAGE-COLLECTOR> "Network System"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [126] {<FILE-SYSTEM>})
          (FASL-OP-STRING "Network")
         => (<FILE-SYSTEM> "Network"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {NIL})
          (FASL-OP-STRING "sys: network; kernel;")
         => (NIL "sys: network; kernel;"))
        (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [149] {<:DO-COMPONENTS>})
          (FASL-OP-SYMBOL <NETWORK-DRIVERS>)
          (FASL-OP-SYMBOL <CHAOS>)
          (FASL-OP-SYMBOL <IP-TCP>)
         => (<:DO-COMPONENTS> <NETWORK-DRIVERS> <CHAOS> <IP-TCP>))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [370] {NIL})
          (FASL-OP-STRING "DEFS")
         => (<METER> NIL "DEFS"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <LIBRARY>)
          (FASL-OP-STRING "LIBRARY")
         => (<METER> <LIBRARY> "LIBRARY"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <NETWORK-INTERFACE>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "NETWORK-INTERFACE")
           => ("NETWORK-INTERFACE"))
         => (<METER> <NETWORK-INTERFACE> ("NETWORK-INTERFACE")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <PACKETS>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "PACKETS")
           => ("PACKETS"))
         => (<METER> <PACKETS> ("PACKETS")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <NETWORK-PROTOCOL>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "NETWORK-PROTOCOL")
           => ("NETWORK-PROTOCOL"))
         => (<METER> <NETWORK-PROTOCOL> ("NETWORK-PROTOCOL")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <ARP>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "ARP")
           => ("ARP"))
         => (<METER> <ARP> ("ARP")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <TRANSPORT-PROTOCOL>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "TRANSPORT-PROTOCOL")
           => ("TRANSPORT-PROTOCOL"))
         => (<METER> <TRANSPORT-PROTOCOL> ("TRANSPORT-PROTOCOL")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <CONFIGURATION>)
          (FASL-OP-STRING "CONFIGURE")
         => (<METER> <CONFIGURATION> "CONFIGURE"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <NETSPY>)
          (FASL-OP-STRING "NETSPY")
         => (<METER> <NETSPY> "NETSPY"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [370] {NIL})
         => ("SYS: SYS2; CLASS" NIL))
        (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (FASL-OP-PACKAGE-SYMBOL
            (FASL-OP-INDEX [32] {""})
            (FASL-OP-STRING "COMPILE-LOAD-INIT")
            <:COMPILE-LOAD-INIT>)
          (FASL-OP-INDEX [83] {<:PACKAGE>})
          (FASL-OP-INDEX [370] {NIL})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {NIL})
           => ("SYS: SYS2; CHARACTER" NIL))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))
         => (<:COMPILE-LOAD-INIT> <:PACKAGE> NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))))
        (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [114] {"SYS: SYS; TYPES"})
          (FASL-OP-INDEX [86] {(<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
          (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
            (FASL-OP-INDEX [83] {<:PACKAGE>})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE>))
          (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
            (FASL-OP-INDEX [83] {<:PACKAGE>})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE>))
         => ("SYS: SYS; TYPES" (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE>) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE>)))
        (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [114] {"SYS: SYS; TYPES"})
          (FASL-OP-INDEX [90] {(<GLOBAL:QUOTE> <:SYSTEM>)})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
            (FASL-OP-INDEX [86] {(<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)})
           => (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)))
          (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
            (FASL-OP-INDEX [83] {<:PACKAGE>})
            (FASL-OP-INDEX [86] {(<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE> (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)))
          (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
            (FASL-OP-INDEX [83] {<:PACKAGE>})
            (FASL-OP-INDEX [86] {(<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE> (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)))
         => ("SYS: SYS; TYPES" (<GLOBAL:QUOTE> <:SYSTEM>) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE> (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE> (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>))))
        (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [114] {"SYS: SYS; TYPES"})
          (FASL-OP-INDEX [94] {(<:NAME> "System")})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
            (FASL-OP-INDEX [86] {(<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)})
           => (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)))
          (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
            (FASL-OP-INDEX [86] {(<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)})
            (FASL-OP-INDEX [90] {(<GLOBAL:QUOTE> <:SYSTEM>)})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> <:SYSTEM>)))
          (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
            (FASL-OP-INDEX [86] {(<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)})
            (FASL-OP-INDEX [90] {(<GLOBAL:QUOTE> <:SYSTEM>)})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> <:SYSTEM>)))
         => ("SYS: SYS; TYPES" (<:NAME> "System") (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> <:SYSTEM>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> <:SYSTEM>))))
        (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [114] {"SYS: SYS; TYPES"})
          (FASL-OP-INDEX [98] {(<:SHORT-NAME> "SYS")})
          (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
            (FASL-OP-INDEX [86] {(<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)})
            (FASL-OP-INDEX [94] {(<:NAME> "System")})
           => (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")))
          (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
            (FASL-OP-INDEX [94] {(<:NAME> "System")})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:NAME> "System")))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [94] {(<:NAME> "System")})
           => ("SYS: SYS2; CHARACTER" (<:NAME> "System")))
         => ("SYS: SYS; TYPES" (<:SHORT-NAME> "SYS") (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" (<:NAME> "System"))))
        (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [114] {"SYS: SYS; TYPES"})
          (FASL-OP-INDEX [102] {(<:PATCHABLE> "SYS: PATCH;")})
          (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
            (FASL-OP-INDEX [86] {(<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)})
            (FASL-OP-INDEX [94] {(<:NAME> "System")})
           => (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")))
          (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
            (FASL-OP-INDEX [98] {(<:SHORT-NAME> "SYS")})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:SHORT-NAME> "SYS")))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [98] {(<:SHORT-NAME> "SYS")})
           => ("SYS: SYS2; CHARACTER" (<:SHORT-NAME> "SYS")))
         => ("SYS: SYS; TYPES" (<:PATCHABLE> "SYS: PATCH;") (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:SHORT-NAME> "SYS")) ("SYS: SYS2; CHARACTER" (<:SHORT-NAME> "SYS"))))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [179] {"SYS: SYS2; ADVISE"})
          (FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
            (FASL-OP-INDEX [83] {<:PACKAGE>})
            (FASL-OP-INDEX [86] {(<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)})
            (FASL-OP-INDEX [90] {(<GLOBAL:QUOTE> <:SYSTEM>)})
            (FASL-OP-INDEX [94] {(<:NAME> "System")})
            (FASL-OP-INDEX [98] {(<:SHORT-NAME> "SYS")})
            (FASL-OP-INDEX [102] {(<:PATCHABLE> "SYS: PATCH;")})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE> (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> <:SYSTEM>) (<:NAME> "System") (<:SHORT-NAME> "SYS") (<:PATCHABLE> "SYS: PATCH;")))
         => ("SYS: SYS2; ADVISE" ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE> (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> <:SYSTEM>) (<:NAME> "System") (<:SHORT-NAME> "SYS") (<:PATCHABLE> "SYS: PATCH;"))))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [109] {<ALLDEFS>})
         => ("SYS: SYS2; CLASS" <ALLDEFS>))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [106] {(<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;SYSTEM-CWARNS.LISP")})
         => ("SYS: SYS2; CLASS" (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;SYSTEM-CWARNS.LISP")))
       => ((<GARBAGE-COLLECTOR> "Network System") (<FILE-SYSTEM> "Network") (NIL "sys: network; kernel;") (<:DO-COMPONENTS> <NETWORK-DRIVERS> <CHAOS> <IP-TCP>) (<METER> NIL "DEFS") (<METER> <LIBRARY> "LIBRARY") (<METER> <NETWORK-INTERFACE> ("NETWORK-INTERFACE")) (<METER> <PACKETS> ("PACKETS")) (<METER> <NETWORK-PROTOCOL> ("NETWORK-PROTOCOL")) (<METER> <ARP> ("ARP")) (<METER> <TRANSPORT-PROTOCOL> ("TRANSPORT-PROTOCOL")) (<METER> <CONFIGURATION> "CONFIGURE") (<METER> <NETSPY> "NETSPY") ("SYS: SYS2; CLASS" NIL) (<:COMPILE-LOAD-INIT> <:PACKAGE> NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS; TYPES" (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE>) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE>)) ("SYS: SYS; TYPES" (<GLOBAL:QUOTE> <:SYSTEM>) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE> (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE> (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>))) ("SYS: SYS; TYPES" (<:NAME> "System") (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> <:SYSTEM>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> <:SYSTEM>))) ("SYS: SYS; TYPES" (<:SHORT-NAME> "SYS") (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" (<:NAME> "System"))) ("SYS: SYS; TYPES" (<:PATCHABLE> "SYS: PATCH;") (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:SHORT-NAME> "SYS")) ("SYS: SYS2; CHARACTER" (<:SHORT-NAME> "SYS"))) ("SYS: SYS2; ADVISE" ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE> (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> <:SYSTEM>) (<:NAME> "System") (<:SHORT-NAME> "SYS") (<:PATCHABLE> "SYS: PATCH;"))) ("SYS: SYS2; CLASS" <ALLDEFS>) ("SYS: SYS2; CLASS" (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;SYSTEM-CWARNS.LISP"))))
     => (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "Network System") (<FILE-SYSTEM> "Network") (NIL "sys: network; kernel;") (<:DO-COMPONENTS> <NETWORK-DRIVERS> <CHAOS> <IP-TCP>) (<METER> NIL "DEFS") (<METER> <LIBRARY> "LIBRARY") (<METER> <NETWORK-INTERFACE> ("NETWORK-INTERFACE")) (<METER> <PACKETS> ("PACKETS")) (<METER> <NETWORK-PROTOCOL> ("NETWORK-PROTOCOL")) (<METER> <ARP> ("ARP")) (<METER> <TRANSPORT-PROTOCOL> ("TRANSPORT-PROTOCOL")) (<METER> <CONFIGURATION> "CONFIGURE") (<METER> <NETSPY> "NETSPY") ("SYS: SYS2; CLASS" NIL) (<:COMPILE-LOAD-INIT> <:PACKAGE> NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS; TYPES" (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE>) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE>)) ("SYS: SYS; TYPES" (<GLOBAL:QUOTE> <:SYSTEM>) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE> (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE> (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>))) ("SYS: SYS; TYPES" (<:NAME> "System") (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> <:SYSTEM>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> <:SYSTEM>))) ("SYS: SYS; TYPES" (<:SHORT-NAME> "SYS") (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" (<:NAME> "System"))) ("SYS: SYS; TYPES" (<:PATCHABLE> "SYS: PATCH;") (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:SHORT-NAME> "SYS")) ("SYS: SYS2; CHARACTER" (<:SHORT-NAME> "SYS"))) ("SYS: SYS2; ADVISE" ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE> (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> <:SYSTEM>) (<:NAME> "System") (<:SHORT-NAME> "SYS") (<:PATCHABLE> "SYS: PATCH;"))) ("SYS: SYS2; CLASS" <ALLDEFS>) ("SYS: SYS2; CLASS" (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;SYSTEM-CWARNS.LISP")))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:NETWORK>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "Network System") (<FILE-SYSTEM> "Network") (NIL "sys: network; kernel;") (<:DO-COMPONENTS> <NETWORK-DRIVERS> <CHAOS> <IP-TCP>) (<METER> NIL "DEFS") (<METER> <LIBRARY> "LIBRARY") (<METER> <NETWORK-INTERFACE> ("NETWORK-INTERFACE")) (<METER> <PACKETS> ("PACKETS")) (<METER> <NETWORK-PROTOCOL> ("NETWORK-PROTOCOL")) (<METER> <ARP> ("ARP")) (<METER> <TRANSPORT-PROTOCOL> ("TRANSPORT-PROTOCOL")) (<METER> <CONFIGURATION> "CONFIGURE") (<METER> <NETSPY> "NETSPY") ("SYS: SYS2; CLASS" NIL) (<:COMPILE-LOAD-INIT> <:PACKAGE> NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS; TYPES" (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE>) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE>)) ("SYS: SYS; TYPES" (<GLOBAL:QUOTE> <:SYSTEM>) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE> (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE> (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>))) ("SYS: SYS; TYPES" (<:NAME> "System") (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> <:SYSTEM>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> <:SYSTEM>))) ("SYS: SYS; TYPES" (<:SHORT-NAME> "SYS") (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" (<:NAME> "System"))) ("SYS: SYS; TYPES" (<:PATCHABLE> "SYS: PATCH;") (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:SHORT-NAME> "SYS")) ("SYS: SYS2; CHARACTER" (<:SHORT-NAME> "SYS"))) ("SYS: SYS2; ADVISE" ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE> (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> <:SYSTEM>) (<:NAME> "System") (<:SHORT-NAME> "SYS") (<:PATCHABLE> "SYS: PATCH;"))) ("SYS: SYS2; CLASS" <ALLDEFS>) ("SYS: SYS2; CLASS" (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;SYSTEM-CWARNS.LISP"))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:NETWORK>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "Network System") (<FILE-SYSTEM> "Network") (NIL "sys: network; kernel;") (<:DO-COMPONENTS> <NETWORK-DRIVERS> <CHAOS> <IP-TCP>) (<METER> NIL "DEFS") (<METER> <LIBRARY> "LIBRARY") (<METER> <NETWORK-INTERFACE> ("NETWORK-INTERFACE")) (<METER> <PACKETS> ("PACKETS")) (<METER> <NETWORK-PROTOCOL> ("NETWORK-PROTOCOL")) (<METER> <ARP> ("ARP")) (<METER> <TRANSPORT-PROTOCOL> ("TRANSPORT-PROTOCOL")) (<METER> <CONFIGURATION> "CONFIGURE") (<METER> <NETSPY> "NETSPY") ("SYS: SYS2; CLASS" NIL) (<:COMPILE-LOAD-INIT> <:PACKAGE> NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS; TYPES" (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE>) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE>)) ("SYS: SYS; TYPES" (<GLOBAL:QUOTE> <:SYSTEM>) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE> (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE> (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>))) ("SYS: SYS; TYPES" (<:NAME> "System") (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> <:SYSTEM>)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> <:SYSTEM>))) ("SYS: SYS; TYPES" (<:SHORT-NAME> "SYS") (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" (<:NAME> "System"))) ("SYS: SYS; TYPES" (<:PATCHABLE> "SYS: PATCH;") (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (<:SHORT-NAME> "SYS")) ("SYS: SYS2; CHARACTER" (<:SHORT-NAME> "SYS"))) ("SYS: SYS2; ADVISE" ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) <:PACKAGE> (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<GLOBAL:QUOTE> <:SYSTEM>) (<:NAME> "System") (<:SHORT-NAME> "SYS") (<:PATCHABLE> "SYS: PATCH;"))) ("SYS: SYS2; CLASS" <ALLDEFS>) ("SYS: SYS2; CLASS" (<:WARNINGS-PATHNAME-DEFAULT> "SYS:PATCH;SYSTEM-CWARNS.LISP")))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "NETWORK-DRIVERS")
        <:NETWORK-DRIVERS>)
     => (<GLOBAL:QUOTE> <:NETWORK-DRIVERS>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [122] {<GARBAGE-COLLECTOR>})
          (FASL-OP-STRING "Network Device Drivers")
         => (<GARBAGE-COLLECTOR> "Network Device Drivers"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [126] {<FILE-SYSTEM>})
          (FASL-OP-STRING "Network-Drivers")
         => (<FILE-SYSTEM> "Network-Drivers"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {NIL})
          (FASL-OP-STRING "SYS: NETWORK; DRIVERS;")
         => (NIL "SYS: NETWORK; DRIVERS;"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <DRIVERS>)
          (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "LOOPBACK")
            (FASL-OP-STRING "3COM")
            (FASL-OP-STRING "EXCELAN")
            (FASL-OP-STRING "SHARE")
            (FASL-OP-STRING "DRIVER-PROCESS")
           => ("LOOPBACK" "3COM" "EXCELAN" "SHARE" "DRIVER-PROCESS"))
         => (<METER> <DRIVERS> ("LOOPBACK" "3COM" "EXCELAN" "SHARE" "DRIVER-PROCESS")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [154] {(NIL NIL)})
         => ("SYS: SYS2; CLASS" (NIL NIL)))
       => ((<GARBAGE-COLLECTOR> "Network Device Drivers") (<FILE-SYSTEM> "Network-Drivers") (NIL "SYS: NETWORK; DRIVERS;") (<METER> <DRIVERS> ("LOOPBACK" "3COM" "EXCELAN" "SHARE" "DRIVER-PROCESS")) ("SYS: SYS2; CLASS" (NIL NIL))))
     => (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "Network Device Drivers") (<FILE-SYSTEM> "Network-Drivers") (NIL "SYS: NETWORK; DRIVERS;") (<METER> <DRIVERS> ("LOOPBACK" "3COM" "EXCELAN" "SHARE" "DRIVER-PROCESS")) ("SYS: SYS2; CLASS" (NIL NIL)))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:NETWORK-DRIVERS>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "Network Device Drivers") (<FILE-SYSTEM> "Network-Drivers") (NIL "SYS: NETWORK; DRIVERS;") (<METER> <DRIVERS> ("LOOPBACK" "3COM" "EXCELAN" "SHARE" "DRIVER-PROCESS")) ("SYS: SYS2; CLASS" (NIL NIL))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:NETWORK-DRIVERS>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "Network Device Drivers") (<FILE-SYSTEM> "Network-Drivers") (NIL "SYS: NETWORK; DRIVERS;") (<METER> <DRIVERS> ("LOOPBACK" "3COM" "EXCELAN" "SHARE" "DRIVER-PROCESS")) ("SYS: SYS2; CLASS" (NIL NIL)))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "IP-TCP")
        <:IP-TCP>)
     => (<GLOBAL:QUOTE> <:IP-TCP>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [22] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [122] {<GARBAGE-COLLECTOR>})
          (FASL-OP-STRING "IP-TCP")
         => (<GARBAGE-COLLECTOR> "IP-TCP"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {NIL})
          (FASL-OP-STRING "SYS: NETWORK; IP-TCP; KERNEL;")
         => (NIL "SYS: NETWORK; IP-TCP; KERNEL;"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [149] {<:DO-COMPONENTS>})
          (FASL-OP-SYMBOL <TCP-USER>)
          (FASL-OP-SYMBOL <TCP-SERVER>)
         => (<:DO-COMPONENTS> <TCP-USER> <TCP-SERVER>))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <IP>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "IP")
           => ("IP"))
         => (<METER> <IP> ("IP")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <ICMP>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "ICMP")
           => ("ICMP"))
         => (<METER> <ICMP> ("ICMP")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <UDP>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "UDP")
           => ("UDP"))
         => (<METER> <UDP> ("UDP")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <UDP-STREAM>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "UDP-STREAM")
           => ("UDP-STREAM"))
         => (<METER> <UDP-STREAM> ("UDP-STREAM")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <TCP>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "TCP")
           => ("TCP"))
         => (<METER> <TCP> ("TCP")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <TCP-STREAM>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "TCP-STREAM")
           => ("TCP-STREAM"))
         => (<METER> <TCP-STREAM> ("TCP-STREAM")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <PORTS>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "PORTS")
           => ("PORTS"))
         => (<METER> <PORTS> ("PORTS")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <EASY>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "EASY")
           => ("EASY"))
         => (<METER> <EASY> ("EASY")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <TCP-UDP-SERVER>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "GENERIC-SERVER")
           => ("GENERIC-SERVER"))
         => (<METER> <TCP-UDP-SERVER> ("GENERIC-SERVER")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [177] {(<METER> <CLASS> "SYS: SYS2; CLASS")})
         => ("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")))
        (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [114] {"SYS: SYS; TYPES"})
          (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [177] {(<METER> <CLASS> "SYS: SYS2; CLASS")})
           => ((<METER> <CLASS> "SYS: SYS2; CLASS")))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [177] {(<METER> <CLASS> "SYS: SYS2; CLASS")})
           => ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [177] {(<METER> <CLASS> "SYS: SYS2; CLASS")})
           => ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")))
         => ("SYS: SYS; TYPES" "SYS: SYS2; CHARACTER" ((<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS"))))
        (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [114] {"SYS: SYS; TYPES"})
          (FASL-OP-INDEX [185] {"SYS: IO; NEW-DISK"})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [177] {(<METER> <CLASS> "SYS: SYS2; CLASS")})
           => ((<METER> <CLASS> "SYS: SYS2; CLASS")))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [177] {(<METER> <CLASS> "SYS: SYS2; CLASS")})
           => ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [177] {(<METER> <CLASS> "SYS: SYS2; CLASS")})
           => ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")))
         => ("SYS: SYS; TYPES" "SYS: IO; NEW-DISK" ((<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS"))))
        (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [114] {"SYS: SYS; TYPES"})
          (FASL-OP-INDEX [193] {"sys: sys; special-forms"})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [177] {(<METER> <CLASS> "SYS: SYS2; CLASS")})
           => ((<METER> <CLASS> "SYS: SYS2; CLASS")))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [177] {(<METER> <CLASS> "SYS: SYS2; CLASS")})
           => ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [177] {(<METER> <CLASS> "SYS: SYS2; CLASS")})
           => ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")))
         => ("SYS: SYS; TYPES" "sys: sys; special-forms" ((<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS"))))
        (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [114] {"SYS: SYS; TYPES"})
          (FASL-OP-INDEX [189] {"SYS: IO; DLEDIT"})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [185] {"SYS: IO; NEW-DISK"})
           => ("SYS: IO; NEW-DISK"))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [185] {"SYS: IO; NEW-DISK"})
           => ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK"))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [185] {"SYS: IO; NEW-DISK"})
           => ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK"))
         => ("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")))
        (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [114] {"SYS: SYS; TYPES"})
          (FASL-OP-INDEX [197] {"SYS: IO; GRIND"})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [193] {"sys: sys; special-forms"})
           => ("sys: sys; special-forms"))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [193] {"sys: sys; special-forms"})
           => ("SYS: SYS2; CHARACTER" "sys: sys; special-forms"))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [193] {"sys: sys; special-forms"})
           => ("SYS: SYS2; CHARACTER" "sys: sys; special-forms"))
         => ("SYS: SYS; TYPES" "SYS: IO; GRIND" ("sys: sys; special-forms") ("SYS: SYS2; CHARACTER" "sys: sys; special-forms") ("SYS: SYS2; CHARACTER" "sys: sys; special-forms")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [201] {"SYS: NETWORK; PACKAGES"})
         => ("SYS: SYS2; CLASS" "SYS: NETWORK; PACKAGES"))
        (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [114] {"SYS: SYS; TYPES"})
          (FASL-OP-INDEX [205] {"SYS: IO; INPUT-READERS"})
          (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [197] {"SYS: IO; GRIND"})
            (FASL-OP-INDEX [189] {"SYS: IO; DLEDIT"})
            (FASL-OP-INDEX [201] {"SYS: NETWORK; PACKAGES"})
           => ("SYS: IO; GRIND" "SYS: IO; DLEDIT" "SYS: NETWORK; PACKAGES"))
          (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [197] {"SYS: IO; GRIND"})
            (FASL-OP-INDEX [189] {"SYS: IO; DLEDIT"})
            (FASL-OP-INDEX [201] {"SYS: NETWORK; PACKAGES"})
           => ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT" "SYS: NETWORK; PACKAGES"))
          (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [197] {"SYS: IO; GRIND"})
            (FASL-OP-INDEX [189] {"SYS: IO; DLEDIT"})
            (FASL-OP-INDEX [201] {"SYS: NETWORK; PACKAGES"})
           => ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT" "SYS: NETWORK; PACKAGES"))
         => ("SYS: SYS; TYPES" "SYS: IO; INPUT-READERS" ("SYS: IO; GRIND" "SYS: IO; DLEDIT" "SYS: NETWORK; PACKAGES") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT" "SYS: NETWORK; PACKAGES") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT" "SYS: NETWORK; PACKAGES")))
        (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [114] {"SYS: SYS; TYPES"})
          (FASL-OP-INDEX [209] {"SYS: SYS2; LOOP"})
          (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [193] {"sys: sys; special-forms"})
            (FASL-OP-INDEX [185] {"SYS: IO; NEW-DISK"})
            (FASL-OP-INDEX [197] {"SYS: IO; GRIND"})
            (FASL-OP-INDEX [189] {"SYS: IO; DLEDIT"})
           => ("sys: sys; special-forms" "SYS: IO; NEW-DISK" "SYS: IO; GRIND" "SYS: IO; DLEDIT"))
          (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [197] {"SYS: IO; GRIND"})
            (FASL-OP-INDEX [189] {"SYS: IO; DLEDIT"})
           => ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT"))
          (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [197] {"SYS: IO; GRIND"})
            (FASL-OP-INDEX [189] {"SYS: IO; DLEDIT"})
           => ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT"))
         => ("SYS: SYS; TYPES" "SYS: SYS2; LOOP" ("sys: sys; special-forms" "SYS: IO; NEW-DISK" "SYS: IO; GRIND" "SYS: IO; DLEDIT") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [179] {"SYS: SYS2; ADVISE"})
          (FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [177] {(<METER> <CLASS> "SYS: SYS2; CLASS")})
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [185] {"SYS: IO; NEW-DISK"})
            (FASL-OP-INDEX [189] {"SYS: IO; DLEDIT"})
            (FASL-OP-INDEX [193] {"sys: sys; special-forms"})
            (FASL-OP-INDEX [197] {"SYS: IO; GRIND"})
            (FASL-OP-INDEX [201] {"SYS: NETWORK; PACKAGES"})
            (FASL-OP-INDEX [205] {"SYS: IO; INPUT-READERS"})
            (FASL-OP-INDEX [209] {"SYS: SYS2; LOOP"})
           => ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS") "SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK" "SYS: IO; DLEDIT" "sys: sys; special-forms" "SYS: IO; GRIND" "SYS: NETWORK; PACKAGES" "SYS: IO; INPUT-READERS" "SYS: SYS2; LOOP"))
         => ("SYS: SYS2; ADVISE" ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS") "SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK" "SYS: IO; DLEDIT" "sys: sys; special-forms" "SYS: IO; GRIND" "SYS: NETWORK; PACKAGES" "SYS: IO; INPUT-READERS" "SYS: SYS2; LOOP")))
       => ((<GARBAGE-COLLECTOR> "IP-TCP") (NIL "SYS: NETWORK; IP-TCP; KERNEL;") (<:DO-COMPONENTS> <TCP-USER> <TCP-SERVER>) (<METER> <IP> ("IP")) (<METER> <ICMP> ("ICMP")) (<METER> <UDP> ("UDP")) (<METER> <UDP-STREAM> ("UDP-STREAM")) (<METER> <TCP> ("TCP")) (<METER> <TCP-STREAM> ("TCP-STREAM")) (<METER> <PORTS> ("PORTS")) (<METER> <EASY> ("EASY")) (<METER> <TCP-UDP-SERVER> ("GENERIC-SERVER")) ("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS; TYPES" "SYS: SYS2; CHARACTER" ((<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS"))) ("SYS: SYS; TYPES" "SYS: IO; NEW-DISK" ((<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS"))) ("SYS: SYS; TYPES" "sys: sys; special-forms" ((<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS"))) ("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) ("SYS: SYS; TYPES" "SYS: IO; GRIND" ("sys: sys; special-forms") ("SYS: SYS2; CHARACTER" "sys: sys; special-forms") ("SYS: SYS2; CHARACTER" "sys: sys; special-forms")) ("SYS: SYS2; CLASS" "SYS: NETWORK; PACKAGES") ("SYS: SYS; TYPES" "SYS: IO; INPUT-READERS" ("SYS: IO; GRIND" "SYS: IO; DLEDIT" "SYS: NETWORK; PACKAGES") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT" "SYS: NETWORK; PACKAGES") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT" "SYS: NETWORK; PACKAGES")) ("SYS: SYS; TYPES" "SYS: SYS2; LOOP" ("sys: sys; special-forms" "SYS: IO; NEW-DISK" "SYS: IO; GRIND" "SYS: IO; DLEDIT") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT")) ("SYS: SYS2; ADVISE" ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS") "SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK" "SYS: IO; DLEDIT" "sys: sys; special-forms" "SYS: IO; GRIND" "SYS: NETWORK; PACKAGES" "SYS: IO; INPUT-READERS" "SYS: SYS2; LOOP"))))
     => (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "IP-TCP") (NIL "SYS: NETWORK; IP-TCP; KERNEL;") (<:DO-COMPONENTS> <TCP-USER> <TCP-SERVER>) (<METER> <IP> ("IP")) (<METER> <ICMP> ("ICMP")) (<METER> <UDP> ("UDP")) (<METER> <UDP-STREAM> ("UDP-STREAM")) (<METER> <TCP> ("TCP")) (<METER> <TCP-STREAM> ("TCP-STREAM")) (<METER> <PORTS> ("PORTS")) (<METER> <EASY> ("EASY")) (<METER> <TCP-UDP-SERVER> ("GENERIC-SERVER")) ("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS; TYPES" "SYS: SYS2; CHARACTER" ((<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS"))) ("SYS: SYS; TYPES" "SYS: IO; NEW-DISK" ((<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS"))) ("SYS: SYS; TYPES" "sys: sys; special-forms" ((<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS"))) ("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) ("SYS: SYS; TYPES" "SYS: IO; GRIND" ("sys: sys; special-forms") ("SYS: SYS2; CHARACTER" "sys: sys; special-forms") ("SYS: SYS2; CHARACTER" "sys: sys; special-forms")) ("SYS: SYS2; CLASS" "SYS: NETWORK; PACKAGES") ("SYS: SYS; TYPES" "SYS: IO; INPUT-READERS" ("SYS: IO; GRIND" "SYS: IO; DLEDIT" "SYS: NETWORK; PACKAGES") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT" "SYS: NETWORK; PACKAGES") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT" "SYS: NETWORK; PACKAGES")) ("SYS: SYS; TYPES" "SYS: SYS2; LOOP" ("sys: sys; special-forms" "SYS: IO; NEW-DISK" "SYS: IO; GRIND" "SYS: IO; DLEDIT") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT")) ("SYS: SYS2; ADVISE" ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS") "SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK" "SYS: IO; DLEDIT" "sys: sys; special-forms" "SYS: IO; GRIND" "SYS: NETWORK; PACKAGES" "SYS: IO; INPUT-READERS" "SYS: SYS2; LOOP")))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:IP-TCP>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "IP-TCP") (NIL "SYS: NETWORK; IP-TCP; KERNEL;") (<:DO-COMPONENTS> <TCP-USER> <TCP-SERVER>) (<METER> <IP> ("IP")) (<METER> <ICMP> ("ICMP")) (<METER> <UDP> ("UDP")) (<METER> <UDP-STREAM> ("UDP-STREAM")) (<METER> <TCP> ("TCP")) (<METER> <TCP-STREAM> ("TCP-STREAM")) (<METER> <PORTS> ("PORTS")) (<METER> <EASY> ("EASY")) (<METER> <TCP-UDP-SERVER> ("GENERIC-SERVER")) ("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS; TYPES" "SYS: SYS2; CHARACTER" ((<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS"))) ("SYS: SYS; TYPES" "SYS: IO; NEW-DISK" ((<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS"))) ("SYS: SYS; TYPES" "sys: sys; special-forms" ((<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS"))) ("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) ("SYS: SYS; TYPES" "SYS: IO; GRIND" ("sys: sys; special-forms") ("SYS: SYS2; CHARACTER" "sys: sys; special-forms") ("SYS: SYS2; CHARACTER" "sys: sys; special-forms")) ("SYS: SYS2; CLASS" "SYS: NETWORK; PACKAGES") ("SYS: SYS; TYPES" "SYS: IO; INPUT-READERS" ("SYS: IO; GRIND" "SYS: IO; DLEDIT" "SYS: NETWORK; PACKAGES") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT" "SYS: NETWORK; PACKAGES") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT" "SYS: NETWORK; PACKAGES")) ("SYS: SYS; TYPES" "SYS: SYS2; LOOP" ("sys: sys; special-forms" "SYS: IO; NEW-DISK" "SYS: IO; GRIND" "SYS: IO; DLEDIT") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT")) ("SYS: SYS2; ADVISE" ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS") "SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK" "SYS: IO; DLEDIT" "sys: sys; special-forms" "SYS: IO; GRIND" "SYS: NETWORK; PACKAGES" "SYS: IO; INPUT-READERS" "SYS: SYS2; LOOP"))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:IP-TCP>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "IP-TCP") (NIL "SYS: NETWORK; IP-TCP; KERNEL;") (<:DO-COMPONENTS> <TCP-USER> <TCP-SERVER>) (<METER> <IP> ("IP")) (<METER> <ICMP> ("ICMP")) (<METER> <UDP> ("UDP")) (<METER> <UDP-STREAM> ("UDP-STREAM")) (<METER> <TCP> ("TCP")) (<METER> <TCP-STREAM> ("TCP-STREAM")) (<METER> <PORTS> ("PORTS")) (<METER> <EASY> ("EASY")) (<METER> <TCP-UDP-SERVER> ("GENERIC-SERVER")) ("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS; TYPES" "SYS: SYS2; CHARACTER" ((<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS"))) ("SYS: SYS; TYPES" "SYS: IO; NEW-DISK" ((<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS"))) ("SYS: SYS; TYPES" "sys: sys; special-forms" ((<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS"))) ("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) ("SYS: SYS; TYPES" "SYS: IO; GRIND" ("sys: sys; special-forms") ("SYS: SYS2; CHARACTER" "sys: sys; special-forms") ("SYS: SYS2; CHARACTER" "sys: sys; special-forms")) ("SYS: SYS2; CLASS" "SYS: NETWORK; PACKAGES") ("SYS: SYS; TYPES" "SYS: IO; INPUT-READERS" ("SYS: IO; GRIND" "SYS: IO; DLEDIT" "SYS: NETWORK; PACKAGES") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT" "SYS: NETWORK; PACKAGES") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT" "SYS: NETWORK; PACKAGES")) ("SYS: SYS; TYPES" "SYS: SYS2; LOOP" ("sys: sys; special-forms" "SYS: IO; NEW-DISK" "SYS: IO; GRIND" "SYS: IO; DLEDIT") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT") ("SYS: SYS2; CHARACTER" "SYS: IO; GRIND" "SYS: IO; DLEDIT")) ("SYS: SYS2; ADVISE" ("SYS: SYS2; CHARACTER" (<METER> <CLASS> "SYS: SYS2; CLASS") "SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK" "SYS: IO; DLEDIT" "sys: sys; special-forms" "SYS: IO; GRIND" "SYS: NETWORK; PACKAGES" "SYS: IO; INPUT-READERS" "SYS: SYS2; LOOP")))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "TCP-SERVER")
        <:TCP-SERVER>)
     => (<GLOBAL:QUOTE> <:TCP-SERVER>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [16] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [122] {<GARBAGE-COLLECTOR>})
          (FASL-OP-STRING "TCP-SERVER")
         => (<GARBAGE-COLLECTOR> "TCP-SERVER"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK"))})
          (FASL-OP-STRING "SYS: NETWORK; IP-TCP; SERVER;")
         => (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: NETWORK; IP-TCP; SERVER;"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <UDP-SERVER-APPLICATIONS>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "UDP-RWHO-SERVER")
           => ("UDP-RWHO-SERVER"))
         => (<METER> <UDP-SERVER-APPLICATIONS> ("UDP-RWHO-SERVER")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <TERMCAP>)
          (FASL-OP-STRING "TERMCAP")
         => (<METER> <TERMCAP> "TERMCAP"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <TELNET-UTILITIES>)
          (FASL-OP-STRING "TELNET-UTILITIES")
         => (<METER> <TELNET-UTILITIES> "TELNET-UTILITIES"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <TELNET>)
          (FASL-OP-STRING "TELNET")
         => (<METER> <TELNET> "TELNET"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <FTP>)
          (FASL-OP-STRING "FTP")
         => (<METER> <FTP> "FTP"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <SMTP>)
          (FASL-OP-STRING "SMTP")
         => (<METER> <SMTP> "SMTP"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <DISK>)
          (FASL-OP-STRING "DISK")
         => (<METER> <DISK> "DISK"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [159] {(<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>)})
          (FASL-OP-STRING "TIME")
         => (<METER> (<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>) "TIME"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <FINGER>)
          (FASL-OP-STRING "FINGER")
         => (<METER> <FINGER> "FINGER"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <ALL>)
          (FASL-OP-LIST [6] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [53] {<:QFASL-SOURCE-FILE-UNIQUE-ID>})
            (FASL-OP-INDEX [56] {<FS:MAKE-FASLOAD-PATHNAME>})
            (FASL-OP-INDEX [59] {"DJ"})
            (FASL-OP-INDEX [62] {(<GLOBAL:QUOTE> "DSK")})
            (FASL-OP-INDEX [159] {(<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>)})
            (FASL-OP-INDEX [67] {"SYSDCL"})
           => (<:QFASL-SOURCE-FILE-UNIQUE-ID> <FS:MAKE-FASLOAD-PATHNAME> "DJ" (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>) "SYSDCL"))
         => (<METER> <ALL> (<:QFASL-SOURCE-FILE-UNIQUE-ID> <FS:MAKE-FASLOAD-PATHNAME> "DJ" (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>) "SYSDCL")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [43] {"GLOBAL"})
         => ("SYS: SYS2; CLASS" "GLOBAL"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [47] {<:SITE>})
         => ("SYS: SYS2; CLASS" <:SITE>))
        (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [50] {(<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [47] {<:SITE>})
           => ("SYS: SYS2; CHARACTER" <:SITE>))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [47] {<:SITE>})
           => ("SYS: SYS2; CHARACTER" <:SITE>))
         => ("SYS: SYS2; CLASS" (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>) ("SYS: SYS2; CHARACTER" <:SITE>) ("SYS: SYS2; CHARACTER" <:SITE>)))
        (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [70] {(<GLOBAL:QUOTE> "LISP")})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [50] {(<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)})
           => ("SYS: SYS2; CHARACTER" (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [50] {(<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)})
           => ("SYS: SYS2; CHARACTER" (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)))
         => ("SYS: SYS2; CLASS" (<GLOBAL:QUOTE> "LISP") ("SYS: SYS2; CHARACTER" (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) ("SYS: SYS2; CHARACTER" (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>))))
       => ((<GARBAGE-COLLECTOR> "TCP-SERVER") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: NETWORK; IP-TCP; SERVER;") (<METER> <UDP-SERVER-APPLICATIONS> ("UDP-RWHO-SERVER")) (<METER> <TERMCAP> "TERMCAP") (<METER> <TELNET-UTILITIES> "TELNET-UTILITIES") (<METER> <TELNET> "TELNET") (<METER> <FTP> "FTP") (<METER> <SMTP> "SMTP") (<METER> <DISK> "DISK") (<METER> (<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>) "TIME") (<METER> <FINGER> "FINGER") (<METER> <ALL> (<:QFASL-SOURCE-FILE-UNIQUE-ID> <FS:MAKE-FASLOAD-PATHNAME> "DJ" (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>) "SYSDCL")) ("SYS: SYS2; CLASS" "GLOBAL") ("SYS: SYS2; CLASS" <:SITE>) ("SYS: SYS2; CLASS" (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>) ("SYS: SYS2; CHARACTER" <:SITE>) ("SYS: SYS2; CHARACTER" <:SITE>)) ("SYS: SYS2; CLASS" (<GLOBAL:QUOTE> "LISP") ("SYS: SYS2; CHARACTER" (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) ("SYS: SYS2; CHARACTER" (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)))))
     => (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "TCP-SERVER") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: NETWORK; IP-TCP; SERVER;") (<METER> <UDP-SERVER-APPLICATIONS> ("UDP-RWHO-SERVER")) (<METER> <TERMCAP> "TERMCAP") (<METER> <TELNET-UTILITIES> "TELNET-UTILITIES") (<METER> <TELNET> "TELNET") (<METER> <FTP> "FTP") (<METER> <SMTP> "SMTP") (<METER> <DISK> "DISK") (<METER> (<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>) "TIME") (<METER> <FINGER> "FINGER") (<METER> <ALL> (<:QFASL-SOURCE-FILE-UNIQUE-ID> <FS:MAKE-FASLOAD-PATHNAME> "DJ" (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>) "SYSDCL")) ("SYS: SYS2; CLASS" "GLOBAL") ("SYS: SYS2; CLASS" <:SITE>) ("SYS: SYS2; CLASS" (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>) ("SYS: SYS2; CHARACTER" <:SITE>) ("SYS: SYS2; CHARACTER" <:SITE>)) ("SYS: SYS2; CLASS" (<GLOBAL:QUOTE> "LISP") ("SYS: SYS2; CHARACTER" (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) ("SYS: SYS2; CHARACTER" (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>))))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:TCP-SERVER>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "TCP-SERVER") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: NETWORK; IP-TCP; SERVER;") (<METER> <UDP-SERVER-APPLICATIONS> ("UDP-RWHO-SERVER")) (<METER> <TERMCAP> "TERMCAP") (<METER> <TELNET-UTILITIES> "TELNET-UTILITIES") (<METER> <TELNET> "TELNET") (<METER> <FTP> "FTP") (<METER> <SMTP> "SMTP") (<METER> <DISK> "DISK") (<METER> (<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>) "TIME") (<METER> <FINGER> "FINGER") (<METER> <ALL> (<:QFASL-SOURCE-FILE-UNIQUE-ID> <FS:MAKE-FASLOAD-PATHNAME> "DJ" (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>) "SYSDCL")) ("SYS: SYS2; CLASS" "GLOBAL") ("SYS: SYS2; CLASS" <:SITE>) ("SYS: SYS2; CLASS" (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>) ("SYS: SYS2; CHARACTER" <:SITE>) ("SYS: SYS2; CHARACTER" <:SITE>)) ("SYS: SYS2; CLASS" (<GLOBAL:QUOTE> "LISP") ("SYS: SYS2; CHARACTER" (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) ("SYS: SYS2; CHARACTER" (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:TCP-SERVER>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "TCP-SERVER") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: NETWORK; IP-TCP; SERVER;") (<METER> <UDP-SERVER-APPLICATIONS> ("UDP-RWHO-SERVER")) (<METER> <TERMCAP> "TERMCAP") (<METER> <TELNET-UTILITIES> "TELNET-UTILITIES") (<METER> <TELNET> "TELNET") (<METER> <FTP> "FTP") (<METER> <SMTP> "SMTP") (<METER> <DISK> "DISK") (<METER> (<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>) "TIME") (<METER> <FINGER> "FINGER") (<METER> <ALL> (<:QFASL-SOURCE-FILE-UNIQUE-ID> <FS:MAKE-FASLOAD-PATHNAME> "DJ" (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> <:SYSTEM-INTERNALS>) "SYSDCL")) ("SYS: SYS2; CLASS" "GLOBAL") ("SYS: SYS2; CLASS" <:SITE>) ("SYS: SYS2; CLASS" (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>) ("SYS: SYS2; CHARACTER" <:SITE>) ("SYS: SYS2; CHARACTER" <:SITE>)) ("SYS: SYS2; CLASS" (<GLOBAL:QUOTE> "LISP") ("SYS: SYS2; CHARACTER" (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) ("SYS: SYS2; CHARACTER" (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>))))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "TCP-USER")
        <:TCP-USER>)
     => (<GLOBAL:QUOTE> <:TCP-USER>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [12] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [122] {<GARBAGE-COLLECTOR>})
          (FASL-OP-STRING "TCP-USER")
         => (<GARBAGE-COLLECTOR> "TCP-USER"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK"))})
          (FASL-OP-STRING "SYS: NETWORK; IP-TCP; USER;")
         => (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: NETWORK; IP-TCP; USER;"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <SIMPLE-USER-APPLICATIONS>)
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "TCP-TEST")
            (FASL-OP-STRING "IMAGEN")
           => ("TCP-TEST" "IMAGEN"))
         => (<METER> <SIMPLE-USER-APPLICATIONS> ("TCP-TEST" "IMAGEN")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "FTP-SYMS")
           => ("FTP-SYMS"))
         => (<METER> ("SYS: SYS2; CHARACTER" NIL) ("FTP-SYMS")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [53] {<:QFASL-SOURCE-FILE-UNIQUE-ID>})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "TELNET")
           => ("TELNET"))
         => (<METER> <:QFASL-SOURCE-FILE-UNIQUE-ID> ("TELNET")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [56] {<FS:MAKE-FASLOAD-PATHNAME>})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "FTP")
           => ("FTP"))
         => (<METER> <FS:MAKE-FASLOAD-PATHNAME> ("FTP")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [78] {<:CL>})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "CHAOS-SERVER")
           => ("CHAOS-SERVER"))
         => (<METER> <:CL> ("CHAOS-SERVER")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [59] {"DJ"})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SMTP")
           => ("SMTP"))
         => (<METER> "DJ" ("SMTP")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [70] {(<GLOBAL:QUOTE> "LISP")})
          (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [53] {<:QFASL-SOURCE-FILE-UNIQUE-ID>})
            (FASL-OP-INDEX [56] {<FS:MAKE-FASLOAD-PATHNAME>})
            (FASL-OP-INDEX [78] {<:CL>})
            (FASL-OP-INDEX [59] {"DJ"})
           => (<:QFASL-SOURCE-FILE-UNIQUE-ID> <FS:MAKE-FASLOAD-PATHNAME> <:CL> "DJ"))
         => (<METER> (<GLOBAL:QUOTE> "LISP") (<:QFASL-SOURCE-FILE-UNIQUE-ID> <FS:MAKE-FASLOAD-PATHNAME> <:CL> "DJ")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [112] {"SYS: SYS2; SETF"})
         => ("SYS: SYS2; CLASS" "SYS: SYS2; SETF"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
         => ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)))
        (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [70] {(<GLOBAL:QUOTE> "LISP")})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))
         => ("SYS: SYS2; CLASS" (<GLOBAL:QUOTE> "LISP") ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))))
       => ((<GARBAGE-COLLECTOR> "TCP-USER") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: NETWORK; IP-TCP; USER;") (<METER> <SIMPLE-USER-APPLICATIONS> ("TCP-TEST" "IMAGEN")) (<METER> ("SYS: SYS2; CHARACTER" NIL) ("FTP-SYMS")) (<METER> <:QFASL-SOURCE-FILE-UNIQUE-ID> ("TELNET")) (<METER> <FS:MAKE-FASLOAD-PATHNAME> ("FTP")) (<METER> <:CL> ("CHAOS-SERVER")) (<METER> "DJ" ("SMTP")) (<METER> (<GLOBAL:QUOTE> "LISP") (<:QFASL-SOURCE-FILE-UNIQUE-ID> <FS:MAKE-FASLOAD-PATHNAME> <:CL> "DJ")) ("SYS: SYS2; CLASS" "SYS: SYS2; SETF") ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (<GLOBAL:QUOTE> "LISP") ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))))
     => (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "TCP-USER") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: NETWORK; IP-TCP; USER;") (<METER> <SIMPLE-USER-APPLICATIONS> ("TCP-TEST" "IMAGEN")) (<METER> ("SYS: SYS2; CHARACTER" NIL) ("FTP-SYMS")) (<METER> <:QFASL-SOURCE-FILE-UNIQUE-ID> ("TELNET")) (<METER> <FS:MAKE-FASLOAD-PATHNAME> ("FTP")) (<METER> <:CL> ("CHAOS-SERVER")) (<METER> "DJ" ("SMTP")) (<METER> (<GLOBAL:QUOTE> "LISP") (<:QFASL-SOURCE-FILE-UNIQUE-ID> <FS:MAKE-FASLOAD-PATHNAME> <:CL> "DJ")) ("SYS: SYS2; CLASS" "SYS: SYS2; SETF") ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (<GLOBAL:QUOTE> "LISP") ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:TCP-USER>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "TCP-USER") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: NETWORK; IP-TCP; USER;") (<METER> <SIMPLE-USER-APPLICATIONS> ("TCP-TEST" "IMAGEN")) (<METER> ("SYS: SYS2; CHARACTER" NIL) ("FTP-SYMS")) (<METER> <:QFASL-SOURCE-FILE-UNIQUE-ID> ("TELNET")) (<METER> <FS:MAKE-FASLOAD-PATHNAME> ("FTP")) (<METER> <:CL> ("CHAOS-SERVER")) (<METER> "DJ" ("SMTP")) (<METER> (<GLOBAL:QUOTE> "LISP") (<:QFASL-SOURCE-FILE-UNIQUE-ID> <FS:MAKE-FASLOAD-PATHNAME> <:CL> "DJ")) ("SYS: SYS2; CLASS" "SYS: SYS2; SETF") ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (<GLOBAL:QUOTE> "LISP") ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:TCP-USER>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "TCP-USER") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: NETWORK; IP-TCP; USER;") (<METER> <SIMPLE-USER-APPLICATIONS> ("TCP-TEST" "IMAGEN")) (<METER> ("SYS: SYS2; CHARACTER" NIL) ("FTP-SYMS")) (<METER> <:QFASL-SOURCE-FILE-UNIQUE-ID> ("TELNET")) (<METER> <FS:MAKE-FASLOAD-PATHNAME> ("FTP")) (<METER> <:CL> ("CHAOS-SERVER")) (<METER> "DJ" ("SMTP")) (<METER> (<GLOBAL:QUOTE> "LISP") (<:QFASL-SOURCE-FILE-UNIQUE-ID> <FS:MAKE-FASLOAD-PATHNAME> <:CL> "DJ")) ("SYS: SYS2; CLASS" "SYS: SYS2; SETF") ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (<GLOBAL:QUOTE> "LISP") ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "CHAOS")
        <:CHAOS>)
     => (<GLOBAL:QUOTE> <:CHAOS>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK"))})
          (FASL-OP-STRING "SYS: NETWORK; CHAOS;")
         => (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: NETWORK; CHAOS;"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <NCP>)
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "CHSNCP")
            (FASL-OP-STRING "CHUSE")
           => ("CHSNCP" "CHUSE"))
         => (<METER> <NCP> ("CHSNCP" "CHUSE")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <AUX>)
          (FASL-OP-STRING "CHSAUX")
         => (<METER> <AUX> "CHSAUX"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [148] {"DO-COMPONENTS"})
            (FASL-OP-INDEX [153] {(<:DO-COMPONENTS> (<:FASLOAD> <SRCCOM>))})
           => ("DO-COMPONENTS" (<:DO-COMPONENTS> (<:FASLOAD> <SRCCOM>))))
         => ("SYS: SYS2; CLASS" ("DO-COMPONENTS" (<:DO-COMPONENTS> (<:FASLOAD> <SRCCOM>)))))
       => ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: NETWORK; CHAOS;") (<METER> <NCP> ("CHSNCP" "CHUSE")) (<METER> <AUX> "CHSAUX") ("SYS: SYS2; CLASS" ("DO-COMPONENTS" (<:DO-COMPONENTS> (<:FASLOAD> <SRCCOM>))))))
     => (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: NETWORK; CHAOS;") (<METER> <NCP> ("CHSNCP" "CHUSE")) (<METER> <AUX> "CHSAUX") ("SYS: SYS2; CLASS" ("DO-COMPONENTS" (<:DO-COMPONENTS> (<:FASLOAD> <SRCCOM>)))))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:CHAOS>) (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: NETWORK; CHAOS;") (<METER> <NCP> ("CHSNCP" "CHUSE")) (<METER> <AUX> "CHSAUX") ("SYS: SYS2; CLASS" ("DO-COMPONENTS" (<:DO-COMPONENTS> (<:FASLOAD> <SRCCOM>))))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:CHAOS>) (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: NETWORK; CHAOS;") (<METER> <NCP> ("CHSNCP" "CHUSE")) (<METER> <AUX> "CHSAUX") ("SYS: SYS2; CLASS" ("DO-COMPONENTS" (<:DO-COMPONENTS> (<:FASLOAD> <SRCCOM>)))))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "SHARE")
        <:SHARE>)
     => (<GLOBAL:QUOTE> <:SHARE>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [9] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [122] {<GARBAGE-COLLECTOR>})
          (FASL-OP-STRING "Share")
         => (<GARBAGE-COLLECTOR> "Share"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK"))})
          (FASL-OP-STRING "sys: sys;")
         => (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys: sys;"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [83] {<:PACKAGE>})
          (FASL-OP-SYMBOL <SI>)
         => (<:PACKAGE> <SI>))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "sys: cold; sysconf")
           => ("sys: cold; sysconf"))
         => (<METER> ("SYS: SYS2; CHARACTER" NIL) ("sys: cold; sysconf")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <MACROS>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "config-defs")
           => ("config-defs"))
         => (<METER> <MACROS> ("config-defs")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "iomsg")
            (FASL-OP-STRING "shared-device")
            (FASL-OP-STRING "config")
           => ("iomsg" "shared-device" "config"))
         => (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("iomsg" "shared-device" "config")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
         => ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [194] {"SYS: SYS2; FLAVOR"})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))
         => ("SYS: SYS2; CLASS" "SYS: SYS2; FLAVOR" ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))))
        (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [194] {"SYS: SYS2; FLAVOR"})
           => ("SYS: SYS2; CHARACTER" "SYS: SYS2; FLAVOR"))
         => ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" "SYS: SYS2; FLAVOR")))
       => ((<GARBAGE-COLLECTOR> "Share") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys: sys;") (<:PACKAGE> <SI>) (<METER> ("SYS: SYS2; CHARACTER" NIL) ("sys: cold; sysconf")) (<METER> <MACROS> ("config-defs")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("iomsg" "shared-device" "config")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" "SYS: SYS2; FLAVOR" ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" "SYS: SYS2; FLAVOR"))))
     => (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "Share") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys: sys;") (<:PACKAGE> <SI>) (<METER> ("SYS: SYS2; CHARACTER" NIL) ("sys: cold; sysconf")) (<METER> <MACROS> ("config-defs")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("iomsg" "shared-device" "config")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" "SYS: SYS2; FLAVOR" ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" "SYS: SYS2; FLAVOR")))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:SHARE>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "Share") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys: sys;") (<:PACKAGE> <SI>) (<METER> ("SYS: SYS2; CHARACTER" NIL) ("sys: cold; sysconf")) (<METER> <MACROS> ("config-defs")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("iomsg" "shared-device" "config")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" "SYS: SYS2; FLAVOR" ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" "SYS: SYS2; FLAVOR"))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:SHARE>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "Share") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys: sys;") (<:PACKAGE> <SI>) (<METER> ("SYS: SYS2; CHARACTER" NIL) ("sys: cold; sysconf")) (<METER> <MACROS> ("config-defs")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("iomsg" "shared-device" "config")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" "SYS: SYS2; FLAVOR" ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" "SYS: SYS2; FLAVOR")))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [47] {<:SITE>})
     => (<GLOBAL:QUOTE> <:SITE>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <SITE>)
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: SITE; SITE")
            (FASL-OP-STRING "SYS: SITE; LMLOCS")
           => ("SYS: SITE; SITE" "SYS: SITE; LMLOCS"))
         => (<METER> <SITE> ("SYS: SITE; SITE" "SYS: SITE; LMLOCS")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-SYMBOL <LOAD-SITE-FILE>)
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-PACKAGE-SYMBOL
              (FASL-OP-INDEX [32] {""})
              (FASL-OP-STRING "COMPILE")
              <:COMPILE>)
            (FASL-OP-INDEX [214] {"SYS: SYS2; PATCH"})
           => (<:COMPILE> "SYS: SYS2; PATCH"))
         => (<LOAD-SITE-FILE> (<:COMPILE> "SYS: SYS2; PATCH")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <HOST-TABLE>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: CHAOS; HOSTS")
              (FASL-OP-STRING "SYS: SITE; HSTTBL")
             => ("SYS: CHAOS; HOSTS" "SYS: SITE; HSTTBL"))
           => (("SYS: CHAOS; HOSTS" "SYS: SITE; HSTTBL")))
         => (<METER> <HOST-TABLE> (("SYS: CHAOS; HOSTS" "SYS: SITE; HSTTBL"))))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [219] {"sys: sys; qccold"})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [221] {"SYS: SYS; QFASL"})
            (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
              (FASL-OP-PACKAGE-SYMBOL
                (FASL-OP-INDEX [32] {""})
                (FASL-OP-STRING "GENERATE-HOST-TABLE")
                <:GENERATE-HOST-TABLE>)
              (FASL-OP-INDEX [224] {"SYS: SYS; QNEW"})
             => (<:GENERATE-HOST-TABLE> "SYS: SYS; QNEW"))
           => ("SYS: SYS; QFASL" (<:GENERATE-HOST-TABLE> "SYS: SYS; QNEW")))
         => ("sys: sys; qccold" ("SYS: SYS; QFASL" (<:GENERATE-HOST-TABLE> "SYS: SYS; QNEW"))))
       => ((<METER> <SITE> ("SYS: SITE; SITE" "SYS: SITE; LMLOCS")) (<LOAD-SITE-FILE> (<:COMPILE> "SYS: SYS2; PATCH")) (<METER> <HOST-TABLE> (("SYS: CHAOS; HOSTS" "SYS: SITE; HSTTBL"))) ("sys: sys; qccold" ("SYS: SYS; QFASL" (<:GENERATE-HOST-TABLE> "SYS: SYS; QNEW")))))
     => (<GLOBAL:QUOTE> ((<METER> <SITE> ("SYS: SITE; SITE" "SYS: SITE; LMLOCS")) (<LOAD-SITE-FILE> (<:COMPILE> "SYS: SYS2; PATCH")) (<METER> <HOST-TABLE> (("SYS: CHAOS; HOSTS" "SYS: SITE; HSTTBL"))) ("sys: sys; qccold" ("SYS: SYS; QFASL" (<:GENERATE-HOST-TABLE> "SYS: SYS; QNEW"))))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:SITE>) (<GLOBAL:QUOTE> ((<METER> <SITE> ("SYS: SITE; SITE" "SYS: SITE; LMLOCS")) (<LOAD-SITE-FILE> (<:COMPILE> "SYS: SYS2; PATCH")) (<METER> <HOST-TABLE> (("SYS: CHAOS; HOSTS" "SYS: SITE; HSTTBL"))) ("sys: sys; qccold" ("SYS: SYS; QFASL" (<:GENERATE-HOST-TABLE> "SYS: SYS; QNEW")))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:SITE>) (<GLOBAL:QUOTE> ((<METER> <SITE> ("SYS: SITE; SITE" "SYS: SITE; LMLOCS")) (<LOAD-SITE-FILE> (<:COMPILE> "SYS: SYS2; PATCH")) (<METER> <HOST-TABLE> (("SYS: CHAOS; HOSTS" "SYS: SITE; HSTTBL"))) ("sys: sys; qccold" ("SYS: SYS; QFASL" (<:GENERATE-HOST-TABLE> "SYS: SYS; QNEW"))))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "TIME")
        <:TIME>)
     => (<GLOBAL:QUOTE> <:TIME>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK"))})
          (FASL-OP-STRING "SYS: IO1;")
         => (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: IO1;"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "TIME")
            (FASL-OP-STRING "TIMPAR")
           => ("TIME" "TIMPAR"))
         => ("SYS: SYS2; CLASS" ("TIME" "TIMPAR")))
       => ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: IO1;") ("SYS: SYS2; CLASS" ("TIME" "TIMPAR"))))
     => (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: IO1;") ("SYS: SYS2; CLASS" ("TIME" "TIMPAR")))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:TIME>) (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: IO1;") ("SYS: SYS2; CLASS" ("TIME" "TIMPAR"))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:TIME>) (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: IO1;") ("SYS: SYS2; CLASS" ("TIME" "TIMPAR")))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "SUPDUP")
        <:SUPDUP>)
     => (<GLOBAL:QUOTE> <:SUPDUP>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: NETWORK; SUPDUP")
           => ("SYS: NETWORK; SUPDUP"))
         => ("SYS: SYS2; CLASS" ("SYS: NETWORK; SUPDUP")))
       => (("SYS: SYS2; CLASS" ("SYS: NETWORK; SUPDUP"))))
     => (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: NETWORK; SUPDUP")))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:SUPDUP>) (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: NETWORK; SUPDUP"))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:SUPDUP>) (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: NETWORK; SUPDUP")))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "FORMAT")
        <:FORMAT>)
     => (<GLOBAL:QUOTE> <:FORMAT>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: IO; FORMAT")
            (FASL-OP-STRING "SYS: IO1; FQUERY")
            (FASL-OP-STRING "SYS: IO1; OUTPUT")
           => ("SYS: IO; FORMAT" "SYS: IO1; FQUERY" "SYS: IO1; OUTPUT"))
         => ("SYS: SYS2; CLASS" ("SYS: IO; FORMAT" "SYS: IO1; FQUERY" "SYS: IO1; OUTPUT")))
       => (("SYS: SYS2; CLASS" ("SYS: IO; FORMAT" "SYS: IO1; FQUERY" "SYS: IO1; OUTPUT"))))
     => (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: IO; FORMAT" "SYS: IO1; FQUERY" "SYS: IO1; OUTPUT")))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:FORMAT>) (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: IO; FORMAT" "SYS: IO1; FQUERY" "SYS: IO1; OUTPUT"))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:FORMAT>) (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: IO; FORMAT" "SYS: IO1; FQUERY" "SYS: IO1; OUTPUT")))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "COMPILER")
        <:COMPILER>)
     => (<GLOBAL:QUOTE> <:COMPILER>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [6] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [83] {<:PACKAGE>})
          (FASL-OP-INDEX [154] {(NIL NIL)})
         => (<:PACKAGE> (NIL NIL)))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "sys: sys; qccold")
            (FASL-OP-STRING "SYS: SYS; QCDEFS")
           => ("sys: sys; qccold" "SYS: SYS; QCDEFS"))
         => (<METER> ("SYS: SYS2; CHARACTER" NIL) ("sys: sys; qccold" "SYS: SYS; QCDEFS")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [9] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: SYS2; DISASS")
            (FASL-OP-STRING "SYS: SYS; QCFASD")
            (FASL-OP-STRING "SYS: SYS; QCFILE")
            (FASL-OP-STRING "SYS: SYS; QCP1")
            (FASL-OP-STRING "SYS: SYS; QCP2")
            (FASL-OP-STRING "SYS: SYS; QCOPT")
            (FASL-OP-STRING "SYS: SYS; QCLUKE")
            (FASL-OP-STRING "SYS: SYS; QCPEEP")
            (FASL-OP-STRING "SYS: SYS; QCLAP")
           => ("SYS: SYS2; DISASS" "SYS: SYS; QCFASD" "SYS: SYS; QCFILE" "SYS: SYS; QCP1" "SYS: SYS; QCP2" "SYS: SYS; QCOPT" "SYS: SYS; QCLUKE" "SYS: SYS; QCPEEP" "SYS: SYS; QCLAP"))
         => (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; DISASS" "SYS: SYS; QCFASD" "SYS: SYS; QCFILE" "SYS: SYS; QCP1" "SYS: SYS; QCP2" "SYS: SYS; QCOPT" "SYS: SYS; QCLUKE" "SYS: SYS; QCPEEP" "SYS: SYS; QCLAP")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
         => ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))
         => ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [468] {("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS"))})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: COLD; DEFMIC")
            (FASL-OP-STRING "SYS: COLD; DOCMIC")
           => ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC"))
         => (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC")))
       => ((<:PACKAGE> (NIL NIL)) (<METER> ("SYS: SYS2; CHARACTER" NIL) ("sys: sys; qccold" "SYS: SYS; QCDEFS")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; DISASS" "SYS: SYS; QCFASD" "SYS: SYS; QCFILE" "SYS: SYS; QCP1" "SYS: SYS; QCP2" "SYS: SYS; QCOPT" "SYS: SYS; QCLUKE" "SYS: SYS; QCPEEP" "SYS: SYS; QCLAP")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC"))))
     => (<GLOBAL:QUOTE> ((<:PACKAGE> (NIL NIL)) (<METER> ("SYS: SYS2; CHARACTER" NIL) ("sys: sys; qccold" "SYS: SYS; QCDEFS")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; DISASS" "SYS: SYS; QCFASD" "SYS: SYS; QCFILE" "SYS: SYS; QCP1" "SYS: SYS; QCP2" "SYS: SYS; QCOPT" "SYS: SYS; QCLUKE" "SYS: SYS; QCPEEP" "SYS: SYS; QCLAP")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC")))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:COMPILER>) (<GLOBAL:QUOTE> ((<:PACKAGE> (NIL NIL)) (<METER> ("SYS: SYS2; CHARACTER" NIL) ("sys: sys; qccold" "SYS: SYS; QCDEFS")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; DISASS" "SYS: SYS; QCFASD" "SYS: SYS; QCFILE" "SYS: SYS; QCP1" "SYS: SYS; QCP2" "SYS: SYS; QCOPT" "SYS: SYS; QCLUKE" "SYS: SYS; QCPEEP" "SYS: SYS; QCLAP")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC"))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:COMPILER>) (<GLOBAL:QUOTE> ((<:PACKAGE> (NIL NIL)) (<METER> ("SYS: SYS2; CHARACTER" NIL) ("sys: sys; qccold" "SYS: SYS; QCDEFS")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; DISASS" "SYS: SYS; QCFASD" "SYS: SYS; QCFILE" "SYS: SYS; QCP1" "SYS: SYS; QCP2" "SYS: SYS; QCOPT" "SYS: SYS; QCLUKE" "SYS: SYS; QCPEEP" "SYS: SYS; QCLAP")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC")))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "COLOR")
        <:COLOR>)
     => (<GLOBAL:QUOTE> <:COLOR>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: WINDOW; COLOR")
           => ("SYS: WINDOW; COLOR"))
         => ("SYS: SYS2; CLASS" ("SYS: WINDOW; COLOR")))
       => (("SYS: SYS2; CLASS" ("SYS: WINDOW; COLOR"))))
     => (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: WINDOW; COLOR")))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:COLOR>) (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: WINDOW; COLOR"))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:COLOR>) (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: WINDOW; COLOR")))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "ZWEI")
        <:ZWEI>)
     => (<GLOBAL:QUOTE> <:ZWEI>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [12] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK"))})
          (FASL-OP-STRING "SYS: ZWEI;")
         => (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: ZWEI;"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [130] {<TV>})
          (FASL-OP-STRING "sys: zwei; patch;")
         => (<TV> "sys: zwei; patch;"))
        (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
          (FASL-OP-PACKAGE-SYMBOL
            (FASL-OP-INDEX [32] {""})
            (FASL-OP-STRING "NOT-IN-DISK-LABEL")
            <:NOT-IN-DISK-LABEL>)
         => (<:NOT-IN-DISK-LABEL>))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [134] {<NETWORK>})
          (FASL-OP-STRING "SYS: ZWEI; PATCH; ZWEI-CWARNS.LISP")
         => (<NETWORK> "SYS: ZWEI; PATCH; ZWEI-CWARNS.LISP"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "DEFS")
            (FASL-OP-STRING "MACROS")
           => ("DEFS" "MACROS"))
         => (<METER> ("SYS: SYS2; CHARACTER" NIL) ("DEFS" "MACROS")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <SCREEN>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SCREEN")
           => ("SCREEN"))
         => (<METER> <SCREEN> ("SCREEN")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [38] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "COMTAB")
            (FASL-OP-STRING "DISPLA")
            (FASL-OP-STRING "FOR")
            (FASL-OP-STRING "INDENT")
            (FASL-OP-STRING "INSERT")
            (FASL-OP-STRING "METH")
            (FASL-OP-STRING "PRIMIT")
            (FASL-OP-STRING "NPRIM")
            (FASL-OP-STRING "HISTORY")
            (FASL-OP-STRING "FONT")
            (FASL-OP-STRING "KBDMAC")
            (FASL-OP-STRING "SEARCH")
            (FASL-OP-STRING "COMA")
            (FASL-OP-STRING "COMB")
            (FASL-OP-STRING "COMC")
            (FASL-OP-STRING "COMD")
            (FASL-OP-STRING "COME")
            (FASL-OP-STRING "COMF")
            (FASL-OP-STRING "COMG")
            (FASL-OP-STRING "COMH")
            (FASL-OP-STRING "COMS")
            (FASL-OP-STRING "DIRED")
            (FASL-OP-STRING "BDIRED")
            (FASL-OP-STRING "DOC")
            (FASL-OP-STRING "FASUPD")
            (FASL-OP-STRING "FILES")
            (FASL-OP-STRING "HOST")
            (FASL-OP-STRING "NEW-ISPELL")
            (FASL-OP-STRING "LPARSE")
            (FASL-OP-STRING "MODES")
            (FASL-OP-STRING "MOUSE")
            (FASL-OP-STRING "PATED")
            (FASL-OP-STRING "PL1MOD")
            (FASL-OP-STRING "POSS")
            (FASL-OP-STRING "STREAM")
            (FASL-OP-STRING "SECTIO")
            (FASL-OP-STRING "ZMNEW")
            (FASL-OP-STRING "ZMACS")
           => ("COMTAB" "DISPLA" "FOR" "INDENT" "INSERT" "METH" "PRIMIT" "NPRIM" "HISTORY" "FONT" "KBDMAC" "SEARCH" "COMA" "COMB" "COMC" "COMD" "COME" "COMF" "COMG" "COMH" "COMS" "DIRED" "BDIRED" "DOC" "FASUPD" "FILES" "HOST" "NEW-ISPELL" "LPARSE" "MODES" "MOUSE" "PATED" "PL1MOD" "POSS" "STREAM" "SECTIO" "ZMNEW" "ZMACS"))
         => (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("COMTAB" "DISPLA" "FOR" "INDENT" "INSERT" "METH" "PRIMIT" "NPRIM" "HISTORY" "FONT" "KBDMAC" "SEARCH" "COMA" "COMB" "COMC" "COMD" "COME" "COMF" "COMG" "COMH" "COMS" "DIRED" "BDIRED" "DOC" "FASUPD" "FILES" "HOST" "NEW-ISPELL" "LPARSE" "MODES" "MOUSE" "PATED" "PL1MOD" "POSS" "STREAM" "SECTIO" "ZMNEW" "ZMACS")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <ZYMURG>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "ZYMURG")
           => ("ZYMURG"))
         => (<METER> <ZYMURG> ("ZYMURG")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
         => ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)))
        (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [114] {"SYS: SYS; TYPES"})
          (FASL-OP-INDEX [380] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>))})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))
         => ("SYS: SYS; TYPES" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))))
        (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [114] {"SYS: SYS; TYPES"})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
          (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
            (FASL-OP-INDEX [380] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>))})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>))))
         => ("SYS: SYS; TYPES" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)))))
        (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [114] {"SYS: SYS; TYPES"})
          (FASL-OP-INDEX [424] {(<GLOBAL:QUOTE> <:IP-TCP>)})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
          (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
            (FASL-OP-INDEX [380] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>))})
            (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))
         => ("SYS: SYS; TYPES" (<GLOBAL:QUOTE> <:IP-TCP>) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")))))
       => ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: ZWEI;") (<TV> "sys: zwei; patch;") (<:NOT-IN-DISK-LABEL>) (<NETWORK> "SYS: ZWEI; PATCH; ZWEI-CWARNS.LISP") (<METER> ("SYS: SYS2; CHARACTER" NIL) ("DEFS" "MACROS")) (<METER> <SCREEN> ("SCREEN")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("COMTAB" "DISPLA" "FOR" "INDENT" "INSERT" "METH" "PRIMIT" "NPRIM" "HISTORY" "FONT" "KBDMAC" "SEARCH" "COMA" "COMB" "COMC" "COMD" "COME" "COMF" "COMG" "COMH" "COMS" "DIRED" "BDIRED" "DOC" "FASUPD" "FILES" "HOST" "NEW-ISPELL" "LPARSE" "MODES" "MOUSE" "PATED" "PL1MOD" "POSS" "STREAM" "SECTIO" "ZMNEW" "ZMACS")) (<METER> <ZYMURG> ("ZYMURG")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS; TYPES" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS; TYPES" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)))) ("SYS: SYS; TYPES" (<GLOBAL:QUOTE> <:IP-TCP>) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))))
     => (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: ZWEI;") (<TV> "sys: zwei; patch;") (<:NOT-IN-DISK-LABEL>) (<NETWORK> "SYS: ZWEI; PATCH; ZWEI-CWARNS.LISP") (<METER> ("SYS: SYS2; CHARACTER" NIL) ("DEFS" "MACROS")) (<METER> <SCREEN> ("SCREEN")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("COMTAB" "DISPLA" "FOR" "INDENT" "INSERT" "METH" "PRIMIT" "NPRIM" "HISTORY" "FONT" "KBDMAC" "SEARCH" "COMA" "COMB" "COMC" "COMD" "COME" "COMF" "COMG" "COMH" "COMS" "DIRED" "BDIRED" "DOC" "FASUPD" "FILES" "HOST" "NEW-ISPELL" "LPARSE" "MODES" "MOUSE" "PATED" "PL1MOD" "POSS" "STREAM" "SECTIO" "ZMNEW" "ZMACS")) (<METER> <ZYMURG> ("ZYMURG")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS; TYPES" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS; TYPES" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)))) ("SYS: SYS; TYPES" (<GLOBAL:QUOTE> <:IP-TCP>) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")))))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:ZWEI>) (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: ZWEI;") (<TV> "sys: zwei; patch;") (<:NOT-IN-DISK-LABEL>) (<NETWORK> "SYS: ZWEI; PATCH; ZWEI-CWARNS.LISP") (<METER> ("SYS: SYS2; CHARACTER" NIL) ("DEFS" "MACROS")) (<METER> <SCREEN> ("SCREEN")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("COMTAB" "DISPLA" "FOR" "INDENT" "INSERT" "METH" "PRIMIT" "NPRIM" "HISTORY" "FONT" "KBDMAC" "SEARCH" "COMA" "COMB" "COMC" "COMD" "COME" "COMF" "COMG" "COMH" "COMS" "DIRED" "BDIRED" "DOC" "FASUPD" "FILES" "HOST" "NEW-ISPELL" "LPARSE" "MODES" "MOUSE" "PATED" "PL1MOD" "POSS" "STREAM" "SECTIO" "ZMNEW" "ZMACS")) (<METER> <ZYMURG> ("ZYMURG")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS; TYPES" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS; TYPES" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)))) ("SYS: SYS; TYPES" (<GLOBAL:QUOTE> <:IP-TCP>) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:ZWEI>) (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: ZWEI;") (<TV> "sys: zwei; patch;") (<:NOT-IN-DISK-LABEL>) (<NETWORK> "SYS: ZWEI; PATCH; ZWEI-CWARNS.LISP") (<METER> ("SYS: SYS2; CHARACTER" NIL) ("DEFS" "MACROS")) (<METER> <SCREEN> ("SCREEN")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("COMTAB" "DISPLA" "FOR" "INDENT" "INSERT" "METH" "PRIMIT" "NPRIM" "HISTORY" "FONT" "KBDMAC" "SEARCH" "COMA" "COMB" "COMC" "COMD" "COME" "COMF" "COMG" "COMH" "COMS" "DIRED" "BDIRED" "DOC" "FASUPD" "FILES" "HOST" "NEW-ISPELL" "LPARSE" "MODES" "MOUSE" "PATED" "PL1MOD" "POSS" "STREAM" "SECTIO" "ZMNEW" "ZMACS")) (<METER> <ZYMURG> ("ZYMURG")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS; TYPES" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS; TYPES" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)))) ("SYS: SYS; TYPES" (<GLOBAL:QUOTE> <:IP-TCP>) ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>)) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")))))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "FONT-UTILITIES")
        <:FONT-UTILITIES>)
     => (<GLOBAL:QUOTE> <:FONT-UTILITIES>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
          (FASL-OP-STRING "sys: io1; fntdef")
         => (<METER> ("SYS: SYS2; CHARACTER" NIL) "sys: io1; fntdef"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "sys: io1; fntcnv")
            (FASL-OP-STRING "sys: window; font-utilities")
           => ("sys: io1; fntcnv" "sys: window; font-utilities"))
         => (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("sys: io1; fntcnv" "sys: window; font-utilities")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [468] {("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS"))})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
         => (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" NIL)))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [468] {("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS"))})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
           => (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" NIL)))
         => ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" NIL))))
       => ((<METER> ("SYS: SYS2; CHARACTER" NIL) "sys: io1; fntdef") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("sys: io1; fntcnv" "sys: window; font-utilities")) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" NIL)))))
     => (<GLOBAL:QUOTE> ((<METER> ("SYS: SYS2; CHARACTER" NIL) "sys: io1; fntdef") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("sys: io1; fntcnv" "sys: window; font-utilities")) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" NIL))))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:FONT-UTILITIES>) (<GLOBAL:QUOTE> ((<METER> ("SYS: SYS2; CHARACTER" NIL) "sys: io1; fntdef") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("sys: io1; fntcnv" "sys: window; font-utilities")) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" NIL)))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:FONT-UTILITIES>) (<GLOBAL:QUOTE> ((<METER> ("SYS: SYS2; CHARACTER" NIL) "sys: io1; fntdef") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("sys: io1; fntcnv" "sys: window; font-utilities")) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: SYS2; CHARACTER" NIL))))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-SYMBOL <SET-SYSTEM-SOURCE-FILE>)
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-INDEX [32] {""})
      (FASL-OP-STRING "FONT-EDITOR")
      <:FONT-EDITOR>)
    (FASL-OP-STRING "sys:window;font-editor;sysdef")
   => (<SET-SYSTEM-SOURCE-FILE> <:FONT-EDITOR> "sys:window;font-editor;sysdef"))
  (EVAL '(<SET-SYSTEM-SOURCE-FILE> <:FONT-EDITOR> "sys:window;font-editor;sysdef")))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "EH")
        <:EH>)
     => (<GLOBAL:QUOTE> <:EH>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [367] {("SYS: SYS2; CLASS" NIL)})
          (FASL-OP-STRING "Debugger")
          (FASL-OP-STRING "DBG")
         => (("SYS: SYS2; CLASS" NIL) "Debugger" "DBG"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK"))})
          (FASL-OP-STRING "SYS: DEBUGGER;")
         => (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: DEBUGGER;"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-LIST [7] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "EH")
            (FASL-OP-STRING "EHF")
            (FASL-OP-STRING "TRAP")
            (FASL-OP-STRING "CONDITION-FLAVORS")
            (FASL-OP-STRING "EHC")
            (FASL-OP-STRING "EHBPT")
            (FASL-OP-STRING "EHW")
           => ("EH" "EHF" "TRAP" "CONDITION-FLAVORS" "EHC" "EHBPT" "EHW"))
         => ("SYS: SYS2; CLASS" ("EH" "EHF" "TRAP" "CONDITION-FLAVORS" "EHC" "EHBPT" "EHW")))
       => ((("SYS: SYS2; CLASS" NIL) "Debugger" "DBG") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: DEBUGGER;") ("SYS: SYS2; CLASS" ("EH" "EHF" "TRAP" "CONDITION-FLAVORS" "EHC" "EHBPT" "EHW"))))
     => (<GLOBAL:QUOTE> ((("SYS: SYS2; CLASS" NIL) "Debugger" "DBG") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: DEBUGGER;") ("SYS: SYS2; CLASS" ("EH" "EHF" "TRAP" "CONDITION-FLAVORS" "EHC" "EHBPT" "EHW")))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:EH>) (<GLOBAL:QUOTE> ((("SYS: SYS2; CLASS" NIL) "Debugger" "DBG") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: DEBUGGER;") ("SYS: SYS2; CLASS" ("EH" "EHF" "TRAP" "CONDITION-FLAVORS" "EHC" "EHBPT" "EHW"))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:EH>) (<GLOBAL:QUOTE> ((("SYS: SYS2; CLASS" NIL) "Debugger" "DBG") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: DEBUGGER;") ("SYS: SYS2; CLASS" ("EH" "EHF" "TRAP" "CONDITION-FLAVORS" "EHC" "EHBPT" "EHW")))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "GARBAGE-COLLECTOR")
        <:GARBAGE-COLLECTOR>)
     => (<GLOBAL:QUOTE> <:GARBAGE-COLLECTOR>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [126] {<FILE-SYSTEM>})
          (FASL-OP-STRING "GC")
         => (<FILE-SYSTEM> "GC"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: SYS; STORAGE-DEFS")
           => ("SYS: SYS; STORAGE-DEFS"))
         => (<METER> ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS; STORAGE-DEFS")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: SYS2; GC")
           => ("SYS: SYS2; GC"))
         => (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; GC")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
         => ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))
         => ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))))
       => ((<FILE-SYSTEM> "GC") (<METER> ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS; STORAGE-DEFS")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; GC")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))))
     => (<GLOBAL:QUOTE> ((<FILE-SYSTEM> "GC") (<METER> ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS; STORAGE-DEFS")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; GC")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:GARBAGE-COLLECTOR>) (<GLOBAL:QUOTE> ((<FILE-SYSTEM> "GC") (<METER> ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS; STORAGE-DEFS")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; GC")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:GARBAGE-COLLECTOR>) (<GLOBAL:QUOTE> ((<FILE-SYSTEM> "GC") (<METER> ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS; STORAGE-DEFS")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; GC")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "TV")
        <:TV>)
     => (<GLOBAL:QUOTE> <:TV>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK"))})
          (FASL-OP-STRING "SYS: WINDOW;")
         => (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: WINDOW;"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
          (FASL-OP-STRING "TVDEFS")
         => (<METER> ("SYS: SYS2; CHARACTER" NIL) "TVDEFS"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [21] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SCRMAN")
            (FASL-OP-STRING "SHEET")
            (FASL-OP-STRING "SHWARM")
            (FASL-OP-STRING "BASWIN")
            (FASL-OP-STRING "WHOLIN")
            (FASL-OP-STRING "MOUSE")
            (FASL-OP-STRING "BASSTR")
            (FASL-OP-STRING "STREAM")
            (FASL-OP-STRING "GRAPHICS")
            (FASL-OP-STRING "MENU")
            (FASL-OP-STRING "COMETH")
            (FASL-OP-STRING "SYSMEN")
            (FASL-OP-STRING "SCRED")
            (FASL-OP-STRING "TYPWIN")
            (FASL-OP-STRING "SCROLL")
            (FASL-OP-STRING "TSCROL")
            (FASL-OP-STRING "FRAME")
            (FASL-OP-STRING "CHOICE")
            (FASL-OP-STRING "CSRPOS")
            (FASL-OP-STRING "INSPCT")
            (FASL-OP-STRING "RH")
           => ("SCRMAN" "SHEET" "SHWARM" "BASWIN" "WHOLIN" "MOUSE" "BASSTR" "STREAM" "GRAPHICS" "MENU" "COMETH" "SYSMEN" "SCRED" "TYPWIN" "SCROLL" "TSCROL" "FRAME" "CHOICE" "CSRPOS" "INSPCT" "RH"))
         => (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SCRMAN" "SHEET" "SHWARM" "BASWIN" "WHOLIN" "MOUSE" "BASSTR" "STREAM" "GRAPHICS" "MENU" "COMETH" "SYSMEN" "SCRED" "TYPWIN" "SCROLL" "TSCROL" "FRAME" "CHOICE" "CSRPOS" "INSPCT" "RH")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
         => ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)))
        (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))
         => ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))))
       => ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: WINDOW;") (<METER> ("SYS: SYS2; CHARACTER" NIL) "TVDEFS") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SCRMAN" "SHEET" "SHWARM" "BASWIN" "WHOLIN" "MOUSE" "BASSTR" "STREAM" "GRAPHICS" "MENU" "COMETH" "SYSMEN" "SCRED" "TYPWIN" "SCROLL" "TSCROL" "FRAME" "CHOICE" "CSRPOS" "INSPCT" "RH")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))))
     => (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: WINDOW;") (<METER> ("SYS: SYS2; CHARACTER" NIL) "TVDEFS") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SCRMAN" "SHEET" "SHWARM" "BASWIN" "WHOLIN" "MOUSE" "BASSTR" "STREAM" "GRAPHICS" "MENU" "COMETH" "SYSMEN" "SCRED" "TYPWIN" "SCROLL" "TSCROL" "FRAME" "CHOICE" "CSRPOS" "INSPCT" "RH")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:TV>) (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: WINDOW;") (<METER> ("SYS: SYS2; CHARACTER" NIL) "TVDEFS") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SCRMAN" "SHEET" "SHWARM" "BASWIN" "WHOLIN" "MOUSE" "BASSTR" "STREAM" "GRAPHICS" "MENU" "COMETH" "SYSMEN" "SCRED" "TYPWIN" "SCROLL" "TSCROL" "FRAME" "CHOICE" "CSRPOS" "INSPCT" "RH")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:TV>) (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: WINDOW;") (<METER> ("SYS: SYS2; CHARACTER" NIL) "TVDEFS") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SCRMAN" "SHEET" "SHWARM" "BASWIN" "WHOLIN" "MOUSE" "BASSTR" "STREAM" "GRAPHICS" "MENU" "COMETH" "SYSMEN" "SCRED" "TYPWIN" "SCROLL" "TSCROL" "FRAME" "CHOICE" "CSRPOS" "INSPCT" "RH")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "PEEK")
        <:PEEK>)
     => (<GLOBAL:QUOTE> <:PEEK>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [9] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK"))})
          (FASL-OP-STRING "SYS: WINDOW;")
         => (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: WINDOW;"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-STRING "PEEK")
         => (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) "PEEK"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [78] {<:CL>})
          (FASL-OP-STRING "SYS: NETWORK; CHAOS; PEEKCH")
         => (<METER> <:CL> "SYS: NETWORK; CHAOS; PEEKCH"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <NETSTAT>)
          (FASL-OP-STRING "SYS: NETWORK; KERNEL; NETSTAT")
         => (<METER> <NETSTAT> "SYS: NETWORK; KERNEL; NETSTAT"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <FILE>)
          (FASL-OP-STRING "PEEKFS")
         => (<METER> <FILE> "PEEKFS"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
         => ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [78] {<:CL>})
         => ("SYS: SYS2; CLASS" <:CL>))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [690] {"FORMAT"})
         => ("SYS: SYS2; CLASS" "FORMAT"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [693] {"SYS: IO; FORMAT"})
         => ("SYS: SYS2; CLASS" "SYS: IO; FORMAT"))
       => ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: WINDOW;") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) "PEEK") (<METER> <:CL> "SYS: NETWORK; CHAOS; PEEKCH") (<METER> <NETSTAT> "SYS: NETWORK; KERNEL; NETSTAT") (<METER> <FILE> "PEEKFS") ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))) ("SYS: SYS2; CLASS" <:CL>) ("SYS: SYS2; CLASS" "FORMAT") ("SYS: SYS2; CLASS" "SYS: IO; FORMAT")))
     => (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: WINDOW;") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) "PEEK") (<METER> <:CL> "SYS: NETWORK; CHAOS; PEEKCH") (<METER> <NETSTAT> "SYS: NETWORK; KERNEL; NETSTAT") (<METER> <FILE> "PEEKFS") ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))) ("SYS: SYS2; CLASS" <:CL>) ("SYS: SYS2; CLASS" "FORMAT") ("SYS: SYS2; CLASS" "SYS: IO; FORMAT"))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:PEEK>) (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: WINDOW;") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) "PEEK") (<METER> <:CL> "SYS: NETWORK; CHAOS; PEEKCH") (<METER> <NETSTAT> "SYS: NETWORK; KERNEL; NETSTAT") (<METER> <FILE> "PEEKFS") ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))) ("SYS: SYS2; CLASS" <:CL>) ("SYS: SYS2; CLASS" "FORMAT") ("SYS: SYS2; CLASS" "SYS: IO; FORMAT")))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:PEEK>) (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: WINDOW;") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) "PEEK") (<METER> <:CL> "SYS: NETWORK; CHAOS; PEEKCH") (<METER> <NETSTAT> "SYS: NETWORK; KERNEL; NETSTAT") (<METER> <FILE> "PEEKFS") ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))) ("SYS: SYS2; CLASS" <:CL>) ("SYS: SYS2; CLASS" "FORMAT") ("SYS: SYS2; CLASS" "SYS: IO; FORMAT"))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "FILE-SYSTEM")
        <:FILE-SYSTEM>)
     => (<GLOBAL:QUOTE> <:FILE-SYSTEM>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [12] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [367] {("SYS: SYS2; CLASS" NIL)})
          (FASL-OP-STRING "FS")
         => (("SYS: SYS2; CLASS" NIL) "FS"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK"))})
          (FASL-OP-STRING "SYS: IO; FILE;")
         => (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: IO; FILE;"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <BASIC-PATHNAMES>)
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "ACCESS")
            (FASL-OP-STRING "PATHNM")
           => ("ACCESS" "PATHNM"))
         => (<METER> <BASIC-PATHNAMES> ("ACCESS" "PATHNM")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <HOST-PATHNAMES>)
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "PATHST")
            (FASL-OP-STRING "SYS: FILE; LMPARS")
           => ("PATHST" "SYS: FILE; LMPARS"))
         => (<METER> <HOST-PATHNAMES> ("PATHST" "SYS: FILE; LMPARS")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <FILE-IO>)
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "OPEN")
            (FASL-OP-STRING "BALDIR")
           => ("OPEN" "BALDIR"))
         => (<METER> <FILE-IO> ("OPEN" "BALDIR")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <CHAOS-FILE-IO>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: NETWORK; CHAOS; QFILE")
           => ("SYS: NETWORK; CHAOS; QFILE"))
         => (<METER> <CHAOS-FILE-IO> ("SYS: NETWORK; CHAOS; QFILE")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <TCP-FILE-IO>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: NETWORK; IP-TCP; USER; FTP-ACCESS")
           => ("SYS: NETWORK; IP-TCP; USER; FTP-ACCESS"))
         => (<METER> <TCP-FILE-IO> ("SYS: NETWORK; IP-TCP; USER; FTP-ACCESS")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [711] {"SYS: SYS; QCFASD"})
         => ("SYS: SYS2; CLASS" "SYS: SYS; QCFASD"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [716] {"SYS: SYS; QCLUKE"})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [711] {"SYS: SYS; QCFASD"})
           => ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD"))
         => ("SYS: SYS2; CLASS" "SYS: SYS; QCLUKE" ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [721] {("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL))})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [711] {"SYS: SYS; QCFASD"})
           => ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD"))
         => ("SYS: SYS2; CLASS" ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [726] {("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC")})
          (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [711] {"SYS: SYS; QCFASD"})
            (FASL-OP-INDEX [716] {"SYS: SYS; QCLUKE"})
           => ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD" "SYS: SYS; QCLUKE"))
         => ("SYS: SYS2; CLASS" ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC") ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD" "SYS: SYS; QCLUKE")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [730] {((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:COMPILER>) (<GLOBAL:QUOTE> ((<:PACKAGE> (NIL NIL)) (<METER> ("SYS: SYS2; CHARACTER" NIL) ("sys: sys; qccold" "SYS: SYS; QCDEFS")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; DISASS" "SYS: SYS; QCFASD" "SYS: SYS; QCFILE" "SYS: SYS; QCP1" "SYS: SYS; QCP2" "SYS: SYS; QCOPT" "SYS: SYS; QCLUKE" "SYS: SYS; QCPEEP" "SYS: SYS; QCLAP")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC")))))})
          (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [711] {"SYS: SYS; QCFASD"})
            (FASL-OP-INDEX [716] {"SYS: SYS; QCLUKE"})
           => ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD" "SYS: SYS; QCLUKE"))
         => ("SYS: SYS2; CLASS" ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:COMPILER>) (<GLOBAL:QUOTE> ((<:PACKAGE> (NIL NIL)) (<METER> ("SYS: SYS2; CHARACTER" NIL) ("sys: sys; qccold" "SYS: SYS; QCDEFS")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; DISASS" "SYS: SYS; QCFASD" "SYS: SYS; QCFILE" "SYS: SYS; QCP1" "SYS: SYS; QCP2" "SYS: SYS; QCOPT" "SYS: SYS; QCLUKE" "SYS: SYS; QCPEEP" "SYS: SYS; QCLAP")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC"))))) ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD" "SYS: SYS; QCLUKE")))
       => ((("SYS: SYS2; CLASS" NIL) "FS") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: IO; FILE;") (<METER> <BASIC-PATHNAMES> ("ACCESS" "PATHNM")) (<METER> <HOST-PATHNAMES> ("PATHST" "SYS: FILE; LMPARS")) (<METER> <FILE-IO> ("OPEN" "BALDIR")) (<METER> <CHAOS-FILE-IO> ("SYS: NETWORK; CHAOS; QFILE")) (<METER> <TCP-FILE-IO> ("SYS: NETWORK; IP-TCP; USER; FTP-ACCESS")) ("SYS: SYS2; CLASS" "SYS: SYS; QCFASD") ("SYS: SYS2; CLASS" "SYS: SYS; QCLUKE" ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD")) ("SYS: SYS2; CLASS" ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC") ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD" "SYS: SYS; QCLUKE")) ("SYS: SYS2; CLASS" ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:COMPILER>) (<GLOBAL:QUOTE> ((<:PACKAGE> (NIL NIL)) (<METER> ("SYS: SYS2; CHARACTER" NIL) ("sys: sys; qccold" "SYS: SYS; QCDEFS")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; DISASS" "SYS: SYS; QCFASD" "SYS: SYS; QCFILE" "SYS: SYS; QCP1" "SYS: SYS; QCP2" "SYS: SYS; QCOPT" "SYS: SYS; QCLUKE" "SYS: SYS; QCPEEP" "SYS: SYS; QCLAP")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC"))))) ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD" "SYS: SYS; QCLUKE"))))
     => (<GLOBAL:QUOTE> ((("SYS: SYS2; CLASS" NIL) "FS") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: IO; FILE;") (<METER> <BASIC-PATHNAMES> ("ACCESS" "PATHNM")) (<METER> <HOST-PATHNAMES> ("PATHST" "SYS: FILE; LMPARS")) (<METER> <FILE-IO> ("OPEN" "BALDIR")) (<METER> <CHAOS-FILE-IO> ("SYS: NETWORK; CHAOS; QFILE")) (<METER> <TCP-FILE-IO> ("SYS: NETWORK; IP-TCP; USER; FTP-ACCESS")) ("SYS: SYS2; CLASS" "SYS: SYS; QCFASD") ("SYS: SYS2; CLASS" "SYS: SYS; QCLUKE" ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD")) ("SYS: SYS2; CLASS" ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC") ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD" "SYS: SYS; QCLUKE")) ("SYS: SYS2; CLASS" ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:COMPILER>) (<GLOBAL:QUOTE> ((<:PACKAGE> (NIL NIL)) (<METER> ("SYS: SYS2; CHARACTER" NIL) ("sys: sys; qccold" "SYS: SYS; QCDEFS")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; DISASS" "SYS: SYS; QCFASD" "SYS: SYS; QCFILE" "SYS: SYS; QCP1" "SYS: SYS; QCP2" "SYS: SYS; QCOPT" "SYS: SYS; QCLUKE" "SYS: SYS; QCPEEP" "SYS: SYS; QCLAP")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC"))))) ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD" "SYS: SYS; QCLUKE")))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:FILE-SYSTEM>) (<GLOBAL:QUOTE> ((("SYS: SYS2; CLASS" NIL) "FS") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: IO; FILE;") (<METER> <BASIC-PATHNAMES> ("ACCESS" "PATHNM")) (<METER> <HOST-PATHNAMES> ("PATHST" "SYS: FILE; LMPARS")) (<METER> <FILE-IO> ("OPEN" "BALDIR")) (<METER> <CHAOS-FILE-IO> ("SYS: NETWORK; CHAOS; QFILE")) (<METER> <TCP-FILE-IO> ("SYS: NETWORK; IP-TCP; USER; FTP-ACCESS")) ("SYS: SYS2; CLASS" "SYS: SYS; QCFASD") ("SYS: SYS2; CLASS" "SYS: SYS; QCLUKE" ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD")) ("SYS: SYS2; CLASS" ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC") ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD" "SYS: SYS; QCLUKE")) ("SYS: SYS2; CLASS" ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:COMPILER>) (<GLOBAL:QUOTE> ((<:PACKAGE> (NIL NIL)) (<METER> ("SYS: SYS2; CHARACTER" NIL) ("sys: sys; qccold" "SYS: SYS; QCDEFS")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; DISASS" "SYS: SYS; QCFASD" "SYS: SYS; QCFILE" "SYS: SYS; QCP1" "SYS: SYS; QCP2" "SYS: SYS; QCOPT" "SYS: SYS; QCLUKE" "SYS: SYS; QCPEEP" "SYS: SYS; QCLAP")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC"))))) ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD" "SYS: SYS; QCLUKE"))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:FILE-SYSTEM>) (<GLOBAL:QUOTE> ((("SYS: SYS2; CLASS" NIL) "FS") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: IO; FILE;") (<METER> <BASIC-PATHNAMES> ("ACCESS" "PATHNM")) (<METER> <HOST-PATHNAMES> ("PATHST" "SYS: FILE; LMPARS")) (<METER> <FILE-IO> ("OPEN" "BALDIR")) (<METER> <CHAOS-FILE-IO> ("SYS: NETWORK; CHAOS; QFILE")) (<METER> <TCP-FILE-IO> ("SYS: NETWORK; IP-TCP; USER; FTP-ACCESS")) ("SYS: SYS2; CLASS" "SYS: SYS; QCFASD") ("SYS: SYS2; CLASS" "SYS: SYS; QCLUKE" ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD")) ("SYS: SYS2; CLASS" ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC") ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD" "SYS: SYS; QCLUKE")) ("SYS: SYS2; CLASS" ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:COMPILER>) (<GLOBAL:QUOTE> ((<:PACKAGE> (NIL NIL)) (<METER> ("SYS: SYS2; CHARACTER" NIL) ("sys: sys; qccold" "SYS: SYS; QCDEFS")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; DISASS" "SYS: SYS; QCFASD" "SYS: SYS; QCFILE" "SYS: SYS; QCP1" "SYS: SYS; QCP2" "SYS: SYS; QCOPT" "SYS: SYS; QCLUKE" "SYS: SYS; QCPEEP" "SYS: SYS; QCLAP")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) (("SYS: SYS2; CLASS" (<METER> <CLASS> "SYS: SYS2; CLASS")) ("SYS: COLD; DEFMIC" "SYS: COLD; DOCMIC"))))) ("SYS: SYS2; CHARACTER" "SYS: SYS; QCFASD" "SYS: SYS; QCLUKE")))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "MATH")
        <:MATH>)
     => (<GLOBAL:QUOTE> <:MATH>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: SYS2; MATRIX")
           => ("SYS: SYS2; MATRIX"))
         => ("SYS: SYS2; CLASS" ("SYS: SYS2; MATRIX")))
       => (("SYS: SYS2; CLASS" ("SYS: SYS2; MATRIX"))))
     => (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: SYS2; MATRIX")))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:MATH>) (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: SYS2; MATRIX"))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:MATH>) (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: SYS2; MATRIX")))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "HACKS")
        <:HACKS>)
     => (<GLOBAL:QUOTE> <:HACKS>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [83] {<:PACKAGE>})
          (FASL-OP-SYMBOL <HACKS>)
         => (<:PACKAGE> <HACKS>))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK"))})
          (FASL-OP-STRING "SYS: DEMO;")
         => (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: DEMO;"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [134] {<NETWORK>})
          (FASL-OP-STRING "SYS: DEMO; HACKS-CWARNS.LISP")
         => (<NETWORK> "SYS: DEMO; HACKS-CWARNS.LISP"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
          (FASL-OP-STRING "HAKDEF")
         => (<METER> ("SYS: SYS2; CHARACTER" NIL) "HAKDEF"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [19] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "ABACUS")
            (FASL-OP-STRING "ALARM")
            (FASL-OP-STRING "BEEPS")
            (FASL-OP-STRING "CROCK")
            (FASL-OP-STRING "DC")
            (FASL-OP-STRING "DEUTSC")
            (FASL-OP-STRING "DLWHAK")
            (FASL-OP-STRING "DOCTOR")
            (FASL-OP-STRING "DOCSCR")
            (FASL-OP-STRING "GEB")
            (FASL-OP-STRING "HCEDIT")
            (FASL-OP-STRING "MUNCH")
            (FASL-OP-STRING "OHACKS")
            (FASL-OP-STRING "ORGAN")
            (FASL-OP-STRING "QIX")
            (FASL-OP-STRING "ROTATE")
            (FASL-OP-STRING "ROTCIR")
            (FASL-OP-STRING "WORM")
            (FASL-OP-STRING "WORM-TRAILS")
           => ("ABACUS" "ALARM" "BEEPS" "CROCK" "DC" "DEUTSC" "DLWHAK" "DOCTOR" "DOCSCR" "GEB" "HCEDIT" "MUNCH" "OHACKS" "ORGAN" "QIX" "ROTATE" "ROTCIR" "WORM" "WORM-TRAILS"))
         => (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("ABACUS" "ALARM" "BEEPS" "CROCK" "DC" "DEUTSC" "DLWHAK" "DOCTOR" "DOCSCR" "GEB" "HCEDIT" "MUNCH" "OHACKS" "ORGAN" "QIX" "ROTATE" "ROTCIR" "WORM" "WORM-TRAILS")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
         => ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))
         => ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "TVBGAR")
            (FASL-OP-STRING "WORMCH")
           => ("TVBGAR" "WORMCH"))
         => ("SYS: SYS2; CHARACTER" ("TVBGAR" "WORMCH")))
       => ((<:PACKAGE> <HACKS>) (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: DEMO;") (<NETWORK> "SYS: DEMO; HACKS-CWARNS.LISP") (<METER> ("SYS: SYS2; CHARACTER" NIL) "HAKDEF") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("ABACUS" "ALARM" "BEEPS" "CROCK" "DC" "DEUTSC" "DLWHAK" "DOCTOR" "DOCSCR" "GEB" "HCEDIT" "MUNCH" "OHACKS" "ORGAN" "QIX" "ROTATE" "ROTCIR" "WORM" "WORM-TRAILS")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS2; CHARACTER" ("TVBGAR" "WORMCH"))))
     => (<GLOBAL:QUOTE> ((<:PACKAGE> <HACKS>) (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: DEMO;") (<NETWORK> "SYS: DEMO; HACKS-CWARNS.LISP") (<METER> ("SYS: SYS2; CHARACTER" NIL) "HAKDEF") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("ABACUS" "ALARM" "BEEPS" "CROCK" "DC" "DEUTSC" "DLWHAK" "DOCTOR" "DOCSCR" "GEB" "HCEDIT" "MUNCH" "OHACKS" "ORGAN" "QIX" "ROTATE" "ROTCIR" "WORM" "WORM-TRAILS")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS2; CHARACTER" ("TVBGAR" "WORMCH")))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:HACKS>) (<GLOBAL:QUOTE> ((<:PACKAGE> <HACKS>) (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: DEMO;") (<NETWORK> "SYS: DEMO; HACKS-CWARNS.LISP") (<METER> ("SYS: SYS2; CHARACTER" NIL) "HAKDEF") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("ABACUS" "ALARM" "BEEPS" "CROCK" "DC" "DEUTSC" "DLWHAK" "DOCTOR" "DOCSCR" "GEB" "HCEDIT" "MUNCH" "OHACKS" "ORGAN" "QIX" "ROTATE" "ROTCIR" "WORM" "WORM-TRAILS")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS2; CHARACTER" ("TVBGAR" "WORMCH"))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:HACKS>) (<GLOBAL:QUOTE> ((<:PACKAGE> <HACKS>) (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: DEMO;") (<NETWORK> "SYS: DEMO; HACKS-CWARNS.LISP") (<METER> ("SYS: SYS2; CHARACTER" NIL) "HAKDEF") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("ABACUS" "ALARM" "BEEPS" "CROCK" "DC" "DEUTSC" "DLWHAK" "DOCTOR" "DOCSCR" "GEB" "HCEDIT" "MUNCH" "OHACKS" "ORGAN" "QIX" "ROTATE" "ROTCIR" "WORM" "WORM-TRAILS")) ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS2; CHARACTER" ("TVBGAR" "WORMCH")))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "SRCCOM")
        <:SRCCOM>)
     => (<GLOBAL:QUOTE> <:SRCCOM>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: IO1; SRCCOM")
           => ("SYS: IO1; SRCCOM"))
         => ("SYS: SYS2; CLASS" ("SYS: IO1; SRCCOM")))
       => (("SYS: SYS2; CLASS" ("SYS: IO1; SRCCOM"))))
     => (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: IO1; SRCCOM")))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:SRCCOM>) (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: IO1; SRCCOM"))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:SRCCOM>) (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: IO1; SRCCOM")))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "METER")
        <:METER>)
     => (<GLOBAL:QUOTE> <:METER>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: IO1; METER")
           => ("SYS: IO1; METER"))
         => ("SYS: SYS2; CLASS" ("SYS: IO1; METER")))
       => (("SYS: SYS2; CLASS" ("SYS: IO1; METER"))))
     => (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: IO1; METER")))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:METER>) (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: IO1; METER"))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:METER>) (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: IO1; METER")))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "CONVERSE")
        <:CONVERSE>)
     => (<GLOBAL:QUOTE> <:CONVERSE>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: IO1; CONVER")
           => ("SYS: IO1; CONVER"))
         => ("SYS: SYS2; CLASS" ("SYS: IO1; CONVER")))
       => (("SYS: SYS2; CLASS" ("SYS: IO1; CONVER"))))
     => (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: IO1; CONVER")))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:CONVERSE>) (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: IO1; CONVER"))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:CONVERSE>) (<GLOBAL:QUOTE> (("SYS: SYS2; CLASS" ("SYS: IO1; CONVER")))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "ISPELL")
        <:ISPELL>)
     => (<GLOBAL:QUOTE> <:ISPELL>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [134] {<NETWORK>})
          (FASL-OP-STRING "SYS: ZWEI; ISPELL-CWARNS.LISP")
         => (<NETWORK> "SYS: ZWEI; ISPELL-CWARNS.LISP"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "sys:zwei;spell-check")
           => ("sys:zwei;spell-check"))
         => (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("sys:zwei;spell-check")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
         => ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))
       => ((<NETWORK> "SYS: ZWEI; ISPELL-CWARNS.LISP") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("sys:zwei;spell-check")) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")))))
     => (<GLOBAL:QUOTE> ((<NETWORK> "SYS: ZWEI; ISPELL-CWARNS.LISP") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("sys:zwei;spell-check")) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:ISPELL>) (<GLOBAL:QUOTE> ((<NETWORK> "SYS: ZWEI; ISPELL-CWARNS.LISP") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("sys:zwei;spell-check")) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:ISPELL>) (<GLOBAL:QUOTE> ((<NETWORK> "SYS: ZWEI; ISPELL-CWARNS.LISP") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("sys:zwei;spell-check")) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "SERIAL")
        <:SERIAL>)
     => (<GLOBAL:QUOTE> <:SERIAL>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK"))})
          (FASL-OP-STRING "SYS:IO1;")
         => (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS:IO1;"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <DEVICES>)
          (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SDU-SERIAL")
           => ("SDU-SERIAL"))
         => (<METER> <DEVICES> ("SDU-SERIAL")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [848] {"EHF"})
         => ("SYS: SYS2; CLASS" "EHF"))
       => ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS:IO1;") (<METER> <DEVICES> ("SDU-SERIAL")) ("SYS: SYS2; CLASS" "EHF")))
     => (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS:IO1;") (<METER> <DEVICES> ("SDU-SERIAL")) ("SYS: SYS2; CLASS" "EHF"))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:SERIAL>) (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS:IO1;") (<METER> <DEVICES> ("SDU-SERIAL")) ("SYS: SYS2; CLASS" "EHF")))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:SERIAL>) (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS:IO1;") (<METER> <DEVICES> ("SDU-SERIAL")) ("SYS: SYS2; CLASS" "EHF"))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "FANCY-LANDSCAPE")
        <:FANCY-LANDSCAPE>)
     => (<GLOBAL:QUOTE> <:FANCY-LANDSCAPE>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK"))})
          (FASL-OP-STRING "sys:window;")
         => (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys:window;"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [134] {<NETWORK>})
          (FASL-OP-STRING "SYS: WINDOW; FANCY-LANDSCAPE-CWARNS.LISP")
         => (<NETWORK> "SYS: WINDOW; FANCY-LANDSCAPE-CWARNS.LISP"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <CONTROL-PANEL>)
          (FASL-OP-STRING "control-panel")
         => (<METER> <CONTROL-PANEL> "control-panel"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <GAUGE>)
          (FASL-OP-STRING "gauge")
         => (<METER> <GAUGE> "gauge"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [161] {<:NICKNAMES>})
          (FASL-OP-STRING "fancy-landscape")
         => (<METER> <:NICKNAMES> "fancy-landscape"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [864] {(<FILE-SYSTEM> "GC")})
         => ("SYS: SYS2; CLASS" (<FILE-SYSTEM> "GC")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [867] {(<METER> ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS; STORAGE-DEFS"))})
         => ("SYS: SYS2; CLASS" (<METER> ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS; STORAGE-DEFS"))))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [161] {<:NICKNAMES>})
          (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [864] {(<FILE-SYSTEM> "GC")})
            (FASL-OP-INDEX [867] {(<METER> ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS; STORAGE-DEFS"))})
           => ("SYS: SYS2; CHARACTER" (<FILE-SYSTEM> "GC") (<METER> ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS; STORAGE-DEFS"))))
         => ("SYS: SYS2; CLASS" <:NICKNAMES> ("SYS: SYS2; CHARACTER" (<FILE-SYSTEM> "GC") (<METER> ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS; STORAGE-DEFS")))))
       => ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys:window;") (<NETWORK> "SYS: WINDOW; FANCY-LANDSCAPE-CWARNS.LISP") (<METER> <CONTROL-PANEL> "control-panel") (<METER> <GAUGE> "gauge") (<METER> <:NICKNAMES> "fancy-landscape") ("SYS: SYS2; CLASS" (<FILE-SYSTEM> "GC")) ("SYS: SYS2; CLASS" (<METER> ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS; STORAGE-DEFS"))) ("SYS: SYS2; CLASS" <:NICKNAMES> ("SYS: SYS2; CHARACTER" (<FILE-SYSTEM> "GC") (<METER> ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS; STORAGE-DEFS"))))))
     => (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys:window;") (<NETWORK> "SYS: WINDOW; FANCY-LANDSCAPE-CWARNS.LISP") (<METER> <CONTROL-PANEL> "control-panel") (<METER> <GAUGE> "gauge") (<METER> <:NICKNAMES> "fancy-landscape") ("SYS: SYS2; CLASS" (<FILE-SYSTEM> "GC")) ("SYS: SYS2; CLASS" (<METER> ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS; STORAGE-DEFS"))) ("SYS: SYS2; CLASS" <:NICKNAMES> ("SYS: SYS2; CHARACTER" (<FILE-SYSTEM> "GC") (<METER> ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS; STORAGE-DEFS")))))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:FANCY-LANDSCAPE>) (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys:window;") (<NETWORK> "SYS: WINDOW; FANCY-LANDSCAPE-CWARNS.LISP") (<METER> <CONTROL-PANEL> "control-panel") (<METER> <GAUGE> "gauge") (<METER> <:NICKNAMES> "fancy-landscape") ("SYS: SYS2; CLASS" (<FILE-SYSTEM> "GC")) ("SYS: SYS2; CLASS" (<METER> ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS; STORAGE-DEFS"))) ("SYS: SYS2; CLASS" <:NICKNAMES> ("SYS: SYS2; CHARACTER" (<FILE-SYSTEM> "GC") (<METER> ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS; STORAGE-DEFS"))))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:FANCY-LANDSCAPE>) (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys:window;") (<NETWORK> "SYS: WINDOW; FANCY-LANDSCAPE-CWARNS.LISP") (<METER> <CONTROL-PANEL> "control-panel") (<METER> <GAUGE> "gauge") (<METER> <:NICKNAMES> "fancy-landscape") ("SYS: SYS2; CLASS" (<FILE-SYSTEM> "GC")) ("SYS: SYS2; CLASS" (<METER> ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS; STORAGE-DEFS"))) ("SYS: SYS2; CLASS" <:NICKNAMES> ("SYS: SYS2; CHARACTER" (<FILE-SYSTEM> "GC") (<METER> ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS; STORAGE-DEFS")))))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "ZMAIL")
        <:ZMAIL>)
     => (<GLOBAL:QUOTE> <:ZMAIL>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [18] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [122] {<GARBAGE-COLLECTOR>})
          (FASL-OP-STRING "ZMail")
         => (<GARBAGE-COLLECTOR> "ZMail"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK"))})
          (FASL-OP-STRING "SYS: ZMAIL;")
         => (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: ZMAIL;"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [126] {<FILE-SYSTEM>})
          (FASL-OP-STRING "ZM")
         => (<FILE-SYSTEM> "ZM"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [130] {<TV>})
          (FASL-OP-STRING "SYS: ZMAIL; PATCH;")
         => (<TV> "SYS: ZMAIL; PATCH;"))
        (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [372] {(<:COMPILE-LOAD-INIT> <:PACKAGE> NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))})
         => ((<:COMPILE-LOAD-INIT> <:PACKAGE> NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [134] {<NETWORK>})
          (FASL-OP-STRING "SYS: ZMAIL; PATCH; ZMAIL-CWARNS.LISP")
         => (<NETWORK> "SYS: ZMAIL; PATCH; ZMAIL-CWARNS.LISP"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
          (FASL-OP-STRING "DEFS")
         => (<METER> ("SYS: SYS2; CHARACTER" NIL) "DEFS"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [160] {"NICKNAMES"})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "MULT")
            (FASL-OP-STRING "BUTTON")
           => ("MULT" "BUTTON"))
         => (<METER> "NICKNAMES" ("MULT" "BUTTON")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <MFHOST>)
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "MFHOST")
            (FASL-OP-STRING "MFHOST2")
           => ("MFHOST" "MFHOST2"))
         => (<METER> <MFHOST> ("MFHOST" "MFHOST2")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [12] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "TOP")
            (FASL-OP-STRING "MFILES")
            (FASL-OP-INDEX [900] {"TSCROL"})
            (FASL-OP-STRING "REFER")
            (FASL-OP-STRING "LMFILE")
            (FASL-OP-STRING "COMNDS")
            (FASL-OP-STRING "MAIL")
            (FASL-OP-STRING "WINDOW")
            (FASL-OP-STRING "FILTER")
            (FASL-OP-STRING "PROFIL")
            (FASL-OP-STRING "SYS:FILE;ZMAIL")
            (FASL-OP-INDEX [160] {"NICKNAMES"})
           => ("TOP" "MFILES" "TSCROL" "REFER" "LMFILE" "COMNDS" "MAIL" "WINDOW" "FILTER" "PROFIL" "SYS:FILE;ZMAIL" "NICKNAMES"))
         => (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("TOP" "MFILES" "TSCROL" "REFER" "LMFILE" "COMNDS" "MAIL" "WINDOW" "FILTER" "PROFIL" "SYS:FILE;ZMAIL" "NICKNAMES")))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <COMETH>)
          (FASL-OP-STRING "COMETH")
         => (<METER> <COMETH> "COMETH"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <RFC733>)
          (FASL-OP-STRING "RFC733")
         => (<METER> <RFC733> "RFC733"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-SYMBOL <LEX733>)
          (FASL-OP-STRING "LEX733")
         => (<METER> <LEX733> "LEX733"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
         => ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))
         => ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [920] {(("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: WINDOW;")})
         => ("SYS: SYS2; CLASS" (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: WINDOW;")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
          (FASL-OP-INDEX [923] {"SYS: NETWORK; CHAOS; PEEKCH"})
         => ("SYS: SYS2; CHARACTER" "SYS: NETWORK; CHAOS; PEEKCH"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [917] {<:PEEK>})
          (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (FASL-OP-INDEX [181] {"SYS: SYS2; CHARACTER"})
            (FASL-OP-INDEX [370] {("SYS: SYS2; CHARACTER" NIL)})
            (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
           => ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))
         => ("SYS: SYS2; CLASS" <:PEEK> ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")))))
       => ((<GARBAGE-COLLECTOR> "ZMail") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: ZMAIL;") (<FILE-SYSTEM> "ZM") (<TV> "SYS: ZMAIL; PATCH;") ((<:COMPILE-LOAD-INIT> <:PACKAGE> NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))) (<NETWORK> "SYS: ZMAIL; PATCH; ZMAIL-CWARNS.LISP") (<METER> ("SYS: SYS2; CHARACTER" NIL) "DEFS") (<METER> "NICKNAMES" ("MULT" "BUTTON")) (<METER> <MFHOST> ("MFHOST" "MFHOST2")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("TOP" "MFILES" "TSCROL" "REFER" "LMFILE" "COMNDS" "MAIL" "WINDOW" "FILTER" "PROFIL" "SYS:FILE;ZMAIL" "NICKNAMES")) (<METER> <COMETH> "COMETH") (<METER> <RFC733> "RFC733") (<METER> <LEX733> "LEX733") ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS2; CLASS" (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: WINDOW;")) ("SYS: SYS2; CHARACTER" "SYS: NETWORK; CHAOS; PEEKCH") ("SYS: SYS2; CLASS" <:PEEK> ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))))
     => (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "ZMail") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: ZMAIL;") (<FILE-SYSTEM> "ZM") (<TV> "SYS: ZMAIL; PATCH;") ((<:COMPILE-LOAD-INIT> <:PACKAGE> NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))) (<NETWORK> "SYS: ZMAIL; PATCH; ZMAIL-CWARNS.LISP") (<METER> ("SYS: SYS2; CHARACTER" NIL) "DEFS") (<METER> "NICKNAMES" ("MULT" "BUTTON")) (<METER> <MFHOST> ("MFHOST" "MFHOST2")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("TOP" "MFILES" "TSCROL" "REFER" "LMFILE" "COMNDS" "MAIL" "WINDOW" "FILTER" "PROFIL" "SYS:FILE;ZMAIL" "NICKNAMES")) (<METER> <COMETH> "COMETH") (<METER> <RFC733> "RFC733") (<METER> <LEX733> "LEX733") ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS2; CLASS" (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: WINDOW;")) ("SYS: SYS2; CHARACTER" "SYS: NETWORK; CHAOS; PEEKCH") ("SYS: SYS2; CLASS" <:PEEK> ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")))))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:ZMAIL>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "ZMail") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: ZMAIL;") (<FILE-SYSTEM> "ZM") (<TV> "SYS: ZMAIL; PATCH;") ((<:COMPILE-LOAD-INIT> <:PACKAGE> NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))) (<NETWORK> "SYS: ZMAIL; PATCH; ZMAIL-CWARNS.LISP") (<METER> ("SYS: SYS2; CHARACTER" NIL) "DEFS") (<METER> "NICKNAMES" ("MULT" "BUTTON")) (<METER> <MFHOST> ("MFHOST" "MFHOST2")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("TOP" "MFILES" "TSCROL" "REFER" "LMFILE" "COMNDS" "MAIL" "WINDOW" "FILTER" "PROFIL" "SYS:FILE;ZMAIL" "NICKNAMES")) (<METER> <COMETH> "COMETH") (<METER> <RFC733> "RFC733") (<METER> <LEX733> "LEX733") ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS2; CLASS" (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: WINDOW;")) ("SYS: SYS2; CHARACTER" "SYS: NETWORK; CHAOS; PEEKCH") ("SYS: SYS2; CLASS" <:PEEK> ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:ZMAIL>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "ZMail") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: ZMAIL;") (<FILE-SYSTEM> "ZM") (<TV> "SYS: ZMAIL; PATCH;") ((<:COMPILE-LOAD-INIT> <:PACKAGE> NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))) (<NETWORK> "SYS: ZMAIL; PATCH; ZMAIL-CWARNS.LISP") (<METER> ("SYS: SYS2; CHARACTER" NIL) "DEFS") (<METER> "NICKNAMES" ("MULT" "BUTTON")) (<METER> <MFHOST> ("MFHOST" "MFHOST2")) (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("TOP" "MFILES" "TSCROL" "REFER" "LMFILE" "COMNDS" "MAIL" "WINDOW" "FILTER" "PROFIL" "SYS:FILE;ZMAIL" "NICKNAMES")) (<METER> <COMETH> "COMETH") (<METER> <RFC733> "RFC733") (<METER> <LEX733> "LEX733") ("SYS: SYS2; CLASS" ("SYS: SYS2; CHARACTER" NIL)) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL))) ("SYS: SYS2; CLASS" (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "SYS: WINDOW;")) ("SYS: SYS2; CHARACTER" "SYS: NETWORK; CHAOS; PEEKCH") ("SYS: SYS2; CLASS" <:PEEK> ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL) (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")))))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "UNIX")
        <:UNIX>)
     => (<GLOBAL:QUOTE> <:UNIX>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [122] {<GARBAGE-COLLECTOR>})
          (FASL-OP-STRING "Unix-Interface")
         => (<GARBAGE-COLLECTOR> "Unix-Interface"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [126] {<FILE-SYSTEM>})
          (FASL-OP-STRING "unix")
         => (<FILE-SYSTEM> "unix"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK"))})
          (FASL-OP-STRING "sys: unix;")
         => (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys: unix;"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [130] {<TV>})
          (FASL-OP-SYMBOL <NIL>)
          (FASL-OP-STRING "unix-patch")
         => (<TV> <NIL> "unix-patch"))
        (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [372] {(<:COMPILE-LOAD-INIT> <:PACKAGE> NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))})
         => ((<:COMPILE-LOAD-INIT> <:PACKAGE> NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [134] {<NETWORK>})
          (FASL-OP-STRING "SYS: UNIX; UNIX-INTERFACE-CWARNS.LISP")
         => (<NETWORK> "SYS: UNIX; UNIX-INTERFACE-CWARNS.LISP"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "lamtty")
            (FASL-OP-STRING "sdu-utils")
           => ("lamtty" "sdu-utils"))
         => (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("lamtty" "sdu-utils")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
         => ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))
       => ((<GARBAGE-COLLECTOR> "Unix-Interface") (<FILE-SYSTEM> "unix") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys: unix;") (<TV> <NIL> "unix-patch") ((<:COMPILE-LOAD-INIT> <:PACKAGE> NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))) (<NETWORK> "SYS: UNIX; UNIX-INTERFACE-CWARNS.LISP") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("lamtty" "sdu-utils")) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")))))
     => (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "Unix-Interface") (<FILE-SYSTEM> "unix") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys: unix;") (<TV> <NIL> "unix-patch") ((<:COMPILE-LOAD-INIT> <:PACKAGE> NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))) (<NETWORK> "SYS: UNIX; UNIX-INTERFACE-CWARNS.LISP") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("lamtty" "sdu-utils")) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:UNIX>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "Unix-Interface") (<FILE-SYSTEM> "unix") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys: unix;") (<TV> <NIL> "unix-patch") ((<:COMPILE-LOAD-INIT> <:PACKAGE> NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))) (<NETWORK> "SYS: UNIX; UNIX-INTERFACE-CWARNS.LISP") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("lamtty" "sdu-utils")) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:UNIX>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "Unix-Interface") (<FILE-SYSTEM> "unix") (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys: unix;") (<TV> <NIL> "unix-patch") ((<:COMPILE-LOAD-INIT> <:PACKAGE> NIL ("SYS: SYS2; CHARACTER" NIL) ("SYS: SYS2; CHARACTER" ("SYS: SYS2; CHARACTER" NIL)))) (<NETWORK> "SYS: UNIX; UNIX-INTERFACE-CWARNS.LISP") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("lamtty" "sdu-utils")) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [537] {(<METER> <FINGER> "FINGER")})
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-INDEX [32] {""})
      (FASL-OP-STRING "FILE-SYSTEM-UTILITIES")
      <:FILE-SYSTEM-UTILITIES>)
    (FASL-OP-STRING "SYS: FILE; FS")
   => ((<METER> <FINGER> "FINGER") <:FILE-SYSTEM-UTILITIES> "SYS: FILE; FS"))
  (EVAL '((<METER> <FINGER> "FINGER") <:FILE-SYSTEM-UTILITIES> "SYS: FILE; FS")))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [537] {(<METER> <FINGER> "FINGER")})
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-INDEX [32] {""})
      (FASL-OP-STRING "LOCAL-FILE")
      <:LOCAL-FILE>)
    (FASL-OP-STRING "SYS: FILE; FS")
   => ((<METER> <FINGER> "FINGER") <:LOCAL-FILE> "SYS: FILE; FS"))
  (EVAL '((<METER> <FINGER> "FINGER") <:LOCAL-FILE> "SYS: FILE; FS")))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [537] {(<METER> <FINGER> "FINGER")})
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-INDEX [32] {""})
      (FASL-OP-STRING "FILE-SERVER")
      <:FILE-SERVER>)
    (FASL-OP-STRING "SYS: FILE; FS")
   => ((<METER> <FINGER> "FINGER") <:FILE-SERVER> "SYS: FILE; FS"))
  (EVAL '((<METER> <FINGER> "FINGER") <:FILE-SERVER> "SYS: FILE; FS")))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [537] {(<METER> <FINGER> "FINGER")})
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-INDEX [32] {""})
      (FASL-OP-STRING "COLD")
      <:COLD>)
    (FASL-OP-STRING "SYS: COLD; COLDPK")
   => ((<METER> <FINGER> "FINGER") <:COLD> "SYS: COLD; COLDPK"))
  (EVAL '((<METER> <FINGER> "FINGER") <:COLD> "SYS: COLD; COLDPK")))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-SYMBOL <DEFCONST-1>)
    (FASL-OP-SYMBOL <LAMBDA-COLD-LOAD-FILE-LIST>)
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [27] Area=WORKING-STORAGE-AREA
        (FASL-OP-STRING "SYS: FONTS; CPTFON QFASL")
        (FASL-OP-STRING "SYS:COLD;FIRST QFASL >")
        (FASL-OP-STRING "SYS: SYS; STORAGE QFASL >")
        (FASL-OP-STRING "SYS: SYS; QRAND QFASL >")
        (FASL-OP-STRING "SYS: IO; QIO QFASL >")
        (FASL-OP-STRING "SYS: IO; READ QFASL >")
        (FASL-OP-STRING "SYS: IO; INPUT-READERS QFASL >")
        (FASL-OP-STRING "SYS: IO; PRINT QFASL >")
        (FASL-OP-STRING "SYS: WINDOW; COLD QFASL >")
        (FASL-OP-STRING "SYS: SYS; SGFCTN QFASL >")
        (FASL-OP-STRING "SYS: SYS; EVAL QFASL >")
        (FASL-OP-STRING "SYS: SYS; SPECIAL-FORMS QFASL >")
        (FASL-OP-STRING "SYS: SYS; TYPES QFASL >")
        (FASL-OP-STRING "SYS: SYS; LTOP QFASL >")
        (FASL-OP-STRING "SYS: SYS; REP QFASL >")
        (FASL-OP-STRING "sys: sys; qccold qfasl >")
        (FASL-OP-STRING "SYS: SYS; QFASL QFASL >")
        (FASL-OP-STRING "SYS:COLD;STREAM QFASL")
        (FASL-OP-STRING "SYS:COLD;MINI QFASL")
        (FASL-OP-STRING "SYS: SYS; QFCTNS QFASL >")
        (FASL-OP-STRING "SYS: SYS2; STRING QFASL >")
        (FASL-OP-STRING "SYS: SYS2; CHARACTER QFASL >")
        (FASL-OP-STRING "SYS: SYS; GENRIC QFASL >")
        (FASL-OP-STRING "SYS: SYS; CLPACK QFASL >")
        (FASL-OP-STRING "SYS: COLD; GLOBAL QFASL >")
        (FASL-OP-STRING "SYS: COLD; SYSTEM QFASL >")
        (FASL-OP-STRING "SYS: COLD; LISP QFASL >")
       => ("SYS: FONTS; CPTFON QFASL" "SYS:COLD;FIRST QFASL >" "SYS: SYS; STORAGE QFASL >" "SYS: SYS; QRAND QFASL >" "SYS: IO; QIO QFASL >" "SYS: IO; READ QFASL >" "SYS: IO; INPUT-READERS QFASL >" "SYS: IO; PRINT QFASL >" "SYS: WINDOW; COLD QFASL >" "SYS: SYS; SGFCTN QFASL >" "SYS: SYS; EVAL QFASL >" "SYS: SYS; SPECIAL-FORMS QFASL >" "SYS: SYS; TYPES QFASL >" "SYS: SYS; LTOP QFASL >" "SYS: SYS; REP QFASL >" "sys: sys; qccold qfasl >" "SYS: SYS; QFASL QFASL >" "SYS:COLD;STREAM QFASL" "SYS:COLD;MINI QFASL" "SYS: SYS; QFCTNS QFASL >" "SYS: SYS2; STRING QFASL >" "SYS: SYS2; CHARACTER QFASL >" "SYS: SYS; GENRIC QFASL >" "SYS: SYS; CLPACK QFASL >" "SYS: COLD; GLOBAL QFASL >" "SYS: COLD; SYSTEM QFASL >" "SYS: COLD; LISP QFASL >"))
     => (<GLOBAL:QUOTE> ("SYS: FONTS; CPTFON QFASL" "SYS:COLD;FIRST QFASL >" "SYS: SYS; STORAGE QFASL >" "SYS: SYS; QRAND QFASL >" "SYS: IO; QIO QFASL >" "SYS: IO; READ QFASL >" "SYS: IO; INPUT-READERS QFASL >" "SYS: IO; PRINT QFASL >" "SYS: WINDOW; COLD QFASL >" "SYS: SYS; SGFCTN QFASL >" "SYS: SYS; EVAL QFASL >" "SYS: SYS; SPECIAL-FORMS QFASL >" "SYS: SYS; TYPES QFASL >" "SYS: SYS; LTOP QFASL >" "SYS: SYS; REP QFASL >" "sys: sys; qccold qfasl >" "SYS: SYS; QFASL QFASL >" "SYS:COLD;STREAM QFASL" "SYS:COLD;MINI QFASL" "SYS: SYS; QFCTNS QFASL >" "SYS: SYS2; STRING QFASL >" "SYS: SYS2; CHARACTER QFASL >" "SYS: SYS; GENRIC QFASL >" "SYS: SYS; CLPACK QFASL >" "SYS: COLD; GLOBAL QFASL >" "SYS: COLD; SYSTEM QFASL >" "SYS: COLD; LISP QFASL >")))
   => (<DEFCONST-1> <LAMBDA-COLD-LOAD-FILE-LIST> (<GLOBAL:QUOTE> ("SYS: FONTS; CPTFON QFASL" "SYS:COLD;FIRST QFASL >" "SYS: SYS; STORAGE QFASL >" "SYS: SYS; QRAND QFASL >" "SYS: IO; QIO QFASL >" "SYS: IO; READ QFASL >" "SYS: IO; INPUT-READERS QFASL >" "SYS: IO; PRINT QFASL >" "SYS: WINDOW; COLD QFASL >" "SYS: SYS; SGFCTN QFASL >" "SYS: SYS; EVAL QFASL >" "SYS: SYS; SPECIAL-FORMS QFASL >" "SYS: SYS; TYPES QFASL >" "SYS: SYS; LTOP QFASL >" "SYS: SYS; REP QFASL >" "sys: sys; qccold qfasl >" "SYS: SYS; QFASL QFASL >" "SYS:COLD;STREAM QFASL" "SYS:COLD;MINI QFASL" "SYS: SYS; QFCTNS QFASL >" "SYS: SYS2; STRING QFASL >" "SYS: SYS2; CHARACTER QFASL >" "SYS: SYS; GENRIC QFASL >" "SYS: SYS; CLPACK QFASL >" "SYS: COLD; GLOBAL QFASL >" "SYS: COLD; SYSTEM QFASL >" "SYS: COLD; LISP QFASL >"))))
  (EVAL '(<DEFCONST-1> <LAMBDA-COLD-LOAD-FILE-LIST> (<GLOBAL:QUOTE> ("SYS: FONTS; CPTFON QFASL" "SYS:COLD;FIRST QFASL >" "SYS: SYS; STORAGE QFASL >" "SYS: SYS; QRAND QFASL >" "SYS: IO; QIO QFASL >" "SYS: IO; READ QFASL >" "SYS: IO; INPUT-READERS QFASL >" "SYS: IO; PRINT QFASL >" "SYS: WINDOW; COLD QFASL >" "SYS: SYS; SGFCTN QFASL >" "SYS: SYS; EVAL QFASL >" "SYS: SYS; SPECIAL-FORMS QFASL >" "SYS: SYS; TYPES QFASL >" "SYS: SYS; LTOP QFASL >" "SYS: SYS; REP QFASL >" "sys: sys; qccold qfasl >" "SYS: SYS; QFASL QFASL >" "SYS:COLD;STREAM QFASL" "SYS:COLD;MINI QFASL" "SYS: SYS; QFCTNS QFASL >" "SYS: SYS2; STRING QFASL >" "SYS: SYS2; CHARACTER QFASL >" "SYS: SYS; GENRIC QFASL >" "SYS: SYS; CLPACK QFASL >" "SYS: COLD; GLOBAL QFASL >" "SYS: COLD; SYSTEM QFASL >" "SYS: COLD; LISP QFASL >")))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [1056] {<:CONVERSE>})
    (FASL-OP-SYMBOL <FALCON-COLD-LOAD-FILE-LIST>)
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [27] Area=WORKING-STORAGE-AREA
        (FASL-OP-STRING "SYS: FONTS; CPTFON QFASL")
        (FASL-OP-STRING "SYS:COLD;FIRST QFASL >")
        (FASL-OP-STRING "SYS: SYS; STORAGE QFASL >")
        (FASL-OP-STRING "SYS: SYS; QRAND QFASL >")
        (FASL-OP-STRING "SYS: IO; QIO QFASL >")
        (FASL-OP-STRING "SYS: IO; READ QFASL >")
        (FASL-OP-STRING "SYS: IO; INPUT-READERS QFASL >")
        (FASL-OP-STRING "SYS: IO; PRINT QFASL >")
        (FASL-OP-STRING "SYS: WINDOW; COLD QFASL >")
        (FASL-OP-STRING "SYS: SYS; SGFCTN QFASL >")
        (FASL-OP-STRING "SYS: SYS; EVAL QFASL >")
        (FASL-OP-STRING "SYS: SYS; SPECIAL-FORMS QFASL >")
        (FASL-OP-STRING "SYS: SYS; TYPES QFASL >")
        (FASL-OP-STRING "SYS: SYS; LTOP QFASL >")
        (FASL-OP-STRING "SYS: SYS; REP QFASL >")
        (FASL-OP-STRING "sys: sys; qccold qfasl >")
        (FASL-OP-STRING "SYS: SYS; QFASL QFASL >")
        (FASL-OP-STRING "SYS:COLD;STREAM QFASL")
        (FASL-OP-STRING "SYS:COLD;MINI QFASL")
        (FASL-OP-STRING "SYS: SYS; QFCTNS QFASL >")
        (FASL-OP-STRING "SYS: SYS2; STRING QFASL >")
        (FASL-OP-STRING "SYS: SYS2; CHARACTER QFASL >")
        (FASL-OP-STRING "SYS: SYS; GENRIC QFASL >")
        (FASL-OP-STRING "SYS: SYS; CLPACK QFASL >")
        (FASL-OP-STRING "SYS: COLD; GLOBAL QFASL >")
        (FASL-OP-STRING "SYS: COLD; SYSTEM QFASL >")
        (FASL-OP-STRING "SYS: COLD; LISP QFASL >")
       => ("SYS: FONTS; CPTFON QFASL" "SYS:COLD;FIRST QFASL >" "SYS: SYS; STORAGE QFASL >" "SYS: SYS; QRAND QFASL >" "SYS: IO; QIO QFASL >" "SYS: IO; READ QFASL >" "SYS: IO; INPUT-READERS QFASL >" "SYS: IO; PRINT QFASL >" "SYS: WINDOW; COLD QFASL >" "SYS: SYS; SGFCTN QFASL >" "SYS: SYS; EVAL QFASL >" "SYS: SYS; SPECIAL-FORMS QFASL >" "SYS: SYS; TYPES QFASL >" "SYS: SYS; LTOP QFASL >" "SYS: SYS; REP QFASL >" "sys: sys; qccold qfasl >" "SYS: SYS; QFASL QFASL >" "SYS:COLD;STREAM QFASL" "SYS:COLD;MINI QFASL" "SYS: SYS; QFCTNS QFASL >" "SYS: SYS2; STRING QFASL >" "SYS: SYS2; CHARACTER QFASL >" "SYS: SYS; GENRIC QFASL >" "SYS: SYS; CLPACK QFASL >" "SYS: COLD; GLOBAL QFASL >" "SYS: COLD; SYSTEM QFASL >" "SYS: COLD; LISP QFASL >"))
     => (<GLOBAL:QUOTE> ("SYS: FONTS; CPTFON QFASL" "SYS:COLD;FIRST QFASL >" "SYS: SYS; STORAGE QFASL >" "SYS: SYS; QRAND QFASL >" "SYS: IO; QIO QFASL >" "SYS: IO; READ QFASL >" "SYS: IO; INPUT-READERS QFASL >" "SYS: IO; PRINT QFASL >" "SYS: WINDOW; COLD QFASL >" "SYS: SYS; SGFCTN QFASL >" "SYS: SYS; EVAL QFASL >" "SYS: SYS; SPECIAL-FORMS QFASL >" "SYS: SYS; TYPES QFASL >" "SYS: SYS; LTOP QFASL >" "SYS: SYS; REP QFASL >" "sys: sys; qccold qfasl >" "SYS: SYS; QFASL QFASL >" "SYS:COLD;STREAM QFASL" "SYS:COLD;MINI QFASL" "SYS: SYS; QFCTNS QFASL >" "SYS: SYS2; STRING QFASL >" "SYS: SYS2; CHARACTER QFASL >" "SYS: SYS; GENRIC QFASL >" "SYS: SYS; CLPACK QFASL >" "SYS: COLD; GLOBAL QFASL >" "SYS: COLD; SYSTEM QFASL >" "SYS: COLD; LISP QFASL >")))
   => (<:CONVERSE> <FALCON-COLD-LOAD-FILE-LIST> (<GLOBAL:QUOTE> ("SYS: FONTS; CPTFON QFASL" "SYS:COLD;FIRST QFASL >" "SYS: SYS; STORAGE QFASL >" "SYS: SYS; QRAND QFASL >" "SYS: IO; QIO QFASL >" "SYS: IO; READ QFASL >" "SYS: IO; INPUT-READERS QFASL >" "SYS: IO; PRINT QFASL >" "SYS: WINDOW; COLD QFASL >" "SYS: SYS; SGFCTN QFASL >" "SYS: SYS; EVAL QFASL >" "SYS: SYS; SPECIAL-FORMS QFASL >" "SYS: SYS; TYPES QFASL >" "SYS: SYS; LTOP QFASL >" "SYS: SYS; REP QFASL >" "sys: sys; qccold qfasl >" "SYS: SYS; QFASL QFASL >" "SYS:COLD;STREAM QFASL" "SYS:COLD;MINI QFASL" "SYS: SYS; QFCTNS QFASL >" "SYS: SYS2; STRING QFASL >" "SYS: SYS2; CHARACTER QFASL >" "SYS: SYS; GENRIC QFASL >" "SYS: SYS; CLPACK QFASL >" "SYS: COLD; GLOBAL QFASL >" "SYS: COLD; SYSTEM QFASL >" "SYS: COLD; LISP QFASL >"))))
  (EVAL '(<:CONVERSE> <FALCON-COLD-LOAD-FILE-LIST> (<GLOBAL:QUOTE> ("SYS: FONTS; CPTFON QFASL" "SYS:COLD;FIRST QFASL >" "SYS: SYS; STORAGE QFASL >" "SYS: SYS; QRAND QFASL >" "SYS: IO; QIO QFASL >" "SYS: IO; READ QFASL >" "SYS: IO; INPUT-READERS QFASL >" "SYS: IO; PRINT QFASL >" "SYS: WINDOW; COLD QFASL >" "SYS: SYS; SGFCTN QFASL >" "SYS: SYS; EVAL QFASL >" "SYS: SYS; SPECIAL-FORMS QFASL >" "SYS: SYS; TYPES QFASL >" "SYS: SYS; LTOP QFASL >" "SYS: SYS; REP QFASL >" "sys: sys; qccold qfasl >" "SYS: SYS; QFASL QFASL >" "SYS:COLD;STREAM QFASL" "SYS:COLD;MINI QFASL" "SYS: SYS; QFCTNS QFASL >" "SYS: SYS2; STRING QFASL >" "SYS: SYS2; CHARACTER QFASL >" "SYS: SYS; GENRIC QFASL >" "SYS: SYS; CLPACK QFASL >" "SYS: COLD; GLOBAL QFASL >" "SYS: COLD; SYSTEM QFASL >" "SYS: COLD; LISP QFASL >")))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-SYMBOL <DEFVAR-1>)
    (FASL-OP-SYMBOL <INNER-SYSTEM-FILE-ALIST>)
    (FASL-OP-INDEX [951] {<HOST-PATHNAMES>})
   => (<DEFVAR-1> <INNER-SYSTEM-FILE-ALIST> <HOST-PATHNAMES>))
  (EVAL '(<DEFVAR-1> <INNER-SYSTEM-FILE-ALIST> <HOST-PATHNAMES>)))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [1123] {(<FILE-SYSTEM> "ZM")})
    (FASL-OP-SYMBOL <REST-OF-PATHNAMES-FILE-ALIST>)
    (FASL-OP-INDEX [951] {<HOST-PATHNAMES>})
   => ((<FILE-SYSTEM> "ZM") <REST-OF-PATHNAMES-FILE-ALIST> <HOST-PATHNAMES>))
  (EVAL '((<FILE-SYSTEM> "ZM") <REST-OF-PATHNAMES-FILE-ALIST> <HOST-PATHNAMES>)))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [1123] {(<FILE-SYSTEM> "ZM")})
    (FASL-OP-SYMBOL <SITE-FILE-ALIST>)
    (FASL-OP-INDEX [951] {<HOST-PATHNAMES>})
   => ((<FILE-SYSTEM> "ZM") <SITE-FILE-ALIST> <HOST-PATHNAMES>))
  (EVAL '((<FILE-SYSTEM> "ZM") <SITE-FILE-ALIST> <HOST-PATHNAMES>)))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [1123] {(<FILE-SYSTEM> "ZM")})
    (FASL-OP-SYMBOL <HOST-TABLE-FILE-ALIST>)
    (FASL-OP-INDEX [951] {<HOST-PATHNAMES>})
   => ((<FILE-SYSTEM> "ZM") <HOST-TABLE-FILE-ALIST> <HOST-PATHNAMES>))
  (EVAL '((<FILE-SYSTEM> "ZM") <HOST-TABLE-FILE-ALIST> <HOST-PATHNAMES>)))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "SYSTEM-MACROS")
        <:SYSTEM-MACROS>)
     => (<GLOBAL:QUOTE> <:SYSTEM-MACROS>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [7] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS: SYS2; DEFMAC")
            (FASL-OP-STRING "SYS: SYS2; LMMAC")
            (FASL-OP-STRING "SYS: SYS2; STRUCT")
            (FASL-OP-STRING "SYS: SYS2; SETF")
            (FASL-OP-STRING "SYS: SYS; TYPES")
            (FASL-OP-STRING "SYS: SYS; STORAGE-DEFS")
            (FASL-OP-STRING "SYS: DEBUGGER; ERRMAC")
           => ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; STRUCT" "SYS: SYS2; SETF" "SYS: SYS; TYPES" "SYS: SYS; STORAGE-DEFS" "SYS: DEBUGGER; ERRMAC"))
         => (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; STRUCT" "SYS: SYS2; SETF" "SYS: SYS; TYPES" "SYS: SYS; STORAGE-DEFS" "SYS: DEBUGGER; ERRMAC")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
         => ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))
       => ((<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; STRUCT" "SYS: SYS2; SETF" "SYS: SYS; TYPES" "SYS: SYS; STORAGE-DEFS" "SYS: DEBUGGER; ERRMAC")) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")))))
     => (<GLOBAL:QUOTE> ((<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; STRUCT" "SYS: SYS2; SETF" "SYS: SYS; TYPES" "SYS: SYS; STORAGE-DEFS" "SYS: DEBUGGER; ERRMAC")) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:SYSTEM-MACROS>) (<GLOBAL:QUOTE> ((<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; STRUCT" "SYS: SYS2; SETF" "SYS: SYS; TYPES" "SYS: SYS; STORAGE-DEFS" "SYS: DEBUGGER; ERRMAC")) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:SYSTEM-MACROS>) (<GLOBAL:QUOTE> ((<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; STRUCT" "SYS: SYS2; SETF" "SYS: SYS; TYPES" "SYS: SYS; STORAGE-DEFS" "SYS: DEBUGGER; ERRMAC")) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "COLD-LOAD")
        <:COLD-LOAD>)
     => (<GLOBAL:QUOTE> <:COLD-LOAD>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [484] {("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK"))})
          (FASL-OP-STRING "sys:cold;")
         => (("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys:cold;"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [134] {<NETWORK>})
          (FASL-OP-STRING "sys:cold;cold-load-cwarns.lisp")
         => (<NETWORK> "sys:cold;cold-load-cwarns.lisp"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [26] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "SYS:COLD;FIRST")
            (FASL-OP-STRING "SYS: SYS; STORAGE")
            (FASL-OP-STRING "SYS: SYS; QRAND")
            (FASL-OP-STRING "SYS: IO; QIO")
            (FASL-OP-STRING "SYS: IO; READ")
            (FASL-OP-STRING "SYS: IO; INPUT-READERS")
            (FASL-OP-STRING "SYS: IO; PRINT")
            (FASL-OP-STRING "SYS: WINDOW; COLD")
            (FASL-OP-STRING "SYS: SYS; SGFCTN")
            (FASL-OP-STRING "SYS: SYS; EVAL")
            (FASL-OP-STRING "SYS: SYS; SPECIAL-FORMS")
            (FASL-OP-STRING "SYS: SYS; TYPES")
            (FASL-OP-STRING "SYS: SYS; LTOP")
            (FASL-OP-STRING "SYS: SYS; REP")
            (FASL-OP-STRING "sys: sys; qccold")
            (FASL-OP-STRING "SYS: SYS; QFASL")
            (FASL-OP-STRING "SYS:COLD;STREAM")
            (FASL-OP-STRING "SYS:COLD;MINI")
            (FASL-OP-STRING "SYS: SYS; QFCTNS")
            (FASL-OP-STRING "SYS: SYS2; STRING")
            (FASL-OP-STRING "SYS: SYS2; CHARACTER")
            (FASL-OP-STRING "SYS: SYS; GENRIC")
            (FASL-OP-STRING "SYS: SYS; CLPACK")
            (FASL-OP-STRING "SYS: COLD; GLOBAL")
            (FASL-OP-STRING "SYS: COLD; SYSTEM")
            (FASL-OP-STRING "SYS: COLD; LISP")
           => ("SYS:COLD;FIRST" "SYS: SYS; STORAGE" "SYS: SYS; QRAND" "SYS: IO; QIO" "SYS: IO; READ" "SYS: IO; INPUT-READERS" "SYS: IO; PRINT" "SYS: WINDOW; COLD" "SYS: SYS; SGFCTN" "SYS: SYS; EVAL" "SYS: SYS; SPECIAL-FORMS" "SYS: SYS; TYPES" "SYS: SYS; LTOP" "SYS: SYS; REP" "sys: sys; qccold" "SYS: SYS; QFASL" "SYS:COLD;STREAM" "SYS:COLD;MINI" "SYS: SYS; QFCTNS" "SYS: SYS2; STRING" "SYS: SYS2; CHARACTER" "SYS: SYS; GENRIC" "SYS: SYS; CLPACK" "SYS: COLD; GLOBAL" "SYS: COLD; SYSTEM" "SYS: COLD; LISP"))
         => (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS:COLD;FIRST" "SYS: SYS; STORAGE" "SYS: SYS; QRAND" "SYS: IO; QIO" "SYS: IO; READ" "SYS: IO; INPUT-READERS" "SYS: IO; PRINT" "SYS: WINDOW; COLD" "SYS: SYS; SGFCTN" "SYS: SYS; EVAL" "SYS: SYS; SPECIAL-FORMS" "SYS: SYS; TYPES" "SYS: SYS; LTOP" "SYS: SYS; REP" "sys: sys; qccold" "SYS: SYS; QFASL" "SYS:COLD;STREAM" "SYS:COLD;MINI" "SYS: SYS; QFCTNS" "SYS: SYS2; STRING" "SYS: SYS2; CHARACTER" "SYS: SYS; GENRIC" "SYS: SYS; CLPACK" "SYS: COLD; GLOBAL" "SYS: COLD; SYSTEM" "SYS: COLD; LISP")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
         => ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))
       => ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys:cold;") (<NETWORK> "sys:cold;cold-load-cwarns.lisp") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS:COLD;FIRST" "SYS: SYS; STORAGE" "SYS: SYS; QRAND" "SYS: IO; QIO" "SYS: IO; READ" "SYS: IO; INPUT-READERS" "SYS: IO; PRINT" "SYS: WINDOW; COLD" "SYS: SYS; SGFCTN" "SYS: SYS; EVAL" "SYS: SYS; SPECIAL-FORMS" "SYS: SYS; TYPES" "SYS: SYS; LTOP" "SYS: SYS; REP" "sys: sys; qccold" "SYS: SYS; QFASL" "SYS:COLD;STREAM" "SYS:COLD;MINI" "SYS: SYS; QFCTNS" "SYS: SYS2; STRING" "SYS: SYS2; CHARACTER" "SYS: SYS; GENRIC" "SYS: SYS; CLPACK" "SYS: COLD; GLOBAL" "SYS: COLD; SYSTEM" "SYS: COLD; LISP")) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")))))
     => (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys:cold;") (<NETWORK> "sys:cold;cold-load-cwarns.lisp") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS:COLD;FIRST" "SYS: SYS; STORAGE" "SYS: SYS; QRAND" "SYS: IO; QIO" "SYS: IO; READ" "SYS: IO; INPUT-READERS" "SYS: IO; PRINT" "SYS: WINDOW; COLD" "SYS: SYS; SGFCTN" "SYS: SYS; EVAL" "SYS: SYS; SPECIAL-FORMS" "SYS: SYS; TYPES" "SYS: SYS; LTOP" "SYS: SYS; REP" "sys: sys; qccold" "SYS: SYS; QFASL" "SYS:COLD;STREAM" "SYS:COLD;MINI" "SYS: SYS; QFCTNS" "SYS: SYS2; STRING" "SYS: SYS2; CHARACTER" "SYS: SYS; GENRIC" "SYS: SYS; CLPACK" "SYS: COLD; GLOBAL" "SYS: COLD; SYSTEM" "SYS: COLD; LISP")) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:COLD-LOAD>) (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys:cold;") (<NETWORK> "sys:cold;cold-load-cwarns.lisp") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS:COLD;FIRST" "SYS: SYS; STORAGE" "SYS: SYS; QRAND" "SYS: IO; QIO" "SYS: IO; READ" "SYS: IO; INPUT-READERS" "SYS: IO; PRINT" "SYS: WINDOW; COLD" "SYS: SYS; SGFCTN" "SYS: SYS; EVAL" "SYS: SYS; SPECIAL-FORMS" "SYS: SYS; TYPES" "SYS: SYS; LTOP" "SYS: SYS; REP" "sys: sys; qccold" "SYS: SYS; QFASL" "SYS:COLD;STREAM" "SYS:COLD;MINI" "SYS: SYS; QFCTNS" "SYS: SYS2; STRING" "SYS: SYS2; CHARACTER" "SYS: SYS; GENRIC" "SYS: SYS; CLPACK" "SYS: COLD; GLOBAL" "SYS: COLD; SYSTEM" "SYS: COLD; LISP")) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:COLD-LOAD>) (<GLOBAL:QUOTE> ((("SYS: SYS; TYPES" "SYS: IO; DLEDIT" ("SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK") ("SYS: SYS2; CHARACTER" "SYS: IO; NEW-DISK")) "sys:cold;") (<NETWORK> "sys:cold;cold-load-cwarns.lisp") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) ("SYS:COLD;FIRST" "SYS: SYS; STORAGE" "SYS: SYS; QRAND" "SYS: IO; QIO" "SYS: IO; READ" "SYS: IO; INPUT-READERS" "SYS: IO; PRINT" "SYS: WINDOW; COLD" "SYS: SYS; SGFCTN" "SYS: SYS; EVAL" "SYS: SYS; SPECIAL-FORMS" "SYS: SYS; TYPES" "SYS: SYS; LTOP" "SYS: SYS; REP" "sys: sys; qccold" "SYS: SYS; QFASL" "SYS:COLD;STREAM" "SYS:COLD;MINI" "SYS: SYS; QFCTNS" "SYS: SYS2; STRING" "SYS: SYS2; CHARACTER" "SYS: SYS; GENRIC" "SYS: SYS; CLPACK" "SYS: COLD; GLOBAL" "SYS: COLD; SYSTEM" "SYS: COLD; LISP")) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "INNER-SYSTEM")
        <:INNER-SYSTEM>)
     => (<GLOBAL:QUOTE> <:INNER-SYSTEM>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [134] {<NETWORK>})
          (FASL-OP-STRING "sys:patch;inner-system-cwarns.lisp")
         => (<NETWORK> "sys:patch;inner-system-cwarns.lisp"))
        (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [138] {<METER>})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
          (FASL-OP-LIST [59] Area=WORKING-STORAGE-AREA
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SYS; INNER-SYSTEM-FILE-ALIST")
             => ("SYS: SYS; INNER-SYSTEM-FILE-ALIST"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SYS2; DEFSEL")
             => ("SYS: SYS2; DEFSEL"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SYS2; RESOUR")
             => ("SYS: SYS2; RESOUR"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SYS; QMISC")
             => ("SYS: SYS; QMISC"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SYS; DESCRIBE")
             => ("SYS: SYS; DESCRIBE"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SYS; SORT")
             => ("SYS: SYS; SORT"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: IO; FORMAT")
             => ("SYS: IO; FORMAT"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: IO1; FQUERY")
             => ("SYS: IO1; FQUERY"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SYS2; HASH")
             => ("SYS: SYS2; HASH"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SYS2; FLAVOR")
             => ("SYS: SYS2; FLAVOR"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SYS2; HASHFL")
             => ("SYS: SYS2; HASHFL"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SYS2; PRODEF")
             => ("SYS: SYS2; PRODEF"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SYS2; PROCES")
             => ("SYS: SYS2; PROCES"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SYS2; NUMER")
             => ("SYS: SYS2; NUMER"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: DEBUGGER; EH")
             => ("SYS: DEBUGGER; EH"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: DEBUGGER; EHF")
             => ("SYS: DEBUGGER; EHF"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: DEBUGGER; TRAP")
             => ("SYS: DEBUGGER; TRAP"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: DEBUGGER; CONDITION-FLAVORS")
             => ("SYS: DEBUGGER; CONDITION-FLAVORS"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: DEBUGGER; EHC")
             => ("SYS: DEBUGGER; EHC"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: DEBUGGER; EHBPT")
             => ("SYS: DEBUGGER; EHBPT"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SYS2; DISASS")
             => ("SYS: SYS2; DISASS"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: IO; NEW-DISK")
             => ("SYS: IO; NEW-DISK"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: IO; DISK")
             => ("SYS: IO; DISK"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: IO; UDISK")
             => ("SYS: IO; UDISK"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: IO; DLEDIT")
             => ("SYS: IO; DLEDIT"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SYS2; LOGIN")
             => ("SYS: SYS2; LOGIN"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: IO; RDDEFS")
             => ("SYS: IO; RDDEFS"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: NETWORK; PACKAGES")
             => ("SYS: NETWORK; PACKAGES"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: NETWORK; HOST")
             => ("SYS: NETWORK; HOST"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: IO; FILE; ACCESS")
             => ("SYS: IO; FILE; ACCESS"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: IO; STREAM")
             => ("SYS: IO; STREAM"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: LAMBDA-DIAG; LAM-PACKAGE")
             => ("SYS: LAMBDA-DIAG; LAM-PACKAGE"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: IO; FILE; PATHNM")
             => ("SYS: IO; FILE; PATHNM"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: IO; FILE; PATHST")
             => ("SYS: IO; FILE; PATHST"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: FILE; LMPARS")
             => ("SYS: FILE; LMPARS"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: IO; FILE; OPEN")
             => ("SYS: IO; FILE; OPEN"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: IO1; TIME")
             => ("SYS: IO1; TIME"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: IO1; TIMPAR")
             => ("SYS: IO1; TIMPAR"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: NETWORK; TRANSPARENT")
             => ("SYS: NETWORK; TRANSPARENT"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SYS; CONFIG-DEFS")
             => ("SYS: SYS; CONFIG-DEFS"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SYS; IOMSG")
             => ("SYS: SYS; IOMSG"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SYS; SHARED-DEVICE")
             => ("SYS: SYS; SHARED-DEVICE"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SYS; CONFIG")
             => ("SYS: SYS; CONFIG"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: NETWORK; KERNEL; DEFS")
             => ("SYS: NETWORK; KERNEL; DEFS"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: NETWORK; KERNEL; LIBRARY")
             => ("SYS: NETWORK; KERNEL; LIBRARY"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: NETWORK; KERNEL; NETWORK-INTERFACE")
             => ("SYS: NETWORK; KERNEL; NETWORK-INTERFACE"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: NETWORK; KERNEL; PACKETS")
             => ("SYS: NETWORK; KERNEL; PACKETS"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: NETWORK; DRIVERS; LOOPBACK")
             => ("SYS: NETWORK; DRIVERS; LOOPBACK"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: NETWORK; DRIVERS; SHARE")
             => ("SYS: NETWORK; DRIVERS; SHARE"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: NETWORK; DRIVERS; DRIVER-PROCESS")
             => ("SYS: NETWORK; DRIVERS; DRIVER-PROCESS"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: NETWORK; KERNEL; NETWORK-PROTOCOL")
             => ("SYS: NETWORK; KERNEL; NETWORK-PROTOCOL"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: NETWORK; KERNEL; ARP")
             => ("SYS: NETWORK; KERNEL; ARP"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: NETWORK; CHAOS; CHSNCP")
             => ("SYS: NETWORK; CHAOS; CHSNCP"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: NETWORK; CHAOS; CHUSE")
             => ("SYS: NETWORK; CHAOS; CHUSE"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: NETWORK; CHAOS; QFILE")
             => ("SYS: NETWORK; CHAOS; QFILE"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: NETWORK; KERNEL; CONFIGURE")
             => ("SYS: NETWORK; KERNEL; CONFIGURE"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SITE; SITE")
             => ("SYS: SITE; SITE"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SITE; HSTTBL")
             => ("SYS: SITE; HSTTBL"))
            (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
              (FASL-OP-STRING "SYS: SITE; LMLOCS")
             => ("SYS: SITE; LMLOCS"))
           => (("SYS: SYS; INNER-SYSTEM-FILE-ALIST") ("SYS: SYS2; DEFSEL") ("SYS: SYS2; RESOUR") ("SYS: SYS; QMISC") ("SYS: SYS; DESCRIBE") ("SYS: SYS; SORT") ("SYS: IO; FORMAT") ("SYS: IO1; FQUERY") ("SYS: SYS2; HASH") ("SYS: SYS2; FLAVOR") ("SYS: SYS2; HASHFL") ("SYS: SYS2; PRODEF") ("SYS: SYS2; PROCES") ("SYS: SYS2; NUMER") ("SYS: DEBUGGER; EH") ("SYS: DEBUGGER; EHF") ("SYS: DEBUGGER; TRAP") ("SYS: DEBUGGER; CONDITION-FLAVORS") ("SYS: DEBUGGER; EHC") ("SYS: DEBUGGER; EHBPT") ("SYS: SYS2; DISASS") ("SYS: IO; NEW-DISK") ("SYS: IO; DISK") ("SYS: IO; UDISK") ("SYS: IO; DLEDIT") ("SYS: SYS2; LOGIN") ("SYS: IO; RDDEFS") ("SYS: NETWORK; PACKAGES") ("SYS: NETWORK; HOST") ("SYS: IO; FILE; ACCESS") ("SYS: IO; STREAM") ("SYS: LAMBDA-DIAG; LAM-PACKAGE") ("SYS: IO; FILE; PATHNM") ("SYS: IO; FILE; PATHST") ("SYS: FILE; LMPARS") ("SYS: IO; FILE; OPEN") ("SYS: IO1; TIME") ("SYS: IO1; TIMPAR") ("SYS: NETWORK; TRANSPARENT") ("SYS: SYS; CONFIG-DEFS") ("SYS: SYS; IOMSG") ("SYS: SYS; SHARED-DEVICE") ("SYS: SYS; CONFIG") ("SYS: NETWORK; KERNEL; DEFS") ("SYS: NETWORK; KERNEL; LIBRARY") ("SYS: NETWORK; KERNEL; NETWORK-INTERFACE") ("SYS: NETWORK; KERNEL; PACKETS") ("SYS: NETWORK; DRIVERS; LOOPBACK") ("SYS: NETWORK; DRIVERS; SHARE") ("SYS: NETWORK; DRIVERS; DRIVER-PROCESS") ("SYS: NETWORK; KERNEL; NETWORK-PROTOCOL") ("SYS: NETWORK; KERNEL; ARP") ("SYS: NETWORK; CHAOS; CHSNCP") ("SYS: NETWORK; CHAOS; CHUSE") ("SYS: NETWORK; CHAOS; QFILE") ("SYS: NETWORK; KERNEL; CONFIGURE") ("SYS: SITE; SITE") ("SYS: SITE; HSTTBL") ("SYS: SITE; LMLOCS")))
         => (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) (("SYS: SYS; INNER-SYSTEM-FILE-ALIST") ("SYS: SYS2; DEFSEL") ("SYS: SYS2; RESOUR") ("SYS: SYS; QMISC") ("SYS: SYS; DESCRIBE") ("SYS: SYS; SORT") ("SYS: IO; FORMAT") ("SYS: IO1; FQUERY") ("SYS: SYS2; HASH") ("SYS: SYS2; FLAVOR") ("SYS: SYS2; HASHFL") ("SYS: SYS2; PRODEF") ("SYS: SYS2; PROCES") ("SYS: SYS2; NUMER") ("SYS: DEBUGGER; EH") ("SYS: DEBUGGER; EHF") ("SYS: DEBUGGER; TRAP") ("SYS: DEBUGGER; CONDITION-FLAVORS") ("SYS: DEBUGGER; EHC") ("SYS: DEBUGGER; EHBPT") ("SYS: SYS2; DISASS") ("SYS: IO; NEW-DISK") ("SYS: IO; DISK") ("SYS: IO; UDISK") ("SYS: IO; DLEDIT") ("SYS: SYS2; LOGIN") ("SYS: IO; RDDEFS") ("SYS: NETWORK; PACKAGES") ("SYS: NETWORK; HOST") ("SYS: IO; FILE; ACCESS") ("SYS: IO; STREAM") ("SYS: LAMBDA-DIAG; LAM-PACKAGE") ("SYS: IO; FILE; PATHNM") ("SYS: IO; FILE; PATHST") ("SYS: FILE; LMPARS") ("SYS: IO; FILE; OPEN") ("SYS: IO1; TIME") ("SYS: IO1; TIMPAR") ("SYS: NETWORK; TRANSPARENT") ("SYS: SYS; CONFIG-DEFS") ("SYS: SYS; IOMSG") ("SYS: SYS; SHARED-DEVICE") ("SYS: SYS; CONFIG") ("SYS: NETWORK; KERNEL; DEFS") ("SYS: NETWORK; KERNEL; LIBRARY") ("SYS: NETWORK; KERNEL; NETWORK-INTERFACE") ("SYS: NETWORK; KERNEL; PACKETS") ("SYS: NETWORK; DRIVERS; LOOPBACK") ("SYS: NETWORK; DRIVERS; SHARE") ("SYS: NETWORK; DRIVERS; DRIVER-PROCESS") ("SYS: NETWORK; KERNEL; NETWORK-PROTOCOL") ("SYS: NETWORK; KERNEL; ARP") ("SYS: NETWORK; CHAOS; CHSNCP") ("SYS: NETWORK; CHAOS; CHUSE") ("SYS: NETWORK; CHAOS; QFILE") ("SYS: NETWORK; KERNEL; CONFIGURE") ("SYS: SITE; SITE") ("SYS: SITE; HSTTBL") ("SYS: SITE; LMLOCS"))))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [176] {"SYS: SYS2; CLASS"})
          (FASL-OP-INDEX [384] {(("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))})
         => ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))
       => ((<NETWORK> "sys:patch;inner-system-cwarns.lisp") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) (("SYS: SYS; INNER-SYSTEM-FILE-ALIST") ("SYS: SYS2; DEFSEL") ("SYS: SYS2; RESOUR") ("SYS: SYS; QMISC") ("SYS: SYS; DESCRIBE") ("SYS: SYS; SORT") ("SYS: IO; FORMAT") ("SYS: IO1; FQUERY") ("SYS: SYS2; HASH") ("SYS: SYS2; FLAVOR") ("SYS: SYS2; HASHFL") ("SYS: SYS2; PRODEF") ("SYS: SYS2; PROCES") ("SYS: SYS2; NUMER") ("SYS: DEBUGGER; EH") ("SYS: DEBUGGER; EHF") ("SYS: DEBUGGER; TRAP") ("SYS: DEBUGGER; CONDITION-FLAVORS") ("SYS: DEBUGGER; EHC") ("SYS: DEBUGGER; EHBPT") ("SYS: SYS2; DISASS") ("SYS: IO; NEW-DISK") ("SYS: IO; DISK") ("SYS: IO; UDISK") ("SYS: IO; DLEDIT") ("SYS: SYS2; LOGIN") ("SYS: IO; RDDEFS") ("SYS: NETWORK; PACKAGES") ("SYS: NETWORK; HOST") ("SYS: IO; FILE; ACCESS") ("SYS: IO; STREAM") ("SYS: LAMBDA-DIAG; LAM-PACKAGE") ("SYS: IO; FILE; PATHNM") ("SYS: IO; FILE; PATHST") ("SYS: FILE; LMPARS") ("SYS: IO; FILE; OPEN") ("SYS: IO1; TIME") ("SYS: IO1; TIMPAR") ("SYS: NETWORK; TRANSPARENT") ("SYS: SYS; CONFIG-DEFS") ("SYS: SYS; IOMSG") ("SYS: SYS; SHARED-DEVICE") ("SYS: SYS; CONFIG") ("SYS: NETWORK; KERNEL; DEFS") ("SYS: NETWORK; KERNEL; LIBRARY") ("SYS: NETWORK; KERNEL; NETWORK-INTERFACE") ("SYS: NETWORK; KERNEL; PACKETS") ("SYS: NETWORK; DRIVERS; LOOPBACK") ("SYS: NETWORK; DRIVERS; SHARE") ("SYS: NETWORK; DRIVERS; DRIVER-PROCESS") ("SYS: NETWORK; KERNEL; NETWORK-PROTOCOL") ("SYS: NETWORK; KERNEL; ARP") ("SYS: NETWORK; CHAOS; CHSNCP") ("SYS: NETWORK; CHAOS; CHUSE") ("SYS: NETWORK; CHAOS; QFILE") ("SYS: NETWORK; KERNEL; CONFIGURE") ("SYS: SITE; SITE") ("SYS: SITE; HSTTBL") ("SYS: SITE; LMLOCS"))) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")))))
     => (<GLOBAL:QUOTE> ((<NETWORK> "sys:patch;inner-system-cwarns.lisp") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) (("SYS: SYS; INNER-SYSTEM-FILE-ALIST") ("SYS: SYS2; DEFSEL") ("SYS: SYS2; RESOUR") ("SYS: SYS; QMISC") ("SYS: SYS; DESCRIBE") ("SYS: SYS; SORT") ("SYS: IO; FORMAT") ("SYS: IO1; FQUERY") ("SYS: SYS2; HASH") ("SYS: SYS2; FLAVOR") ("SYS: SYS2; HASHFL") ("SYS: SYS2; PRODEF") ("SYS: SYS2; PROCES") ("SYS: SYS2; NUMER") ("SYS: DEBUGGER; EH") ("SYS: DEBUGGER; EHF") ("SYS: DEBUGGER; TRAP") ("SYS: DEBUGGER; CONDITION-FLAVORS") ("SYS: DEBUGGER; EHC") ("SYS: DEBUGGER; EHBPT") ("SYS: SYS2; DISASS") ("SYS: IO; NEW-DISK") ("SYS: IO; DISK") ("SYS: IO; UDISK") ("SYS: IO; DLEDIT") ("SYS: SYS2; LOGIN") ("SYS: IO; RDDEFS") ("SYS: NETWORK; PACKAGES") ("SYS: NETWORK; HOST") ("SYS: IO; FILE; ACCESS") ("SYS: IO; STREAM") ("SYS: LAMBDA-DIAG; LAM-PACKAGE") ("SYS: IO; FILE; PATHNM") ("SYS: IO; FILE; PATHST") ("SYS: FILE; LMPARS") ("SYS: IO; FILE; OPEN") ("SYS: IO1; TIME") ("SYS: IO1; TIMPAR") ("SYS: NETWORK; TRANSPARENT") ("SYS: SYS; CONFIG-DEFS") ("SYS: SYS; IOMSG") ("SYS: SYS; SHARED-DEVICE") ("SYS: SYS; CONFIG") ("SYS: NETWORK; KERNEL; DEFS") ("SYS: NETWORK; KERNEL; LIBRARY") ("SYS: NETWORK; KERNEL; NETWORK-INTERFACE") ("SYS: NETWORK; KERNEL; PACKETS") ("SYS: NETWORK; DRIVERS; LOOPBACK") ("SYS: NETWORK; DRIVERS; SHARE") ("SYS: NETWORK; DRIVERS; DRIVER-PROCESS") ("SYS: NETWORK; KERNEL; NETWORK-PROTOCOL") ("SYS: NETWORK; KERNEL; ARP") ("SYS: NETWORK; CHAOS; CHSNCP") ("SYS: NETWORK; CHAOS; CHUSE") ("SYS: NETWORK; CHAOS; QFILE") ("SYS: NETWORK; KERNEL; CONFIGURE") ("SYS: SITE; SITE") ("SYS: SITE; HSTTBL") ("SYS: SITE; LMLOCS"))) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:INNER-SYSTEM>) (<GLOBAL:QUOTE> ((<NETWORK> "sys:patch;inner-system-cwarns.lisp") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) (("SYS: SYS; INNER-SYSTEM-FILE-ALIST") ("SYS: SYS2; DEFSEL") ("SYS: SYS2; RESOUR") ("SYS: SYS; QMISC") ("SYS: SYS; DESCRIBE") ("SYS: SYS; SORT") ("SYS: IO; FORMAT") ("SYS: IO1; FQUERY") ("SYS: SYS2; HASH") ("SYS: SYS2; FLAVOR") ("SYS: SYS2; HASHFL") ("SYS: SYS2; PRODEF") ("SYS: SYS2; PROCES") ("SYS: SYS2; NUMER") ("SYS: DEBUGGER; EH") ("SYS: DEBUGGER; EHF") ("SYS: DEBUGGER; TRAP") ("SYS: DEBUGGER; CONDITION-FLAVORS") ("SYS: DEBUGGER; EHC") ("SYS: DEBUGGER; EHBPT") ("SYS: SYS2; DISASS") ("SYS: IO; NEW-DISK") ("SYS: IO; DISK") ("SYS: IO; UDISK") ("SYS: IO; DLEDIT") ("SYS: SYS2; LOGIN") ("SYS: IO; RDDEFS") ("SYS: NETWORK; PACKAGES") ("SYS: NETWORK; HOST") ("SYS: IO; FILE; ACCESS") ("SYS: IO; STREAM") ("SYS: LAMBDA-DIAG; LAM-PACKAGE") ("SYS: IO; FILE; PATHNM") ("SYS: IO; FILE; PATHST") ("SYS: FILE; LMPARS") ("SYS: IO; FILE; OPEN") ("SYS: IO1; TIME") ("SYS: IO1; TIMPAR") ("SYS: NETWORK; TRANSPARENT") ("SYS: SYS; CONFIG-DEFS") ("SYS: SYS; IOMSG") ("SYS: SYS; SHARED-DEVICE") ("SYS: SYS; CONFIG") ("SYS: NETWORK; KERNEL; DEFS") ("SYS: NETWORK; KERNEL; LIBRARY") ("SYS: NETWORK; KERNEL; NETWORK-INTERFACE") ("SYS: NETWORK; KERNEL; PACKETS") ("SYS: NETWORK; DRIVERS; LOOPBACK") ("SYS: NETWORK; DRIVERS; SHARE") ("SYS: NETWORK; DRIVERS; DRIVER-PROCESS") ("SYS: NETWORK; KERNEL; NETWORK-PROTOCOL") ("SYS: NETWORK; KERNEL; ARP") ("SYS: NETWORK; CHAOS; CHSNCP") ("SYS: NETWORK; CHAOS; CHUSE") ("SYS: NETWORK; CHAOS; QFILE") ("SYS: NETWORK; KERNEL; CONFIGURE") ("SYS: SITE; SITE") ("SYS: SITE; HSTTBL") ("SYS: SITE; LMLOCS"))) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")))))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:INNER-SYSTEM>) (<GLOBAL:QUOTE> ((<NETWORK> "sys:patch;inner-system-cwarns.lisp") (<METER> (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System")) (("SYS: SYS; INNER-SYSTEM-FILE-ALIST") ("SYS: SYS2; DEFSEL") ("SYS: SYS2; RESOUR") ("SYS: SYS; QMISC") ("SYS: SYS; DESCRIBE") ("SYS: SYS; SORT") ("SYS: IO; FORMAT") ("SYS: IO1; FQUERY") ("SYS: SYS2; HASH") ("SYS: SYS2; FLAVOR") ("SYS: SYS2; HASHFL") ("SYS: SYS2; PRODEF") ("SYS: SYS2; PROCES") ("SYS: SYS2; NUMER") ("SYS: DEBUGGER; EH") ("SYS: DEBUGGER; EHF") ("SYS: DEBUGGER; TRAP") ("SYS: DEBUGGER; CONDITION-FLAVORS") ("SYS: DEBUGGER; EHC") ("SYS: DEBUGGER; EHBPT") ("SYS: SYS2; DISASS") ("SYS: IO; NEW-DISK") ("SYS: IO; DISK") ("SYS: IO; UDISK") ("SYS: IO; DLEDIT") ("SYS: SYS2; LOGIN") ("SYS: IO; RDDEFS") ("SYS: NETWORK; PACKAGES") ("SYS: NETWORK; HOST") ("SYS: IO; FILE; ACCESS") ("SYS: IO; STREAM") ("SYS: LAMBDA-DIAG; LAM-PACKAGE") ("SYS: IO; FILE; PATHNM") ("SYS: IO; FILE; PATHST") ("SYS: FILE; LMPARS") ("SYS: IO; FILE; OPEN") ("SYS: IO1; TIME") ("SYS: IO1; TIMPAR") ("SYS: NETWORK; TRANSPARENT") ("SYS: SYS; CONFIG-DEFS") ("SYS: SYS; IOMSG") ("SYS: SYS; SHARED-DEVICE") ("SYS: SYS; CONFIG") ("SYS: NETWORK; KERNEL; DEFS") ("SYS: NETWORK; KERNEL; LIBRARY") ("SYS: NETWORK; KERNEL; NETWORK-INTERFACE") ("SYS: NETWORK; KERNEL; PACKETS") ("SYS: NETWORK; DRIVERS; LOOPBACK") ("SYS: NETWORK; DRIVERS; SHARE") ("SYS: NETWORK; DRIVERS; DRIVER-PROCESS") ("SYS: NETWORK; KERNEL; NETWORK-PROTOCOL") ("SYS: NETWORK; KERNEL; ARP") ("SYS: NETWORK; CHAOS; CHSNCP") ("SYS: NETWORK; CHAOS; CHUSE") ("SYS: NETWORK; CHAOS; QFILE") ("SYS: NETWORK; KERNEL; CONFIGURE") ("SYS: SITE; SITE") ("SYS: SITE; HSTTBL") ("SYS: SITE; LMLOCS"))) ("SYS: SYS2; CLASS" (("SYS: SYS2; CHARACTER" NIL) (<:COMPILE-DATA> ("keith" "Djinn" 2803512600 128 0 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "DJ") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("L" "SYS")) (<GLOBAL:QUOTE> "SYSDCL") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 352)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:SYSTEM-INTERNALS>) (<:NAME> "System"))))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [537] {(<METER> <FINGER> "FINGER")})
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-INDEX [32] {""})
      (FASL-OP-STRING "TAPE")
      <:TAPE>)
    (FASL-OP-STRING "SYS:TAPE;SYSDEF")
   => ((<METER> <FINGER> "FINGER") <:TAPE> "SYS:TAPE;SYSDEF"))
  (EVAL '((<METER> <FINGER> "FINGER") <:TAPE> "SYS:TAPE;SYSDEF")))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [537] {(<METER> <FINGER> "FINGER")})
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-INDEX [32] {""})
      (FASL-OP-STRING "LAMBDA-DIAG")
      <:LAMBDA-DIAG>)
    (FASL-OP-STRING "SYS:LAMBDA-DIAG;DIAG-SYSTEM")
   => ((<METER> <FINGER> "FINGER") <:LAMBDA-DIAG> "SYS:LAMBDA-DIAG;DIAG-SYSTEM"))
  (EVAL '((<METER> <FINGER> "FINGER") <:LAMBDA-DIAG> "SYS:LAMBDA-DIAG;DIAG-SYSTEM")))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "OUTER-SYSTEM")
        <:OUTER-SYSTEM>)
     => (<GLOBAL:QUOTE> <:OUTER-SYSTEM>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [122] {<GARBAGE-COLLECTOR>})
          (FASL-OP-STRING "Outer System")
         => (<GARBAGE-COLLECTOR> "Outer System"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [126] {<FILE-SYSTEM>})
          (FASL-OP-STRING "Outer")
         => (<FILE-SYSTEM> "Outer"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [134] {<NETWORK>})
          (FASL-OP-STRING "SYS:PATCH;OUTER-SYSTEM-CWARNS.LISP")
         => (<NETWORK> "SYS:PATCH;OUTER-SYSTEM-CWARNS.LISP"))
        (FASL-OP-LIST [9] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [149] {<:DO-COMPONENTS>})
          (FASL-OP-SYMBOL <ZWEI>)
          (FASL-OP-SYMBOL <ZMAIL>)
          (FASL-OP-SYMBOL <CONVERSE>)
          (FASL-OP-SYMBOL <LOCAL-FILE>)
          (FASL-OP-SYMBOL <FILE-SERVER>)
          (FASL-OP-SYMBOL <UNIX-INTERFACE>)
          (FASL-OP-SYMBOL <TAPE>)
          (FASL-OP-SYMBOL <LAMBDA-DIAG>)
         => (<:DO-COMPONENTS> <ZWEI> <ZMAIL> <CONVERSE> <LOCAL-FILE> <FILE-SERVER> <UNIX-INTERFACE> <TAPE> <LAMBDA-DIAG>))
       => ((<GARBAGE-COLLECTOR> "Outer System") (<FILE-SYSTEM> "Outer") (<NETWORK> "SYS:PATCH;OUTER-SYSTEM-CWARNS.LISP") (<:DO-COMPONENTS> <ZWEI> <ZMAIL> <CONVERSE> <LOCAL-FILE> <FILE-SERVER> <UNIX-INTERFACE> <TAPE> <LAMBDA-DIAG>)))
     => (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "Outer System") (<FILE-SYSTEM> "Outer") (<NETWORK> "SYS:PATCH;OUTER-SYSTEM-CWARNS.LISP") (<:DO-COMPONENTS> <ZWEI> <ZMAIL> <CONVERSE> <LOCAL-FILE> <FILE-SERVER> <UNIX-INTERFACE> <TAPE> <LAMBDA-DIAG>))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:OUTER-SYSTEM>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "Outer System") (<FILE-SYSTEM> "Outer") (<NETWORK> "SYS:PATCH;OUTER-SYSTEM-CWARNS.LISP") (<:DO-COMPONENTS> <ZWEI> <ZMAIL> <CONVERSE> <LOCAL-FILE> <FILE-SERVER> <UNIX-INTERFACE> <TAPE> <LAMBDA-DIAG>)))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:OUTER-SYSTEM>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "Outer System") (<FILE-SYSTEM> "Outer") (<NETWORK> "SYS:PATCH;OUTER-SYSTEM-CWARNS.LISP") (<:DO-COMPONENTS> <ZWEI> <ZMAIL> <CONVERSE> <LOCAL-FILE> <FILE-SERVER> <UNIX-INTERFACE> <TAPE> <LAMBDA-DIAG>))))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [117] {(<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC"))})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "OPTIONAL-SYSTEM")
        <:OPTIONAL-SYSTEM>)
     => (<GLOBAL:QUOTE> <:OPTIONAL-SYSTEM>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [122] {<GARBAGE-COLLECTOR>})
          (FASL-OP-STRING "Optional Software")
         => (<GARBAGE-COLLECTOR> "Optional Software"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [126] {<FILE-SYSTEM>})
          (FASL-OP-STRING "SW Options")
         => (<FILE-SYSTEM> "SW Options"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [134] {<NETWORK>})
          (FASL-OP-STRING "SYS:PATCH;OPTIONAL-SYSTEM-CWARNS.LISP")
         => (<NETWORK> "SYS:PATCH;OPTIONAL-SYSTEM-CWARNS.LISP"))
        (FASL-OP-LIST [9] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [149] {<:DO-COMPONENTS>})
          (FASL-OP-SYMBOL <TIGER>)
          (FASL-OP-SYMBOL <SITE-EDITOR>)
          (FASL-OP-SYMBOL <KERMIT>)
          (FASL-OP-SYMBOL <WINDOW-MAKER>)
          (FASL-OP-SYMBOL <FED>)
          (FASL-OP-SYMBOL <OBJECTLISP>)
          (FASL-OP-SYMBOL <MEDIUM-RESOLUTION-COLOR>)
          (FASL-OP-SYMBOL <GATEWAY>)
         => (<:DO-COMPONENTS> <TIGER> <SITE-EDITOR> <KERMIT> <WINDOW-MAKER> <FED> <OBJECTLISP> <MEDIUM-RESOLUTION-COLOR> <GATEWAY>))
       => ((<GARBAGE-COLLECTOR> "Optional Software") (<FILE-SYSTEM> "SW Options") (<NETWORK> "SYS:PATCH;OPTIONAL-SYSTEM-CWARNS.LISP") (<:DO-COMPONENTS> <TIGER> <SITE-EDITOR> <KERMIT> <WINDOW-MAKER> <FED> <OBJECTLISP> <MEDIUM-RESOLUTION-COLOR> <GATEWAY>)))
     => (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "Optional Software") (<FILE-SYSTEM> "SW Options") (<NETWORK> "SYS:PATCH;OPTIONAL-SYSTEM-CWARNS.LISP") (<:DO-COMPONENTS> <TIGER> <SITE-EDITOR> <KERMIT> <WINDOW-MAKER> <FED> <OBJECTLISP> <MEDIUM-RESOLUTION-COLOR> <GATEWAY>))))
   => ((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:OPTIONAL-SYSTEM>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "Optional Software") (<FILE-SYSTEM> "SW Options") (<NETWORK> "SYS:PATCH;OPTIONAL-SYSTEM-CWARNS.LISP") (<:DO-COMPONENTS> <TIGER> <SITE-EDITOR> <KERMIT> <WINDOW-MAKER> <FED> <OBJECTLISP> <MEDIUM-RESOLUTION-COLOR> <GATEWAY>)))))
  (EVAL '((<:MODULE> <ALLDEFS> ("SYS: SYS2; DEFMAC" "SYS: SYS2; LMMAC" "SYS: SYS2; SETF" "SYS: SYS2; STRUCT" "SYS: SYS; TYPES" "SYS: DEBUGGER; ERRMAC")) (<GLOBAL:QUOTE> <:OPTIONAL-SYSTEM>) (<GLOBAL:QUOTE> ((<GARBAGE-COLLECTOR> "Optional Software") (<FILE-SYSTEM> "SW Options") (<NETWORK> "SYS:PATCH;OPTIONAL-SYSTEM-CWARNS.LISP") (<:DO-COMPONENTS> <TIGER> <SITE-EDITOR> <KERMIT> <WINDOW-MAKER> <FED> <OBJECTLISP> <MEDIUM-RESOLUTION-COLOR> <GATEWAY>))))))

(FASL-OP-END-OF-WHACK)

(FASL-OP-END-OF-FILE)