; -*- Mode:TEXT -*-
; This is the UNFASL for DJ: L.SYS2; MAKSYS.QFASL#219



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

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

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

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-SYMBOL <PROCLAIM>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-SYMBOL <SPECIAL>)
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-STRING "TV")
          (SYSTEM:FASL-OP-STRING "MORE-PROCESSING-GLOBAL-ENABLE")
          <TV:MORE-PROCESSING-GLOBAL-ENABLE>)
       => (<SPECIAL> <TV:MORE-PROCESSING-GLOBAL-ENABLE>))
     => (<GLOBAL:QUOTE> (<SPECIAL> <TV:MORE-PROCESSING-GLOBAL-ENABLE>)))
   => (<PROCLAIM> (<GLOBAL:QUOTE> (<SPECIAL> <TV:MORE-PROCESSING-GLOBAL-ENABLE>))))
  (EVAL '(<PROCLAIM> (<GLOBAL:QUOTE> (<SPECIAL> <TV:MORE-PROCESSING-GLOBAL-ENABLE>)))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-SYMBOL <DEFPROP>)
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [40] {"COMPILER"})
      (SYSTEM:FASL-OP-STRING "LAMBDA-INTERFACE")
      <COMPILER:LAMBDA-INTERFACE>)
    (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "QFASL")
        <:QFASL>)
      (SYSTEM:FASL-OP-SYMBOL <NIL>)
      (SYSTEM:FASL-OP-SYMBOL <COMPILE-FILE>)
     => (<:QFASL> <NIL> <COMPILE-FILE>))
    (SYSTEM:FASL-OP-SYMBOL <MAKE-SYSTEM>)
   => (<DEFPROP> <COMPILER:LAMBDA-INTERFACE> (<:QFASL> <NIL> <COMPILE-FILE>) <MAKE-SYSTEM>))
  (EVAL '(<DEFPROP> <COMPILER:LAMBDA-INTERFACE> (<:QFASL> <NIL> <COMPILE-FILE>) <MAKE-SYSTEM>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [40] {"COMPILER"})
      (SYSTEM:FASL-OP-STRING "K")
      <COMPILER:K>)
    (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "FBIN")
        <:FBIN>)
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "FDEF")
        <:FDEF>)
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [40] {"COMPILER"})
        (SYSTEM:FASL-OP-STRING "COMPILE-FILE-FOR-FALCON")
        <COMPILER:COMPILE-FILE-FOR-FALCON>)
     => (<:FBIN> <:FDEF> <COMPILER:COMPILE-FILE-FOR-FALCON>))
    (SYSTEM:FASL-OP-INDEX [104] {<MAKE-SYSTEM>})
   => (<DEFPROP> <COMPILER:K> (<:FBIN> <:FDEF> <COMPILER:COMPILE-FILE-FOR-FALCON>) <MAKE-SYSTEM>))
  (EVAL '(<DEFPROP> <COMPILER:K> (<:FBIN> <:FDEF> <COMPILER:COMPILE-FILE-FOR-FALCON>) <MAKE-SYSTEM>)))

(SYSTEM:FASL-OP-FRAME
<PUSH*>
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '3
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '3
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 2
 33 MOVE D-LAST '2
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH ARG|0
 37 (MISC) CADDR D-PDL
 38 POP LOCAL|1
 39 PUSH FEF|7  ;'<OR>
 40 PUSH FEF|8  ;'<MEMQ>
 41 PUSH LOCAL|0
 42 PUSH LOCAL|1
 43 PUSH-NUMBER 3
 44 (MISC) %INTERNAL-LIST D-PDL
 45 PUSH FEF|9  ;'<PUSH>
 46 PUSH LOCAL|0
 47 PUSH LOCAL|1
 48 PUSH-NUMBER 3
 49 (MISC) %INTERNAL-LIST D-PDL
 50 PUSH-NUMBER 3
 51 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-SYMBOL <MACRO>)
  (SYSTEM:FASL-OP-INDEX [161] {#<DTP-FEF-POINTER <PUSH*> 63012746>})
 => (<MACRO> . #<DTP-FEF-POINTER <PUSH*> 63012746>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [163] {(<MACRO> . #<DTP-FEF-POINTER <PUSH*> 63012746>)}
  (SYSTEM:FASL-OP-INDEX [120] {<PUSH*>}))

(SYSTEM:FASL-OP-FRAME
<DEFINE-SPECIAL-VARIABLE>
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 < '4
 29 BR-NOT-NIL 34
 30 PUSH ARG|0
 31 (MISC) LENGTH D-PDL
 32 > '5
 33 BR-NIL 38
 34 CALL D-IGNORE FEF|6  ;'NIL
 35 PUSH ARG|0
 36 PUSH-NUMBER 3
 37 MOVE D-LAST '4
 38 CADR D-PDL ARG|0
 39 POP LOCAL|0
 40 PUSH ARG|0
 41 (MISC) CADDR D-PDL
 42 POP LOCAL|1
 43 PUSH ARG|0
 44 (MISC) CADDDR D-PDL
 45 POP LOCAL|2
 46 PUSH ARG|0
 47 (MISC) CDDDDR D-IGNORE
 48 BR-NIL 52
 49 CDR D-PDL ARG|0
 50 (MISC) CADDDR D-PDL
 51 BR 53
 52 PUSH 'T
 53 POP LOCAL|3
 54 PUSH FEF|7  ;'<PROGN>
 55 PUSH FEF|8  ;'(<GLOBAL:QUOTE> <COMPILE>)
 56 PUSH LOCAL|3
 57 BR-NIL-POP 62
 58 PUSH FEF|9  ;'<DEFVAR>
 59 PUSH LOCAL|0
 60 PUSH-NUMBER 2
 61 (MISC) %INTERNAL-LIST D-PDL
 62 PUSH FEF|10  ;'<DEFINE-SPECIAL-VARIABLE-1>
 63 PUSH FEF|11  ;'<GLOBAL:QUOTE>
 64 PUSH LOCAL|0
 65 PUSH-NUMBER 2
 66 (MISC) %INTERNAL-LIST D-PDL
 67 PUSH FEF|11  ;'<GLOBAL:QUOTE>
 68 PUSH LOCAL|1
 69 PUSH-NUMBER 2
 70 (MISC) %INTERNAL-LIST D-PDL
 71 PUSH FEF|11  ;'<GLOBAL:QUOTE>
 72 PUSH LOCAL|2
 73 PUSH-NUMBER 2
 74 (MISC) %INTERNAL-LIST D-PDL
 75 PUSH-NUMBER 4
 76 (MISC) %INTERNAL-LIST D-PDL
 77 PUSH-NUMBER 4
 78 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [199] {#<DTP-FEF-POINTER <DEFINE-SPECIAL-VARIABLE> 63014043>})
 => (<MACRO> . #<DTP-FEF-POINTER <DEFINE-SPECIAL-VARIABLE> 63014043>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [200] {(<MACRO> . #<DTP-FEF-POINTER <DEFINE-SPECIAL-VARIABLE> 63014043>)}
  (SYSTEM:FASL-OP-INDEX [166] {<DEFINE-SPECIAL-VARIABLE>}))

(SYSTEM:FASL-OP-FRAME
<DEFINE-SPECIAL-VARIABLE-1>
 14 PUSH ARG|0
 15 PUSH ARG|2
 16 (MISC) SYMEVAL D-PDL
 17 (MISC) ASSQ D-PDL
 18 POP LOCAL|0
 19 BR-NIL 24
 20 PUSH LOCAL|0
 21 PUSH ARG|1
 22 (MISC) NCONS D-PDL
 23 (MISC) SETCDR D-RETURN
 24 PUSH ARG|0
 25 PUSH ARG|1
 26 PUSH-NUMBER 2
 27 (MISC) %INTERNAL-LIST D-PDL
 28 POP LOCAL|1
 29 PUSH ARG|2
 30 MOVEM LOCAL|2
 31 PUSH LOCAL|1
 32 PUSH LOCAL|2
 33 (MISC) SYMEVAL D-PDL
 34 (MISC) CONS D-PDL
 35 (MISC) SET D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [220] {#<DTP-FEF-POINTER <DEFINE-SPECIAL-VARIABLE-1> 63017723>}
  (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <SYSTEM-PLIST>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-SYMBOL <SYSTEM>)
      (SYSTEM:FASL-OP-SYMBOL <PLIST>)
     => (<SYSTEM> . <PLIST>))
    (SYSTEM:FASL-OP-SYMBOL <DEFSTRUCT-SLOT>)
   => (<DEFPROP> <SYSTEM-PLIST> (<SYSTEM> . <PLIST>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <SYSTEM-PLIST> (<SYSTEM> . <PLIST>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-PLIST>
 14 PUSH ARG|0
 15 AR-1 (6) D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [255] {#<DTP-FEF-POINTER <SYSTEM-PLIST> 63021556>}
  (SYSTEM:FASL-OP-INDEX [221] {<SYSTEM-PLIST>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <SYSTEM-TRANSFORMATIONS>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [222] {<SYSTEM>})
      (SYSTEM:FASL-OP-SYMBOL <TRANSFORMATIONS>)
     => (<SYSTEM> . <TRANSFORMATIONS>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <SYSTEM-TRANSFORMATIONS> (<SYSTEM> . <TRANSFORMATIONS>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <SYSTEM-TRANSFORMATIONS> (<SYSTEM> . <TRANSFORMATIONS>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-TRANSFORMATIONS>
 14 PUSH ARG|0
 15 AR-1 (5) D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [281] {#<DTP-FEF-POINTER <SYSTEM-TRANSFORMATIONS> 63026171>}
  (SYSTEM:FASL-OP-INDEX [256] {<SYSTEM-TRANSFORMATIONS>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <SYSTEM-TOP-LEVEL-TRANSFORMATIONS>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [222] {<SYSTEM>})
      (SYSTEM:FASL-OP-SYMBOL <TOP-LEVEL-TRANSFORMATIONS>)
     => (<SYSTEM> . <TOP-LEVEL-TRANSFORMATIONS>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <SYSTEM-TOP-LEVEL-TRANSFORMATIONS> (<SYSTEM> . <TOP-LEVEL-TRANSFORMATIONS>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <SYSTEM-TOP-LEVEL-TRANSFORMATIONS> (<SYSTEM> . <TOP-LEVEL-TRANSFORMATIONS>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-TOP-LEVEL-TRANSFORMATIONS>
 14 PUSH ARG|0
 15 AR-1 (4) D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [307] {#<DTP-FEF-POINTER <SYSTEM-TOP-LEVEL-TRANSFORMATIONS> 63027665>}
  (SYSTEM:FASL-OP-INDEX [282] {<SYSTEM-TOP-LEVEL-TRANSFORMATIONS>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <SYSTEM-MODULES>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [222] {<SYSTEM>})
      (SYSTEM:FASL-OP-SYMBOL <MODULES>)
     => (<SYSTEM> . <MODULES>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <SYSTEM-MODULES> (<SYSTEM> . <MODULES>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <SYSTEM-MODULES> (<SYSTEM> . <MODULES>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-MODULES>
 14 PUSH ARG|0
 15 AR-1 (3) D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [333] {#<DTP-FEF-POINTER <SYSTEM-MODULES> 63030350>}
  (SYSTEM:FASL-OP-INDEX [308] {<SYSTEM-MODULES>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <SYSTEM-COMPONENT-SYSTEMS>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [222] {<SYSTEM>})
      (SYSTEM:FASL-OP-SYMBOL <COMPONENT-SYSTEMS>)
     => (<SYSTEM> . <COMPONENT-SYSTEMS>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <SYSTEM-COMPONENT-SYSTEMS> (<SYSTEM> . <COMPONENT-SYSTEMS>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <SYSTEM-COMPONENT-SYSTEMS> (<SYSTEM> . <COMPONENT-SYSTEMS>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-COMPONENT-SYSTEMS>
 14 PUSH ARG|0
 15 AR-1 (2) D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [362] {#<DTP-FEF-POINTER <SYSTEM-COMPONENT-SYSTEMS> 63031072>}
  (SYSTEM:FASL-OP-INDEX [334] {<SYSTEM-COMPONENT-SYSTEMS>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <SYSTEM-NAME>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [222] {<SYSTEM>})
      (SYSTEM:FASL-OP-INDEX [183] {<NAME>})
     => (<SYSTEM> . <NAME>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <SYSTEM-NAME> (<SYSTEM> . <NAME>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <SYSTEM-NAME> (<SYSTEM> . <NAME>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-NAME>
 14 PUSH ARG|0
 15 AR-1 (1) D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [389] {#<DTP-FEF-POINTER <SYSTEM-NAME> 63031613>}
  (SYSTEM:FASL-OP-INDEX [363] {<SYSTEM-NAME>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-SYMBOL <PUTPROP>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [222] {<SYSTEM>})
     => (<GLOBAL:QUOTE> <SYSTEM>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [24] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-SYMBOL <ONE>)
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-INDEX [32] {""})
          (SYSTEM:FASL-OP-STRING "NAMED-ARRAY")
          <:NAMED-ARRAY>)
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-LIST [6] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [183] {<NAME>})
            (SYSTEM:FASL-OP-FIXED 0)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [363] {<SYSTEM-NAME>})
            (SYSTEM:FASL-OP-INDEX [372] {"Name of this system, a symbol or string"})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<NAME> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <SYSTEM-NAME> "Name of this system, a symbol or string" <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [335] {<COMPONENT-SYSTEMS>})
            (SYSTEM:FASL-OP-FIXED 1)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [334] {<SYSTEM-COMPONENT-SYSTEMS>})
            (SYSTEM:FASL-OP-INDEX [345] {"List of system names"})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<COMPONENT-SYSTEMS> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <SYSTEM-COMPONENT-SYSTEMS> "List of system names" <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [309] {<MODULES>})
            (SYSTEM:FASL-OP-FIXED 2)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-SYMBOL <%%DEFSTRUCT-EMPTY%%>)
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [308] {<SYSTEM-MODULES>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<MODULES> 2 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-MODULES> <NIL> <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [283] {<TOP-LEVEL-TRANSFORMATIONS>})
            (SYSTEM:FASL-OP-FIXED 3)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [400] {<%%DEFSTRUCT-EMPTY%%>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [282] {<SYSTEM-TOP-LEVEL-TRANSFORMATIONS>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<TOP-LEVEL-TRANSFORMATIONS> 3 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-TOP-LEVEL-TRANSFORMATIONS> <NIL> <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [257] {<TRANSFORMATIONS>})
            (SYSTEM:FASL-OP-FIXED 4)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [400] {<%%DEFSTRUCT-EMPTY%%>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [256] {<SYSTEM-TRANSFORMATIONS>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<TRANSFORMATIONS> 4 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-TRANSFORMATIONS> <NIL> <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [223] {<PLIST>})
            (SYSTEM:FASL-OP-FIXED 5)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [400] {<%%DEFSTRUCT-EMPTY%%>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [221] {<SYSTEM-PLIST>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<PLIST> 5 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-PLIST> <NIL> <NIL> <NIL>))
         => ((<NAME> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <SYSTEM-NAME> "Name of this system, a symbol or string" <NIL> <NIL>) (<COMPONENT-SYSTEMS> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <SYSTEM-COMPONENT-SYSTEMS> "List of system names" <NIL> <NIL>) (<MODULES> 2 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-MODULES> <NIL> <NIL> <NIL>) (<TOP-LEVEL-TRANSFORMATIONS> 3 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-TOP-LEVEL-TRANSFORMATIONS> <NIL> <NIL> <NIL>) (<TRANSFORMATIONS> 4 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-TRANSFORMATIONS> <NIL> <NIL> <NIL>) (<PLIST> 5 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-PLIST> <NIL> <NIL> <NIL>)))
        (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
        (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-SYMBOL <CONSTRUCT-SYSTEM-INTERNAL>)
           => (<CONSTRUCT-SYSTEM-INTERNAL>))
         => ((<CONSTRUCT-SYSTEM-INTERNAL>)))
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-FIXED 6)
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [222] {<SYSTEM>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-FIXED 0)
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-SYMBOL <SYSTEM->)
        (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-SYMBOL <ART-Q>)
       => (<ONE> <:NAMED-ARRAY> <NIL> ((<NAME> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <SYSTEM-NAME> "Name of this system, a symbol or string" <NIL> <NIL>) (<COMPONENT-SYSTEMS> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <SYSTEM-COMPONENT-SYSTEMS> "List of system names" <NIL> <NIL>) (<MODULES> 2 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-MODULES> <NIL> <NIL> <NIL>) (<TOP-LEVEL-TRANSFORMATIONS> 3 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-TOP-LEVEL-TRANSFORMATIONS> <NIL> <NIL> <NIL>) (<TRANSFORMATIONS> 4 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-TRANSFORMATIONS> <NIL> <NIL> <NIL>) (<PLIST> 5 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-PLIST> <NIL> <NIL> <NIL>)) <GLOBAL:T> ((<CONSTRUCT-SYSTEM-INTERNAL>)) <NIL> <NIL> 6 <NIL> <SYSTEM> <NIL> 0 <NIL> <NIL> <SYSTEM-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <ART-Q>))
     => (<GLOBAL:QUOTE> (<ONE> <:NAMED-ARRAY> <NIL> ((<NAME> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <SYSTEM-NAME> "Name of this system, a symbol or string" <NIL> <NIL>) (<COMPONENT-SYSTEMS> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <SYSTEM-COMPONENT-SYSTEMS> "List of system names" <NIL> <NIL>) (<MODULES> 2 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-MODULES> <NIL> <NIL> <NIL>) (<TOP-LEVEL-TRANSFORMATIONS> 3 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-TOP-LEVEL-TRANSFORMATIONS> <NIL> <NIL> <NIL>) (<TRANSFORMATIONS> 4 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-TRANSFORMATIONS> <NIL> <NIL> <NIL>) (<PLIST> 5 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-PLIST> <NIL> <NIL> <NIL>)) <GLOBAL:T> ((<CONSTRUCT-SYSTEM-INTERNAL>)) <NIL> <NIL> 6 <NIL> <SYSTEM> <NIL> 0 <NIL> <NIL> <SYSTEM-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <ART-Q>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <DEFSTRUCT-DESCRIPTION>)
     => (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>))
   => (<PUTPROP> (<GLOBAL:QUOTE> <SYSTEM>) (<GLOBAL:QUOTE> (<ONE> <:NAMED-ARRAY> <NIL> ((<NAME> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <SYSTEM-NAME> "Name of this system, a symbol or string" <NIL> <NIL>) (<COMPONENT-SYSTEMS> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <SYSTEM-COMPONENT-SYSTEMS> "List of system names" <NIL> <NIL>) (<MODULES> 2 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-MODULES> <NIL> <NIL> <NIL>) (<TOP-LEVEL-TRANSFORMATIONS> 3 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-TOP-LEVEL-TRANSFORMATIONS> <NIL> <NIL> <NIL>) (<TRANSFORMATIONS> 4 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-TRANSFORMATIONS> <NIL> <NIL> <NIL>) (<PLIST> 5 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-PLIST> <NIL> <NIL> <NIL>)) <GLOBAL:T> ((<CONSTRUCT-SYSTEM-INTERNAL>)) <NIL> <NIL> 6 <NIL> <SYSTEM> <NIL> 0 <NIL> <NIL> <SYSTEM-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <ART-Q>)) (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>)))
  (EVAL '(<PUTPROP> (<GLOBAL:QUOTE> <SYSTEM>) (<GLOBAL:QUOTE> (<ONE> <:NAMED-ARRAY> <NIL> ((<NAME> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <SYSTEM-NAME> "Name of this system, a symbol or string" <NIL> <NIL>) (<COMPONENT-SYSTEMS> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <SYSTEM-COMPONENT-SYSTEMS> "List of system names" <NIL> <NIL>) (<MODULES> 2 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-MODULES> <NIL> <NIL> <NIL>) (<TOP-LEVEL-TRANSFORMATIONS> 3 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-TOP-LEVEL-TRANSFORMATIONS> <NIL> <NIL> <NIL>) (<TRANSFORMATIONS> 4 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-TRANSFORMATIONS> <NIL> <NIL> <NIL>) (<PLIST> 5 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <SYSTEM-PLIST> <NIL> <NIL> <NIL>)) <GLOBAL:T> ((<CONSTRUCT-SYSTEM-INTERNAL>)) <NIL> <NIL> 6 <NIL> <SYSTEM> <NIL> 0 <NIL> <NIL> <SYSTEM-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <ART-Q>)) (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [390] {<PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [409] {<CONSTRUCT-SYSTEM-INTERNAL>})
     => (<GLOBAL:QUOTE> <CONSTRUCT-SYSTEM-INTERNAL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [222] {<SYSTEM>})
     => (<GLOBAL:QUOTE> <SYSTEM>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <DEFSTRUCT-NAME>)
     => (<GLOBAL:QUOTE> <DEFSTRUCT-NAME>))
   => (<PUTPROP> (<GLOBAL:QUOTE> <CONSTRUCT-SYSTEM-INTERNAL>) (<GLOBAL:QUOTE> <SYSTEM>) (<GLOBAL:QUOTE> <DEFSTRUCT-NAME>)))
  (EVAL '(<PUTPROP> (<GLOBAL:QUOTE> <CONSTRUCT-SYSTEM-INTERNAL>) (<GLOBAL:QUOTE> <SYSTEM>) (<GLOBAL:QUOTE> <DEFSTRUCT-NAME>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-SYMBOL <DEFF-MACRO>)
    (SYSTEM:FASL-OP-INDEX [409] {<CONSTRUCT-SYSTEM-INTERNAL>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
        (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
        (SYSTEM:FASL-OP-SYMBOL <DEFSTRUCT-EXPAND-CONS-MACRO>)
       => (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>))
     => (<GLOBAL:QUOTE> (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>)))
   => (<DEFF-MACRO> <CONSTRUCT-SYSTEM-INTERNAL> (<GLOBAL:QUOTE> (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>))))
  (EVAL '(<DEFF-MACRO> <CONSTRUCT-SYSTEM-INTERNAL> (<GLOBAL:QUOTE> (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>)))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-SYMBOL <RECORD-SOURCE-FILE-NAME>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [222] {<SYSTEM>})
     => (<GLOBAL:QUOTE> <SYSTEM>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <DEFSTRUCT>)
     => (<GLOBAL:QUOTE> <DEFSTRUCT>))
   => (<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <SYSTEM>) (<GLOBAL:QUOTE> <DEFSTRUCT>)))
  (EVAL '(<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <SYSTEM>) (<GLOBAL:QUOTE> <DEFSTRUCT>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-SYMBOL <DEFSELECT-INTERNAL>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-INDEX [32] {""})
          (SYSTEM:FASL-OP-STRING "PROPERTY")
          <:PROPERTY>)
        (SYSTEM:FASL-OP-INDEX [222] {<SYSTEM>})
        (SYSTEM:FASL-OP-SYMBOL <NAMED-STRUCTURE-INVOKE>)
       => (<:PROPERTY> <SYSTEM> <NAMED-STRUCTURE-INVOKE>))
     => (<GLOBAL:QUOTE> (<:PROPERTY> <SYSTEM> <NAMED-STRUCTURE-INVOKE>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-INDEX [32] {""})
          (SYSTEM:FASL-OP-STRING "PRINT-SELF")
          <:PRINT-SELF>)
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-INDEX [32] {""})
          (SYSTEM:FASL-OP-STRING "WHICH-OPERATIONS")
          <:WHICH-OPERATIONS>)
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-INDEX [32] {""})
          (SYSTEM:FASL-OP-STRING "OPERATION-HANDLED-P")
          <:OPERATION-HANDLED-P>)
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-INDEX [32] {""})
          (SYSTEM:FASL-OP-STRING "SEND-IF-HANDLES")
          <:SEND-IF-HANDLES>)
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-INDEX [32] {""})
          (SYSTEM:FASL-OP-STRING "GET-HANDLER-FOR")
          <:GET-HANDLER-FOR>)
       => (<:PRINT-SELF> <:WHICH-OPERATIONS> <:OPERATION-HANDLED-P> <:SEND-IF-HANDLES> <:GET-HANDLER-FOR>))
     => (<GLOBAL:QUOTE> (<:PRINT-SELF> <:WHICH-OPERATIONS> <:OPERATION-HANDLED-P> <:SEND-IF-HANDLES> <:GET-HANDLER-FOR>)))
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => (<DEFSELECT-INTERNAL> (<GLOBAL:QUOTE> (<:PROPERTY> <SYSTEM> <NAMED-STRUCTURE-INVOKE>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> (<:PRINT-SELF> <:WHICH-OPERATIONS> <:OPERATION-HANDLED-P> <:SEND-IF-HANDLES> <:GET-HANDLER-FOR>)) <GLOBAL:T>))
  (EVAL '(<DEFSELECT-INTERNAL> (<GLOBAL:QUOTE> (<:PROPERTY> <SYSTEM> <NAMED-STRUCTURE-INVOKE>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> (<:PRINT-SELF> <:WHICH-OPERATIONS> <:OPERATION-HANDLED-P> <:SEND-IF-HANDLES> <:GET-HANDLER-FOR>)) <GLOBAL:T>)))

(SYSTEM:FASL-OP-FRAME
(<:SELECT-METHOD> (<:PROPERTY> <SYSTEM> <NAMED-STRUCTURE-INVOKE>) <:PRINT-SELF>)
 20 CALL D-IGNORE FEF|6  ;'NIL
 21 PUSH ARG|1
 22 PUSH ARG|2
 23 PUSH 'T
 24 MOVE D-LAST 'T
 25 CALL D-IGNORE FEF|7  ;'NIL
 26 PUSH ARG|1
 27 AR-1 (1) D-PDL
 28 MOVE D-LAST ARG|2
 29 CALL D-IGNORE FEF|8  ;'NIL
 30 PUSH ARG|1
 31 PUSH ARG|2
 32 MOVE D-LAST 'NIL
 33 MOVE D-RETURN ARG|1
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [488] {#<DTP-FEF-POINTER (<:SELECT-METHOD> (<:PROPERTY> <SYSTEM> <NAMED-STRUCTURE-INVOKE>) <:PRINT-SELF>) 63041637>}
  (SYSTEM:FASL-OP-INDEX [465] {(<:SELECT-METHOD> (<:PROPERTY> <SYSTEM> <NAMED-STRUCTURE-INVOKE>) <:PRINT-SELF>)}))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-PACKAGE-DEFAULT>
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '2
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '1
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH FEF|7  ;'<GETF>
 37 PUSH FEF|8  ;'<SYSTEM-PLIST>
 38 PUSH LOCAL|0
 39 PUSH-NUMBER 2
 40 (MISC) %INTERNAL-LIST D-PDL
 41 PUSH FEF|9  ;'(<:PACKAGE>)
 42 PUSH-NUMBER 3
 43 (MISC) %INTERNAL-LIST* D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [513] {#<DTP-FEF-POINTER <SYSTEM-PACKAGE-DEFAULT> 63044364>})
 => (<MACRO> . #<DTP-FEF-POINTER <SYSTEM-PACKAGE-DEFAULT> 63044364>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [514] {(<MACRO> . #<DTP-FEF-POINTER <SYSTEM-PACKAGE-DEFAULT> 63044364>)}
  (SYSTEM:FASL-OP-INDEX [491] {<SYSTEM-PACKAGE-DEFAULT>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <MODULE-PLIST>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-SYMBOL <MODULE>)
      (SYSTEM:FASL-OP-INDEX [223] {<PLIST>})
     => (<MODULE> . <PLIST>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <MODULE-PLIST> (<MODULE> . <PLIST>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <MODULE-PLIST> (<MODULE> . <PLIST>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<MODULE-PLIST>
 14 PUSH ARG|0
 15 AR-1 (4) D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [540] {#<DTP-FEF-POINTER <MODULE-PLIST> 63045321>}
  (SYSTEM:FASL-OP-INDEX [515] {<MODULE-PLIST>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <MODULE-COMPONENTS>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [516] {<MODULE>})
      (SYSTEM:FASL-OP-SYMBOL <COMPONENTS>)
     => (<MODULE> . <COMPONENTS>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <MODULE-COMPONENTS> (<MODULE> . <COMPONENTS>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <MODULE-COMPONENTS> (<MODULE> . <COMPONENTS>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<MODULE-COMPONENTS>
 14 PUSH ARG|0
 15 AR-1 (3) D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [568] {#<DTP-FEF-POINTER <MODULE-COMPONENTS> 63046012>}
  (SYSTEM:FASL-OP-INDEX [541] {<MODULE-COMPONENTS>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <MODULE-SYSTEM>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [516] {<MODULE>})
      (SYSTEM:FASL-OP-INDEX [222] {<SYSTEM>})
     => (<MODULE> . <SYSTEM>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <MODULE-SYSTEM> (<MODULE> . <SYSTEM>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <MODULE-SYSTEM> (<MODULE> . <SYSTEM>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<MODULE-SYSTEM>
 14 PUSH ARG|0
 15 AR-1 (2) D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [595] {#<DTP-FEF-POINTER <MODULE-SYSTEM> 63047165>}
  (SYSTEM:FASL-OP-INDEX [569] {<MODULE-SYSTEM>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <MODULE-NAME>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [516] {<MODULE>})
      (SYSTEM:FASL-OP-INDEX [183] {<NAME>})
     => (<MODULE> . <NAME>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <MODULE-NAME> (<MODULE> . <NAME>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <MODULE-NAME> (<MODULE> . <NAME>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<MODULE-NAME>
 14 PUSH ARG|0
 15 AR-1 (1) D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [622] {#<DTP-FEF-POINTER <MODULE-NAME> 63047655>}
  (SYSTEM:FASL-OP-INDEX [596] {<MODULE-NAME>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [390] {<PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [516] {<MODULE>})
     => (<GLOBAL:QUOTE> <MODULE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [24] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [392] {<ONE>})
        (SYSTEM:FASL-OP-INDEX [394] {<:NAMED-ARRAY>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [183] {<NAME>})
            (SYSTEM:FASL-OP-FIXED 0)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [596] {<MODULE-NAME>})
            (SYSTEM:FASL-OP-INDEX [605] {"A symbol"})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<NAME> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <MODULE-NAME> "A symbol" <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [222] {<SYSTEM>})
            (SYSTEM:FASL-OP-FIXED 1)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [569] {<MODULE-SYSTEM>})
            (SYSTEM:FASL-OP-INDEX [578] {"A SYSTEM object"})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<SYSTEM> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <MODULE-SYSTEM> "A SYSTEM object" <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [542] {<COMPONENTS>})
            (SYSTEM:FASL-OP-FIXED 2)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [541] {<MODULE-COMPONENTS>})
            (SYSTEM:FASL-OP-INDEX [551] {"A list of MODULE's, PATHNAME lists,or (SYSTEM-NAME . MODULE names)"})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<COMPONENTS> 2 <NIL> <NIL> <GLOBAL:T> <NIL> <MODULE-COMPONENTS> "A list of MODULE's, PATHNAME lists,or (SYSTEM-NAME . MODULE names)" <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [223] {<PLIST>})
            (SYSTEM:FASL-OP-FIXED 3)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [400] {<%%DEFSTRUCT-EMPTY%%>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [515] {<MODULE-PLIST>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<PLIST> 3 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <MODULE-PLIST> <NIL> <NIL> <NIL>))
         => ((<NAME> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <MODULE-NAME> "A symbol" <NIL> <NIL>) (<SYSTEM> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <MODULE-SYSTEM> "A SYSTEM object" <NIL> <NIL>) (<COMPONENTS> 2 <NIL> <NIL> <GLOBAL:T> <NIL> <MODULE-COMPONENTS> "A list of MODULE's, PATHNAME lists,or (SYSTEM-NAME . MODULE names)" <NIL> <NIL>) (<PLIST> 3 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <MODULE-PLIST> <NIL> <NIL> <NIL>)))
        (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
        (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-SYMBOL <MAKE-MODULE>)
           => (<MAKE-MODULE>))
         => ((<MAKE-MODULE>)))
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-FIXED 4)
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [516] {<MODULE>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-FIXED 0)
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-SYMBOL <MODULE->)
        (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [415] {<ART-Q>})
       => (<ONE> <:NAMED-ARRAY> <NIL> ((<NAME> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <MODULE-NAME> "A symbol" <NIL> <NIL>) (<SYSTEM> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <MODULE-SYSTEM> "A SYSTEM object" <NIL> <NIL>) (<COMPONENTS> 2 <NIL> <NIL> <GLOBAL:T> <NIL> <MODULE-COMPONENTS> "A list of MODULE's, PATHNAME lists,or (SYSTEM-NAME . MODULE names)" <NIL> <NIL>) (<PLIST> 3 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <MODULE-PLIST> <NIL> <NIL> <NIL>)) <GLOBAL:T> ((<MAKE-MODULE>)) <NIL> <NIL> 4 <NIL> <MODULE> <NIL> 0 <NIL> <NIL> <MODULE-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <ART-Q>))
     => (<GLOBAL:QUOTE> (<ONE> <:NAMED-ARRAY> <NIL> ((<NAME> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <MODULE-NAME> "A symbol" <NIL> <NIL>) (<SYSTEM> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <MODULE-SYSTEM> "A SYSTEM object" <NIL> <NIL>) (<COMPONENTS> 2 <NIL> <NIL> <GLOBAL:T> <NIL> <MODULE-COMPONENTS> "A list of MODULE's, PATHNAME lists,or (SYSTEM-NAME . MODULE names)" <NIL> <NIL>) (<PLIST> 3 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <MODULE-PLIST> <NIL> <NIL> <NIL>)) <GLOBAL:T> ((<MAKE-MODULE>)) <NIL> <NIL> 4 <NIL> <MODULE> <NIL> 0 <NIL> <NIL> <MODULE-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <ART-Q>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [418] {<DEFSTRUCT-DESCRIPTION>})
     => (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>))
   => (<PUTPROP> (<GLOBAL:QUOTE> <MODULE>) (<GLOBAL:QUOTE> (<ONE> <:NAMED-ARRAY> <NIL> ((<NAME> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <MODULE-NAME> "A symbol" <NIL> <NIL>) (<SYSTEM> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <MODULE-SYSTEM> "A SYSTEM object" <NIL> <NIL>) (<COMPONENTS> 2 <NIL> <NIL> <GLOBAL:T> <NIL> <MODULE-COMPONENTS> "A list of MODULE's, PATHNAME lists,or (SYSTEM-NAME . MODULE names)" <NIL> <NIL>) (<PLIST> 3 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <MODULE-PLIST> <NIL> <NIL> <NIL>)) <GLOBAL:T> ((<MAKE-MODULE>)) <NIL> <NIL> 4 <NIL> <MODULE> <NIL> 0 <NIL> <NIL> <MODULE-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <ART-Q>)) (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>)))
  (EVAL '(<PUTPROP> (<GLOBAL:QUOTE> <MODULE>) (<GLOBAL:QUOTE> (<ONE> <:NAMED-ARRAY> <NIL> ((<NAME> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <MODULE-NAME> "A symbol" <NIL> <NIL>) (<SYSTEM> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <MODULE-SYSTEM> "A SYSTEM object" <NIL> <NIL>) (<COMPONENTS> 2 <NIL> <NIL> <GLOBAL:T> <NIL> <MODULE-COMPONENTS> "A list of MODULE's, PATHNAME lists,or (SYSTEM-NAME . MODULE names)" <NIL> <NIL>) (<PLIST> 3 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <MODULE-PLIST> <NIL> <NIL> <NIL>)) <GLOBAL:T> ((<MAKE-MODULE>)) <NIL> <NIL> 4 <NIL> <MODULE> <NIL> 0 <NIL> <NIL> <MODULE-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <ART-Q>)) (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [390] {<PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [633] {<MAKE-MODULE>})
     => (<GLOBAL:QUOTE> <MAKE-MODULE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [516] {<MODULE>})
     => (<GLOBAL:QUOTE> <MODULE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [424] {<DEFSTRUCT-NAME>})
     => (<GLOBAL:QUOTE> <DEFSTRUCT-NAME>))
   => (<PUTPROP> (<GLOBAL:QUOTE> <MAKE-MODULE>) (<GLOBAL:QUOTE> <MODULE>) (<GLOBAL:QUOTE> <DEFSTRUCT-NAME>)))
  (EVAL '(<PUTPROP> (<GLOBAL:QUOTE> <MAKE-MODULE>) (<GLOBAL:QUOTE> <MODULE>) (<GLOBAL:QUOTE> <DEFSTRUCT-NAME>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [428] {<DEFF-MACRO>})
    (SYSTEM:FASL-OP-INDEX [633] {<MAKE-MODULE>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [430] {(<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>)})
     => (<GLOBAL:QUOTE> (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>)))
   => (<DEFF-MACRO> <MAKE-MODULE> (<GLOBAL:QUOTE> (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>))))
  (EVAL '(<DEFF-MACRO> <MAKE-MODULE> (<GLOBAL:QUOTE> (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>)))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [434] {<RECORD-SOURCE-FILE-NAME>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [516] {<MODULE>})
     => (<GLOBAL:QUOTE> <MODULE>))
    (SYSTEM:FASL-OP-INDEX [437] {(<GLOBAL:QUOTE> <DEFSTRUCT>)})
   => (<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <MODULE>) (<GLOBAL:QUOTE> <DEFSTRUCT>)))
  (EVAL '(<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <MODULE>) (<GLOBAL:QUOTE> <DEFSTRUCT>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [440] {<DEFSELECT-INTERNAL>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [442] {<:PROPERTY>})
        (SYSTEM:FASL-OP-INDEX [516] {<MODULE>})
        (SYSTEM:FASL-OP-INDEX [443] {<NAMED-STRUCTURE-INVOKE>})
       => (<:PROPERTY> <MODULE> <NAMED-STRUCTURE-INVOKE>))
     => (<GLOBAL:QUOTE> (<:PROPERTY> <MODULE> <NAMED-STRUCTURE-INVOKE>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [448] {<:PRINT-SELF>})
        (SYSTEM:FASL-OP-INDEX [450] {<:WHICH-OPERATIONS>})
        (SYSTEM:FASL-OP-INDEX [452] {<:OPERATION-HANDLED-P>})
        (SYSTEM:FASL-OP-INDEX [454] {<:SEND-IF-HANDLES>})
        (SYSTEM:FASL-OP-INDEX [456] {<:GET-HANDLER-FOR>})
       => (<:PRINT-SELF> <:WHICH-OPERATIONS> <:OPERATION-HANDLED-P> <:SEND-IF-HANDLES> <:GET-HANDLER-FOR>))
     => (<GLOBAL:QUOTE> (<:PRINT-SELF> <:WHICH-OPERATIONS> <:OPERATION-HANDLED-P> <:SEND-IF-HANDLES> <:GET-HANDLER-FOR>)))
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => (<DEFSELECT-INTERNAL> (<GLOBAL:QUOTE> (<:PROPERTY> <MODULE> <NAMED-STRUCTURE-INVOKE>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> (<:PRINT-SELF> <:WHICH-OPERATIONS> <:OPERATION-HANDLED-P> <:SEND-IF-HANDLES> <:GET-HANDLER-FOR>)) <GLOBAL:T>))
  (EVAL '(<DEFSELECT-INTERNAL> (<GLOBAL:QUOTE> (<:PROPERTY> <MODULE> <NAMED-STRUCTURE-INVOKE>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> (<:PRINT-SELF> <:WHICH-OPERATIONS> <:OPERATION-HANDLED-P> <:SEND-IF-HANDLES> <:GET-HANDLER-FOR>)) <GLOBAL:T>)))

(SYSTEM:FASL-OP-FRAME
(<:SELECT-METHOD> (<:PROPERTY> <MODULE> <NAMED-STRUCTURE-INVOKE>) <:PRINT-SELF>)
 22 CALL D-IGNORE FEF|6  ;'NIL
 23 PUSH ARG|1
 24 PUSH ARG|2
 25 PUSH 'NIL
 26 MOVE D-LAST 'NIL
 27 CALL D-IGNORE FEF|7  ;'NIL
 28 PUSH ARG|2
 29 PUSH FEF|8  ;'"~A (~A ~A)"
 30 PUSH ARG|1
 31 (MISC) NAMED-STRUCTURE-P D-PDL
 32 PUSH ARG|1
 33 AR-1 (2) D-PDL
 34 AR-1 (1) D-PDL
 35 PUSH ARG|1
 36 AR-1 (1) D-LAST
 37 CALL D-IGNORE FEF|9  ;'NIL
 38 PUSH ARG|1
 39 PUSH ARG|2
 40 MOVE D-LAST 'NIL
 41 MOVE D-RETURN ARG|1
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [681] {#<DTP-FEF-POINTER (<:SELECT-METHOD> (<:PROPERTY> <MODULE> <NAMED-STRUCTURE-INVOKE>) <:PRINT-SELF>) 63056770>}
  (SYSTEM:FASL-OP-INDEX [664] {(<:SELECT-METHOD> (<:PROPERTY> <MODULE> <NAMED-STRUCTURE-INVOKE>) <:PRINT-SELF>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <TRANSFORMATION-SYSTEM>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-SYMBOL <TRANSFORMATION>)
      (SYSTEM:FASL-OP-INDEX [222] {<SYSTEM>})
     => (<TRANSFORMATION> . <SYSTEM>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <TRANSFORMATION-SYSTEM> (<TRANSFORMATION> . <SYSTEM>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <TRANSFORMATION-SYSTEM> (<TRANSFORMATION> . <SYSTEM>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<TRANSFORMATION-SYSTEM>
 14 PUSH ARG|0
 15 AR-1 (5) D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [709] {#<DTP-FEF-POINTER <TRANSFORMATION-SYSTEM> 63057671>}
  (SYSTEM:FASL-OP-INDEX [682] {<TRANSFORMATION-SYSTEM>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <TRANSFORMATION-CONDITION-FUNCTION>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [683] {<TRANSFORMATION>})
      (SYSTEM:FASL-OP-SYMBOL <CONDITION-FUNCTION>)
     => (<TRANSFORMATION> . <CONDITION-FUNCTION>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <TRANSFORMATION-CONDITION-FUNCTION> (<TRANSFORMATION> . <CONDITION-FUNCTION>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <TRANSFORMATION-CONDITION-FUNCTION> (<TRANSFORMATION> . <CONDITION-FUNCTION>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<TRANSFORMATION-CONDITION-FUNCTION>
 14 PUSH ARG|0
 15 AR-1 (4) D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [737] {#<DTP-FEF-POINTER <TRANSFORMATION-CONDITION-FUNCTION> 63060371>}
  (SYSTEM:FASL-OP-INDEX [710] {<TRANSFORMATION-CONDITION-FUNCTION>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <TRANSFORMATION-DEPENDENCIES>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [683] {<TRANSFORMATION>})
      (SYSTEM:FASL-OP-SYMBOL <DEPENDENCIES>)
     => (<TRANSFORMATION> . <DEPENDENCIES>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <TRANSFORMATION-DEPENDENCIES> (<TRANSFORMATION> . <DEPENDENCIES>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <TRANSFORMATION-DEPENDENCIES> (<TRANSFORMATION> . <DEPENDENCIES>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<TRANSFORMATION-DEPENDENCIES>
 14 PUSH ARG|0
 15 AR-1 (3) D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [763] {#<DTP-FEF-POINTER <TRANSFORMATION-DEPENDENCIES> 63061072>}
  (SYSTEM:FASL-OP-INDEX [738] {<TRANSFORMATION-DEPENDENCIES>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <TRANSFORMATION-INPUT>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [683] {<TRANSFORMATION>})
      (SYSTEM:FASL-OP-SYMBOL <INPUT>)
     => (<TRANSFORMATION> . <INPUT>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <TRANSFORMATION-INPUT> (<TRANSFORMATION> . <INPUT>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <TRANSFORMATION-INPUT> (<TRANSFORMATION> . <INPUT>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<TRANSFORMATION-INPUT>
 14 PUSH ARG|0
 15 AR-1 (2) D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [791] {#<DTP-FEF-POINTER <TRANSFORMATION-INPUT> 63061551>}
  (SYSTEM:FASL-OP-INDEX [764] {<TRANSFORMATION-INPUT>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <TRANSFORMATION-TRANSFORMATION-TYPE>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [683] {<TRANSFORMATION>})
      (SYSTEM:FASL-OP-SYMBOL <TRANSFORMATION-TYPE>)
     => (<TRANSFORMATION> . <TRANSFORMATION-TYPE>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <TRANSFORMATION-TRANSFORMATION-TYPE> (<TRANSFORMATION> . <TRANSFORMATION-TYPE>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <TRANSFORMATION-TRANSFORMATION-TYPE> (<TRANSFORMATION> . <TRANSFORMATION-TYPE>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<TRANSFORMATION-TRANSFORMATION-TYPE>
 14 PUSH ARG|0
 15 AR-1 (1) D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [817] {#<DTP-FEF-POINTER <TRANSFORMATION-TRANSFORMATION-TYPE> 63062241>}
  (SYSTEM:FASL-OP-INDEX [792] {<TRANSFORMATION-TRANSFORMATION-TYPE>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [390] {<PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [683] {<TRANSFORMATION>})
     => (<GLOBAL:QUOTE> <TRANSFORMATION>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [24] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [392] {<ONE>})
        (SYSTEM:FASL-OP-INDEX [394] {<:NAMED-ARRAY>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [793] {<TRANSFORMATION-TYPE>})
            (SYSTEM:FASL-OP-FIXED 0)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [400] {<%%DEFSTRUCT-EMPTY%%>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [792] {<TRANSFORMATION-TRANSFORMATION-TYPE>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<TRANSFORMATION-TYPE> 0 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TRANSFORMATION-TYPE> <NIL> <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [765] {<INPUT>})
            (SYSTEM:FASL-OP-FIXED 1)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [764] {<TRANSFORMATION-INPUT>})
            (SYSTEM:FASL-OP-INDEX [774] {"A MODULE or a TRANSFORMATION"})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<INPUT> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-INPUT> "A MODULE or a TRANSFORMATION" <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [739] {<DEPENDENCIES>})
            (SYSTEM:FASL-OP-FIXED 2)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [400] {<%%DEFSTRUCT-EMPTY%%>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [738] {<TRANSFORMATION-DEPENDENCIES>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<DEPENDENCIES> 2 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-DEPENDENCIES> <NIL> <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [711] {<CONDITION-FUNCTION>})
            (SYSTEM:FASL-OP-FIXED 3)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [710] {<TRANSFORMATION-CONDITION-FUNCTION>})
            (SYSTEM:FASL-OP-INDEX [720] {"A symbol"})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<CONDITION-FUNCTION> 3 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-CONDITION-FUNCTION> "A symbol" <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [222] {<SYSTEM>})
            (SYSTEM:FASL-OP-FIXED 4)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [682] {<TRANSFORMATION-SYSTEM>})
            (SYSTEM:FASL-OP-INDEX [692] {"The system this module belongs to."})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<SYSTEM> 4 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-SYSTEM> "The system this module belongs to." <NIL> <NIL>))
         => ((<TRANSFORMATION-TYPE> 0 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TRANSFORMATION-TYPE> <NIL> <NIL> <NIL>) (<INPUT> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-INPUT> "A MODULE or a TRANSFORMATION" <NIL> <NIL>) (<DEPENDENCIES> 2 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-DEPENDENCIES> <NIL> <NIL> <NIL>) (<CONDITION-FUNCTION> 3 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-CONDITION-FUNCTION> "A symbol" <NIL> <NIL>) (<SYSTEM> 4 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-SYSTEM> "The system this module belongs to." <NIL> <NIL>)))
        (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
        (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-SYMBOL <MAKE-TRANSFORMATION>)
           => (<MAKE-TRANSFORMATION>))
         => ((<MAKE-TRANSFORMATION>)))
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-FIXED 5)
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [683] {<TRANSFORMATION>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-FIXED 0)
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-SYMBOL <TRANSFORMATION->)
        (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [415] {<ART-Q>})
       => (<ONE> <:NAMED-ARRAY> <NIL> ((<TRANSFORMATION-TYPE> 0 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TRANSFORMATION-TYPE> <NIL> <NIL> <NIL>) (<INPUT> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-INPUT> "A MODULE or a TRANSFORMATION" <NIL> <NIL>) (<DEPENDENCIES> 2 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-DEPENDENCIES> <NIL> <NIL> <NIL>) (<CONDITION-FUNCTION> 3 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-CONDITION-FUNCTION> "A symbol" <NIL> <NIL>) (<SYSTEM> 4 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-SYSTEM> "The system this module belongs to." <NIL> <NIL>)) <GLOBAL:T> ((<MAKE-TRANSFORMATION>)) <NIL> <NIL> 5 <NIL> <TRANSFORMATION> <NIL> 0 <NIL> <NIL> <TRANSFORMATION-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <ART-Q>))
     => (<GLOBAL:QUOTE> (<ONE> <:NAMED-ARRAY> <NIL> ((<TRANSFORMATION-TYPE> 0 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TRANSFORMATION-TYPE> <NIL> <NIL> <NIL>) (<INPUT> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-INPUT> "A MODULE or a TRANSFORMATION" <NIL> <NIL>) (<DEPENDENCIES> 2 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-DEPENDENCIES> <NIL> <NIL> <NIL>) (<CONDITION-FUNCTION> 3 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-CONDITION-FUNCTION> "A symbol" <NIL> <NIL>) (<SYSTEM> 4 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-SYSTEM> "The system this module belongs to." <NIL> <NIL>)) <GLOBAL:T> ((<MAKE-TRANSFORMATION>)) <NIL> <NIL> 5 <NIL> <TRANSFORMATION> <NIL> 0 <NIL> <NIL> <TRANSFORMATION-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <ART-Q>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [418] {<DEFSTRUCT-DESCRIPTION>})
     => (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>))
   => (<PUTPROP> (<GLOBAL:QUOTE> <TRANSFORMATION>) (<GLOBAL:QUOTE> (<ONE> <:NAMED-ARRAY> <NIL> ((<TRANSFORMATION-TYPE> 0 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TRANSFORMATION-TYPE> <NIL> <NIL> <NIL>) (<INPUT> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-INPUT> "A MODULE or a TRANSFORMATION" <NIL> <NIL>) (<DEPENDENCIES> 2 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-DEPENDENCIES> <NIL> <NIL> <NIL>) (<CONDITION-FUNCTION> 3 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-CONDITION-FUNCTION> "A symbol" <NIL> <NIL>) (<SYSTEM> 4 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-SYSTEM> "The system this module belongs to." <NIL> <NIL>)) <GLOBAL:T> ((<MAKE-TRANSFORMATION>)) <NIL> <NIL> 5 <NIL> <TRANSFORMATION> <NIL> 0 <NIL> <NIL> <TRANSFORMATION-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <ART-Q>)) (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>)))
  (EVAL '(<PUTPROP> (<GLOBAL:QUOTE> <TRANSFORMATION>) (<GLOBAL:QUOTE> (<ONE> <:NAMED-ARRAY> <NIL> ((<TRANSFORMATION-TYPE> 0 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TRANSFORMATION-TYPE> <NIL> <NIL> <NIL>) (<INPUT> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-INPUT> "A MODULE or a TRANSFORMATION" <NIL> <NIL>) (<DEPENDENCIES> 2 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-DEPENDENCIES> <NIL> <NIL> <NIL>) (<CONDITION-FUNCTION> 3 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-CONDITION-FUNCTION> "A symbol" <NIL> <NIL>) (<SYSTEM> 4 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-SYSTEM> "The system this module belongs to." <NIL> <NIL>)) <GLOBAL:T> ((<MAKE-TRANSFORMATION>)) <NIL> <NIL> 5 <NIL> <TRANSFORMATION> <NIL> 0 <NIL> <NIL> <TRANSFORMATION-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <ART-Q>)) (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [390] {<PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [830] {<MAKE-TRANSFORMATION>})
     => (<GLOBAL:QUOTE> <MAKE-TRANSFORMATION>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [683] {<TRANSFORMATION>})
     => (<GLOBAL:QUOTE> <TRANSFORMATION>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [424] {<DEFSTRUCT-NAME>})
     => (<GLOBAL:QUOTE> <DEFSTRUCT-NAME>))
   => (<PUTPROP> (<GLOBAL:QUOTE> <MAKE-TRANSFORMATION>) (<GLOBAL:QUOTE> <TRANSFORMATION>) (<GLOBAL:QUOTE> <DEFSTRUCT-NAME>)))
  (EVAL '(<PUTPROP> (<GLOBAL:QUOTE> <MAKE-TRANSFORMATION>) (<GLOBAL:QUOTE> <TRANSFORMATION>) (<GLOBAL:QUOTE> <DEFSTRUCT-NAME>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [428] {<DEFF-MACRO>})
    (SYSTEM:FASL-OP-INDEX [830] {<MAKE-TRANSFORMATION>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [430] {(<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>)})
     => (<GLOBAL:QUOTE> (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>)))
   => (<DEFF-MACRO> <MAKE-TRANSFORMATION> (<GLOBAL:QUOTE> (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>))))
  (EVAL '(<DEFF-MACRO> <MAKE-TRANSFORMATION> (<GLOBAL:QUOTE> (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>)))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [434] {<RECORD-SOURCE-FILE-NAME>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [683] {<TRANSFORMATION>})
     => (<GLOBAL:QUOTE> <TRANSFORMATION>))
    (SYSTEM:FASL-OP-INDEX [437] {(<GLOBAL:QUOTE> <DEFSTRUCT>)})
   => (<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <TRANSFORMATION>) (<GLOBAL:QUOTE> <DEFSTRUCT>)))
  (EVAL '(<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <TRANSFORMATION>) (<GLOBAL:QUOTE> <DEFSTRUCT>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [440] {<DEFSELECT-INTERNAL>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [442] {<:PROPERTY>})
        (SYSTEM:FASL-OP-INDEX [683] {<TRANSFORMATION>})
        (SYSTEM:FASL-OP-INDEX [443] {<NAMED-STRUCTURE-INVOKE>})
       => (<:PROPERTY> <TRANSFORMATION> <NAMED-STRUCTURE-INVOKE>))
     => (<GLOBAL:QUOTE> (<:PROPERTY> <TRANSFORMATION> <NAMED-STRUCTURE-INVOKE>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [448] {<:PRINT-SELF>})
        (SYSTEM:FASL-OP-INDEX [450] {<:WHICH-OPERATIONS>})
        (SYSTEM:FASL-OP-INDEX [452] {<:OPERATION-HANDLED-P>})
        (SYSTEM:FASL-OP-INDEX [454] {<:SEND-IF-HANDLES>})
        (SYSTEM:FASL-OP-INDEX [456] {<:GET-HANDLER-FOR>})
       => (<:PRINT-SELF> <:WHICH-OPERATIONS> <:OPERATION-HANDLED-P> <:SEND-IF-HANDLES> <:GET-HANDLER-FOR>))
     => (<GLOBAL:QUOTE> (<:PRINT-SELF> <:WHICH-OPERATIONS> <:OPERATION-HANDLED-P> <:SEND-IF-HANDLES> <:GET-HANDLER-FOR>)))
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => (<DEFSELECT-INTERNAL> (<GLOBAL:QUOTE> (<:PROPERTY> <TRANSFORMATION> <NAMED-STRUCTURE-INVOKE>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> (<:PRINT-SELF> <:WHICH-OPERATIONS> <:OPERATION-HANDLED-P> <:SEND-IF-HANDLES> <:GET-HANDLER-FOR>)) <GLOBAL:T>))
  (EVAL '(<DEFSELECT-INTERNAL> (<GLOBAL:QUOTE> (<:PROPERTY> <TRANSFORMATION> <NAMED-STRUCTURE-INVOKE>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> (<:PRINT-SELF> <:WHICH-OPERATIONS> <:OPERATION-HANDLED-P> <:SEND-IF-HANDLES> <:GET-HANDLER-FOR>)) <GLOBAL:T>)))

(SYSTEM:FASL-OP-FRAME
(<:SELECT-METHOD> (<:PROPERTY> <TRANSFORMATION> <NAMED-STRUCTURE-INVOKE>) <:PRINT-SELF>)
 22 CALL D-IGNORE FEF|6  ;'NIL
 23 PUSH ARG|1
 24 PUSH ARG|2
 25 PUSH 'NIL
 26 MOVE D-LAST 'NIL
 27 CALL D-IGNORE FEF|7  ;'NIL
 28 PUSH ARG|2
 29 PUSH FEF|8  ;'"~A~@[ ~A~]"
 30 PUSH ARG|1
 31 (MISC) NAMED-STRUCTURE-P D-PDL
 32 PUSH ARG|1
 33 AR-1 (1) D-PDL
 34 MOVEM LOCAL|0
 35 BR-NIL-POP 37
 36 CAR D-PDL LOCAL|0
 37 MOVE D-LAST PDL-POP
 38 CALL D-IGNORE FEF|9  ;'NIL
 39 PUSH ARG|1
 40 PUSH ARG|2
 41 MOVE D-LAST 'NIL
 42 MOVE D-RETURN ARG|1
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [882] {#<DTP-FEF-POINTER (<:SELECT-METHOD> (<:PROPERTY> <TRANSFORMATION> <NAMED-STRUCTURE-INVOKE>) <:PRINT-SELF>) 63102361>}
  (SYSTEM:FASL-OP-INDEX [861] {(<:SELECT-METHOD> (<:PROPERTY> <TRANSFORMATION> <NAMED-STRUCTURE-INVOKE>) <:PRINT-SELF>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [793] {<TRANSFORMATION-TYPE>})
      (SYSTEM:FASL-OP-SYMBOL <OUTPUT-FILE-TYPES>)
     => (<TRANSFORMATION-TYPE> . <OUTPUT-FILE-TYPES>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES> (<TRANSFORMATION-TYPE> . <OUTPUT-FILE-TYPES>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES> (<TRANSFORMATION-TYPE> . <OUTPUT-FILE-TYPES>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES>
 14 PUSH-NUMBER 4
 15 PUSH ARG|0
 16 (MISC) NTH D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [909] {#<DTP-FEF-POINTER <TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES> 63111003>}
  (SYSTEM:FASL-OP-INDEX [883] {<TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <TRANSFORMATION-TYPE-INPUT-FILE-TYPES>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [793] {<TRANSFORMATION-TYPE>})
      (SYSTEM:FASL-OP-SYMBOL <INPUT-FILE-TYPES>)
     => (<TRANSFORMATION-TYPE> . <INPUT-FILE-TYPES>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <TRANSFORMATION-TYPE-INPUT-FILE-TYPES> (<TRANSFORMATION-TYPE> . <INPUT-FILE-TYPES>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <TRANSFORMATION-TYPE-INPUT-FILE-TYPES> (<TRANSFORMATION-TYPE> . <INPUT-FILE-TYPES>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<TRANSFORMATION-TYPE-INPUT-FILE-TYPES>
 14 PUSH ARG|0
 15 (MISC) CADDDR D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [937] {#<DTP-FEF-POINTER <TRANSFORMATION-TYPE-INPUT-FILE-TYPES> 63120216>}
  (SYSTEM:FASL-OP-INDEX [910] {<TRANSFORMATION-TYPE-INPUT-FILE-TYPES>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <TRANSFORMATION-TYPE-FUNCTION>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [793] {<TRANSFORMATION-TYPE>})
      (SYSTEM:FASL-OP-SYMBOL <FUNCTION>)
     => (<TRANSFORMATION-TYPE> . <FUNCTION>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <TRANSFORMATION-TYPE-FUNCTION> (<TRANSFORMATION-TYPE> . <FUNCTION>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <TRANSFORMATION-TYPE-FUNCTION> (<TRANSFORMATION-TYPE> . <FUNCTION>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<TRANSFORMATION-TYPE-FUNCTION>
 14 PUSH ARG|0
 15 (MISC) CADDR D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [965] {#<DTP-FEF-POINTER <TRANSFORMATION-TYPE-FUNCTION> 63120713>}
  (SYSTEM:FASL-OP-INDEX [938] {<TRANSFORMATION-TYPE-FUNCTION>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <TRANSFORMATION-TYPE-PRETTY-NAMES>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [793] {<TRANSFORMATION-TYPE>})
      (SYSTEM:FASL-OP-SYMBOL <PRETTY-NAMES>)
     => (<TRANSFORMATION-TYPE> . <PRETTY-NAMES>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <TRANSFORMATION-TYPE-PRETTY-NAMES> (<TRANSFORMATION-TYPE> . <PRETTY-NAMES>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <TRANSFORMATION-TYPE-PRETTY-NAMES> (<TRANSFORMATION-TYPE> . <PRETTY-NAMES>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<TRANSFORMATION-TYPE-PRETTY-NAMES>
 14 CADR D-RETURN ARG|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [993] {#<DTP-FEF-POINTER <TRANSFORMATION-TYPE-PRETTY-NAMES> 63123105>}
  (SYSTEM:FASL-OP-INDEX [966] {<TRANSFORMATION-TYPE-PRETTY-NAMES>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-INDEX [866] {<TRANSFORMATION-TYPE-NAME>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [793] {<TRANSFORMATION-TYPE>})
      (SYSTEM:FASL-OP-INDEX [183] {<NAME>})
     => (<TRANSFORMATION-TYPE> . <NAME>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <TRANSFORMATION-TYPE-NAME> (<TRANSFORMATION-TYPE> . <NAME>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <TRANSFORMATION-TYPE-NAME> (<TRANSFORMATION-TYPE> . <NAME>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<TRANSFORMATION-TYPE-NAME>
 14 CAR D-RETURN ARG|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1019] {#<DTP-FEF-POINTER <TRANSFORMATION-TYPE-NAME> 63123613>}
  (SYSTEM:FASL-OP-INDEX [866] {<TRANSFORMATION-TYPE-NAME>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [390] {<PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [793] {<TRANSFORMATION-TYPE>})
     => (<GLOBAL:QUOTE> <TRANSFORMATION-TYPE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [24] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [392] {<ONE>})
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-INDEX [32] {""})
          (SYSTEM:FASL-OP-STRING "LIST")
          <:LIST>)
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [183] {<NAME>})
            (SYSTEM:FASL-OP-FIXED 0)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [866] {<TRANSFORMATION-TYPE-NAME>})
            (SYSTEM:FASL-OP-INDEX [1002] {"A keyword"})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<NAME> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-NAME> "A keyword" <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [967] {<PRETTY-NAMES>})
            (SYSTEM:FASL-OP-FIXED 1)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [966] {<TRANSFORMATION-TYPE-PRETTY-NAMES>})
            (SYSTEM:FASL-OP-INDEX [976] {"(/"Foo/" /"Fooing/" /"fooed/")"})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<PRETTY-NAMES> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES> "(/"Foo/" /"Fooing/" /"fooed/")" <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [939] {<FUNCTION>})
            (SYSTEM:FASL-OP-FIXED 2)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [938] {<TRANSFORMATION-TYPE-FUNCTION>})
            (SYSTEM:FASL-OP-INDEX [948] {"A symbol"})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<FUNCTION> 2 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-FUNCTION> "A symbol" <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [911] {<INPUT-FILE-TYPES>})
            (SYSTEM:FASL-OP-FIXED 3)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [910] {<TRANSFORMATION-TYPE-INPUT-FILE-TYPES>})
            (SYSTEM:FASL-OP-INDEX [920] {"A list of string"})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<INPUT-FILE-TYPES> 3 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-INPUT-FILE-TYPES> "A list of string" <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [884] {<OUTPUT-FILE-TYPES>})
            (SYSTEM:FASL-OP-FIXED 4)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [400] {<%%DEFSTRUCT-EMPTY%%>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [883] {<TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<OUTPUT-FILE-TYPES> 4 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES> <NIL> <NIL> <NIL>))
         => ((<NAME> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-NAME> "A keyword" <NIL> <NIL>) (<PRETTY-NAMES> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES> "(/"Foo/" /"Fooing/" /"fooed/")" <NIL> <NIL>) (<FUNCTION> 2 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-FUNCTION> "A symbol" <NIL> <NIL>) (<INPUT-FILE-TYPES> 3 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-INPUT-FILE-TYPES> "A list of string" <NIL> <NIL>) (<OUTPUT-FILE-TYPES> 4 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES> <NIL> <NIL> <NIL>)))
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-SYMBOL <MAKE-TRANSFORMATION-TYPE>)
           => (<MAKE-TRANSFORMATION-TYPE>))
         => ((<MAKE-TRANSFORMATION-TYPE>)))
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-FIXED 5)
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [793] {<TRANSFORMATION-TYPE>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-FIXED 0)
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-SYMBOL <TRANSFORMATION-TYPE->)
        (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
       => (<ONE> <:LIST> <NIL> ((<NAME> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-NAME> "A keyword" <NIL> <NIL>) (<PRETTY-NAMES> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES> "(/"Foo/" /"Fooing/" /"fooed/")" <NIL> <NIL>) (<FUNCTION> 2 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-FUNCTION> "A symbol" <NIL> <NIL>) (<INPUT-FILE-TYPES> 3 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-INPUT-FILE-TYPES> "A list of string" <NIL> <NIL>) (<OUTPUT-FILE-TYPES> 4 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES> <NIL> <NIL> <NIL>)) <NIL> ((<MAKE-TRANSFORMATION-TYPE>)) <NIL> <NIL> 5 <NIL> <TRANSFORMATION-TYPE> <NIL> 0 <NIL> <NIL> <TRANSFORMATION-TYPE-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL>))
     => (<GLOBAL:QUOTE> (<ONE> <:LIST> <NIL> ((<NAME> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-NAME> "A keyword" <NIL> <NIL>) (<PRETTY-NAMES> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES> "(/"Foo/" /"Fooing/" /"fooed/")" <NIL> <NIL>) (<FUNCTION> 2 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-FUNCTION> "A symbol" <NIL> <NIL>) (<INPUT-FILE-TYPES> 3 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-INPUT-FILE-TYPES> "A list of string" <NIL> <NIL>) (<OUTPUT-FILE-TYPES> 4 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES> <NIL> <NIL> <NIL>)) <NIL> ((<MAKE-TRANSFORMATION-TYPE>)) <NIL> <NIL> 5 <NIL> <TRANSFORMATION-TYPE> <NIL> 0 <NIL> <NIL> <TRANSFORMATION-TYPE-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [418] {<DEFSTRUCT-DESCRIPTION>})
     => (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>))
   => (<PUTPROP> (<GLOBAL:QUOTE> <TRANSFORMATION-TYPE>) (<GLOBAL:QUOTE> (<ONE> <:LIST> <NIL> ((<NAME> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-NAME> "A keyword" <NIL> <NIL>) (<PRETTY-NAMES> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES> "(/"Foo/" /"Fooing/" /"fooed/")" <NIL> <NIL>) (<FUNCTION> 2 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-FUNCTION> "A symbol" <NIL> <NIL>) (<INPUT-FILE-TYPES> 3 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-INPUT-FILE-TYPES> "A list of string" <NIL> <NIL>) (<OUTPUT-FILE-TYPES> 4 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES> <NIL> <NIL> <NIL>)) <NIL> ((<MAKE-TRANSFORMATION-TYPE>)) <NIL> <NIL> 5 <NIL> <TRANSFORMATION-TYPE> <NIL> 0 <NIL> <NIL> <TRANSFORMATION-TYPE-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL>)) (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>)))
  (EVAL '(<PUTPROP> (<GLOBAL:QUOTE> <TRANSFORMATION-TYPE>) (<GLOBAL:QUOTE> (<ONE> <:LIST> <NIL> ((<NAME> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-NAME> "A keyword" <NIL> <NIL>) (<PRETTY-NAMES> 1 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES> "(/"Foo/" /"Fooing/" /"fooed/")" <NIL> <NIL>) (<FUNCTION> 2 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-FUNCTION> "A symbol" <NIL> <NIL>) (<INPUT-FILE-TYPES> 3 <NIL> <NIL> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-INPUT-FILE-TYPES> "A list of string" <NIL> <NIL>) (<OUTPUT-FILE-TYPES> 4 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES> <NIL> <NIL> <NIL>)) <NIL> ((<MAKE-TRANSFORMATION-TYPE>)) <NIL> <NIL> 5 <NIL> <TRANSFORMATION-TYPE> <NIL> 0 <NIL> <NIL> <TRANSFORMATION-TYPE-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL>)) (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [390] {<PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [1034] {<MAKE-TRANSFORMATION-TYPE>})
     => (<GLOBAL:QUOTE> <MAKE-TRANSFORMATION-TYPE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [793] {<TRANSFORMATION-TYPE>})
     => (<GLOBAL:QUOTE> <TRANSFORMATION-TYPE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [424] {<DEFSTRUCT-NAME>})
     => (<GLOBAL:QUOTE> <DEFSTRUCT-NAME>))
   => (<PUTPROP> (<GLOBAL:QUOTE> <MAKE-TRANSFORMATION-TYPE>) (<GLOBAL:QUOTE> <TRANSFORMATION-TYPE>) (<GLOBAL:QUOTE> <DEFSTRUCT-NAME>)))
  (EVAL '(<PUTPROP> (<GLOBAL:QUOTE> <MAKE-TRANSFORMATION-TYPE>) (<GLOBAL:QUOTE> <TRANSFORMATION-TYPE>) (<GLOBAL:QUOTE> <DEFSTRUCT-NAME>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [428] {<DEFF-MACRO>})
    (SYSTEM:FASL-OP-INDEX [1034] {<MAKE-TRANSFORMATION-TYPE>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [430] {(<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>)})
     => (<GLOBAL:QUOTE> (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>)))
   => (<DEFF-MACRO> <MAKE-TRANSFORMATION-TYPE> (<GLOBAL:QUOTE> (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>))))
  (EVAL '(<DEFF-MACRO> <MAKE-TRANSFORMATION-TYPE> (<GLOBAL:QUOTE> (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>)))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [434] {<RECORD-SOURCE-FILE-NAME>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [793] {<TRANSFORMATION-TYPE>})
     => (<GLOBAL:QUOTE> <TRANSFORMATION-TYPE>))
    (SYSTEM:FASL-OP-INDEX [437] {(<GLOBAL:QUOTE> <DEFSTRUCT>)})
   => (<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <TRANSFORMATION-TYPE>) (<GLOBAL:QUOTE> <DEFSTRUCT>)))
  (EVAL '(<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <TRANSFORMATION-TYPE>) (<GLOBAL:QUOTE> <DEFSTRUCT>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [966] {<TRANSFORMATION-TYPE-PRETTY-NAMES>})
      (SYSTEM:FASL-OP-SYMBOL <PAST-PARTICIPLE>)
     => (<TRANSFORMATION-TYPE-PRETTY-NAMES> . <PAST-PARTICIPLE>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE> (<TRANSFORMATION-TYPE-PRETTY-NAMES> . <PAST-PARTICIPLE>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE> (<TRANSFORMATION-TYPE-PRETTY-NAMES> . <PAST-PARTICIPLE>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE>
 14 PUSH ARG|0
 15 (MISC) CADDR D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1081] {#<DTP-FEF-POINTER <TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE> 63136244>}
  (SYSTEM:FASL-OP-INDEX [1056] {<TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [966] {<TRANSFORMATION-TYPE-PRETTY-NAMES>})
      (SYSTEM:FASL-OP-SYMBOL <PRESENT-PARTICIPLE>)
     => (<TRANSFORMATION-TYPE-PRETTY-NAMES> . <PRESENT-PARTICIPLE>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE> (<TRANSFORMATION-TYPE-PRETTY-NAMES> . <PRESENT-PARTICIPLE>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE> (<TRANSFORMATION-TYPE-PRETTY-NAMES> . <PRESENT-PARTICIPLE>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE>
 14 CADR D-RETURN ARG|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1107] {#<DTP-FEF-POINTER <TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE> 63137264>}
  (SYSTEM:FASL-OP-INDEX [1082] {<TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [966] {<TRANSFORMATION-TYPE-PRETTY-NAMES>})
      (SYSTEM:FASL-OP-SYMBOL <IMPERATIVE>)
     => (<TRANSFORMATION-TYPE-PRETTY-NAMES> . <IMPERATIVE>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE> (<TRANSFORMATION-TYPE-PRETTY-NAMES> . <IMPERATIVE>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE> (<TRANSFORMATION-TYPE-PRETTY-NAMES> . <IMPERATIVE>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE>
 14 CAR D-RETURN ARG|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1133] {#<DTP-FEF-POINTER <TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE> 63140033>}
  (SYSTEM:FASL-OP-INDEX [1108] {<TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [390] {<PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [966] {<TRANSFORMATION-TYPE-PRETTY-NAMES>})
     => (<GLOBAL:QUOTE> <TRANSFORMATION-TYPE-PRETTY-NAMES>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [24] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [392] {<ONE>})
        (SYSTEM:FASL-OP-INDEX [1022] {<:LIST>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [1109] {<IMPERATIVE>})
            (SYSTEM:FASL-OP-FIXED 0)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [400] {<%%DEFSTRUCT-EMPTY%%>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [1108] {<TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<IMPERATIVE> 0 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE> <NIL> <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [1083] {<PRESENT-PARTICIPLE>})
            (SYSTEM:FASL-OP-FIXED 1)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [400] {<%%DEFSTRUCT-EMPTY%%>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [1082] {<TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<PRESENT-PARTICIPLE> 1 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE> <NIL> <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [1057] {<PAST-PARTICIPLE>})
            (SYSTEM:FASL-OP-FIXED 2)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [400] {<%%DEFSTRUCT-EMPTY%%>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [1056] {<TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<PAST-PARTICIPLE> 2 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE> <NIL> <NIL> <NIL>))
         => ((<IMPERATIVE> 0 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE> <NIL> <NIL> <NIL>) (<PRESENT-PARTICIPLE> 1 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE> <NIL> <NIL> <NIL>) (<PAST-PARTICIPLE> 2 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE> <NIL> <NIL> <NIL>)))
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-FIXED 3)
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [966] {<TRANSFORMATION-TYPE-PRETTY-NAMES>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-FIXED 0)
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-SYMBOL <TRANSFORMATION-TYPE-PRETTY-NAMES->)
        (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
       => (<ONE> <:LIST> <NIL> ((<IMPERATIVE> 0 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE> <NIL> <NIL> <NIL>) (<PRESENT-PARTICIPLE> 1 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE> <NIL> <NIL> <NIL>) (<PAST-PARTICIPLE> 2 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE> <NIL> <NIL> <NIL>)) <NIL> <NIL> <NIL> <NIL> 3 <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES> <NIL> 0 <NIL> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL>))
     => (<GLOBAL:QUOTE> (<ONE> <:LIST> <NIL> ((<IMPERATIVE> 0 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE> <NIL> <NIL> <NIL>) (<PRESENT-PARTICIPLE> 1 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE> <NIL> <NIL> <NIL>) (<PAST-PARTICIPLE> 2 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE> <NIL> <NIL> <NIL>)) <NIL> <NIL> <NIL> <NIL> 3 <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES> <NIL> 0 <NIL> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [418] {<DEFSTRUCT-DESCRIPTION>})
     => (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>))
   => (<PUTPROP> (<GLOBAL:QUOTE> <TRANSFORMATION-TYPE-PRETTY-NAMES>) (<GLOBAL:QUOTE> (<ONE> <:LIST> <NIL> ((<IMPERATIVE> 0 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE> <NIL> <NIL> <NIL>) (<PRESENT-PARTICIPLE> 1 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE> <NIL> <NIL> <NIL>) (<PAST-PARTICIPLE> 2 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE> <NIL> <NIL> <NIL>)) <NIL> <NIL> <NIL> <NIL> 3 <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES> <NIL> 0 <NIL> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL>)) (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>)))
  (EVAL '(<PUTPROP> (<GLOBAL:QUOTE> <TRANSFORMATION-TYPE-PRETTY-NAMES>) (<GLOBAL:QUOTE> (<ONE> <:LIST> <NIL> ((<IMPERATIVE> 0 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE> <NIL> <NIL> <NIL>) (<PRESENT-PARTICIPLE> 1 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE> <NIL> <NIL> <NIL>) (<PAST-PARTICIPLE> 2 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE> <NIL> <NIL> <NIL>)) <NIL> <NIL> <NIL> <NIL> 3 <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES> <NIL> 0 <NIL> <NIL> <TRANSFORMATION-TYPE-PRETTY-NAMES-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL>)) (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [434] {<RECORD-SOURCE-FILE-NAME>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [966] {<TRANSFORMATION-TYPE-PRETTY-NAMES>})
     => (<GLOBAL:QUOTE> <TRANSFORMATION-TYPE-PRETTY-NAMES>))
    (SYSTEM:FASL-OP-INDEX [437] {(<GLOBAL:QUOTE> <DEFSTRUCT>)})
   => (<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <TRANSFORMATION-TYPE-PRETTY-NAMES>) (<GLOBAL:QUOTE> <DEFSTRUCT>)))
  (EVAL '(<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <TRANSFORMATION-TYPE-PRETTY-NAMES>) (<GLOBAL:QUOTE> <DEFSTRUCT>))))

(SYSTEM:FASL-OP-FRAME
<TRANSFORMATION-TYPE-PRETTY-IMPERATIVE>
 20 PUSH ARG|0
 21 (MISC) LENGTH D-PDL
 22 < '2
 23 BR-NOT-NIL 28
 24 PUSH ARG|0
 25 (MISC) LENGTH D-PDL
 26 > '2
 27 BR-NIL 32
 28 CALL D-IGNORE FEF|6  ;'NIL
 29 PUSH ARG|0
 30 PUSH-NUMBER 1
 31 MOVE D-LAST '1
 32 CADR D-PDL ARG|0
 33 POP LOCAL|0
 34 PUSH FEF|7  ;'<TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE>
 35 PUSH FEF|8  ;'<TRANSFORMATION-TYPE-PRETTY-NAMES>
 36 PUSH LOCAL|0
 37 PUSH-NUMBER 2
 38 (MISC) %INTERNAL-LIST D-PDL
 39 PUSH-NUMBER 2
 40 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [1174] {#<DTP-FEF-POINTER <TRANSFORMATION-TYPE-PRETTY-IMPERATIVE> 63150334>})
 => (<MACRO> . #<DTP-FEF-POINTER <TRANSFORMATION-TYPE-PRETTY-IMPERATIVE> 63150334>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1175] {(<MACRO> . #<DTP-FEF-POINTER <TRANSFORMATION-TYPE-PRETTY-IMPERATIVE> 63150334>)}
  (SYSTEM:FASL-OP-INDEX [1155] {<TRANSFORMATION-TYPE-PRETTY-IMPERATIVE>}))

(SYSTEM:FASL-OP-FRAME
<TRANSFORMATION-TYPE-PRETTY-PRESENT-PARTICIPLE>
 20 PUSH ARG|0
 21 (MISC) LENGTH D-PDL
 22 < '2
 23 BR-NOT-NIL 28
 24 PUSH ARG|0
 25 (MISC) LENGTH D-PDL
 26 > '2
 27 BR-NIL 32
 28 CALL D-IGNORE FEF|6  ;'NIL
 29 PUSH ARG|0
 30 PUSH-NUMBER 1
 31 MOVE D-LAST '1
 32 CADR D-PDL ARG|0
 33 POP LOCAL|0
 34 PUSH FEF|7  ;'<TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE>
 35 PUSH FEF|8  ;'<TRANSFORMATION-TYPE-PRETTY-NAMES>
 36 PUSH LOCAL|0
 37 PUSH-NUMBER 2
 38 (MISC) %INTERNAL-LIST D-PDL
 39 PUSH-NUMBER 2
 40 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [1197] {#<DTP-FEF-POINTER <TRANSFORMATION-TYPE-PRETTY-PRESENT-PARTICIPLE> 63151013>})
 => (<MACRO> . #<DTP-FEF-POINTER <TRANSFORMATION-TYPE-PRETTY-PRESENT-PARTICIPLE> 63151013>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1198] {(<MACRO> . #<DTP-FEF-POINTER <TRANSFORMATION-TYPE-PRETTY-PRESENT-PARTICIPLE> 63151013>)}
  (SYSTEM:FASL-OP-INDEX [1178] {<TRANSFORMATION-TYPE-PRETTY-PRESENT-PARTICIPLE>}))

(SYSTEM:FASL-OP-FRAME
<TRANSFORMATION-TYPE-PRETTY-PAST-PARTICIPLE>
 20 PUSH ARG|0
 21 (MISC) LENGTH D-PDL
 22 < '2
 23 BR-NOT-NIL 28
 24 PUSH ARG|0
 25 (MISC) LENGTH D-PDL
 26 > '2
 27 BR-NIL 32
 28 CALL D-IGNORE FEF|6  ;'NIL
 29 PUSH ARG|0
 30 PUSH-NUMBER 1
 31 MOVE D-LAST '1
 32 CADR D-PDL ARG|0
 33 POP LOCAL|0
 34 PUSH FEF|7  ;'<TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE>
 35 PUSH FEF|8  ;'<TRANSFORMATION-TYPE-PRETTY-NAMES>
 36 PUSH LOCAL|0
 37 PUSH-NUMBER 2
 38 (MISC) %INTERNAL-LIST D-PDL
 39 PUSH-NUMBER 2
 40 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [1220] {#<DTP-FEF-POINTER <TRANSFORMATION-TYPE-PRETTY-PAST-PARTICIPLE> 63151513>})
 => (<MACRO> . #<DTP-FEF-POINTER <TRANSFORMATION-TYPE-PRETTY-PAST-PARTICIPLE> 63151513>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1221] {(<MACRO> . #<DTP-FEF-POINTER <TRANSFORMATION-TYPE-PRETTY-PAST-PARTICIPLE> 63151513>)}
  (SYSTEM:FASL-OP-INDEX [1201] {<TRANSFORMATION-TYPE-PRETTY-PAST-PARTICIPLE>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <FILE-TRANSFORMATION-ARGS>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-SYMBOL <FILE-TRANSFORMATION>)
      (SYSTEM:FASL-OP-SYMBOL <ARGS>)
     => (<FILE-TRANSFORMATION> . <ARGS>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <FILE-TRANSFORMATION-ARGS> (<FILE-TRANSFORMATION> . <ARGS>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <FILE-TRANSFORMATION-ARGS> (<FILE-TRANSFORMATION> . <ARGS>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<FILE-TRANSFORMATION-ARGS>
 14 PUSH-NUMBER 6
 15 PUSH ARG|0
 16 (MISC) NTHCDR D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1249] {#<DTP-FEF-POINTER <FILE-TRANSFORMATION-ARGS> 63153340>}
  (SYSTEM:FASL-OP-INDEX [1222] {<FILE-TRANSFORMATION-ARGS>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <FILE-TRANSFORMATION-OUTPUTS>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [1223] {<FILE-TRANSFORMATION>})
      (SYSTEM:FASL-OP-SYMBOL <OUTPUTS>)
     => (<FILE-TRANSFORMATION> . <OUTPUTS>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <FILE-TRANSFORMATION-OUTPUTS> (<FILE-TRANSFORMATION> . <OUTPUTS>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <FILE-TRANSFORMATION-OUTPUTS> (<FILE-TRANSFORMATION> . <OUTPUTS>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<FILE-TRANSFORMATION-OUTPUTS>
 14 PUSH-NUMBER 5
 15 PUSH ARG|0
 16 (MISC) NTH D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1277] {#<DTP-FEF-POINTER <FILE-TRANSFORMATION-OUTPUTS> 63154055>}
  (SYSTEM:FASL-OP-INDEX [1250] {<FILE-TRANSFORMATION-OUTPUTS>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <FILE-TRANSFORMATION-CONDITION-FUNCTION>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [1223] {<FILE-TRANSFORMATION>})
      (SYSTEM:FASL-OP-INDEX [711] {<CONDITION-FUNCTION>})
     => (<FILE-TRANSFORMATION> . <CONDITION-FUNCTION>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <FILE-TRANSFORMATION-CONDITION-FUNCTION> (<FILE-TRANSFORMATION> . <CONDITION-FUNCTION>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <FILE-TRANSFORMATION-CONDITION-FUNCTION> (<FILE-TRANSFORMATION> . <CONDITION-FUNCTION>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<FILE-TRANSFORMATION-CONDITION-FUNCTION>
 14 PUSH-NUMBER 4
 15 PUSH ARG|0
 16 (MISC) NTH D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1304] {#<DTP-FEF-POINTER <FILE-TRANSFORMATION-CONDITION-FUNCTION> 63154705>}
  (SYSTEM:FASL-OP-INDEX [1278] {<FILE-TRANSFORMATION-CONDITION-FUNCTION>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <FILE-TRANSFORMATION-SYSTEM>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [1223] {<FILE-TRANSFORMATION>})
      (SYSTEM:FASL-OP-INDEX [222] {<SYSTEM>})
     => (<FILE-TRANSFORMATION> . <SYSTEM>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <FILE-TRANSFORMATION-SYSTEM> (<FILE-TRANSFORMATION> . <SYSTEM>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <FILE-TRANSFORMATION-SYSTEM> (<FILE-TRANSFORMATION> . <SYSTEM>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<FILE-TRANSFORMATION-SYSTEM>
 14 PUSH ARG|0
 15 (MISC) CADDDR D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1329] {#<DTP-FEF-POINTER <FILE-TRANSFORMATION-SYSTEM> 63155425>}
  (SYSTEM:FASL-OP-INDEX [1305] {<FILE-TRANSFORMATION-SYSTEM>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <FILE-TRANSFORMATION-FORCE-PACKAGE>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [1223] {<FILE-TRANSFORMATION>})
      (SYSTEM:FASL-OP-SYMBOL <FORCE-PACKAGE>)
     => (<FILE-TRANSFORMATION> . <FORCE-PACKAGE>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <FILE-TRANSFORMATION-FORCE-PACKAGE> (<FILE-TRANSFORMATION> . <FORCE-PACKAGE>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <FILE-TRANSFORMATION-FORCE-PACKAGE> (<FILE-TRANSFORMATION> . <FORCE-PACKAGE>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<FILE-TRANSFORMATION-FORCE-PACKAGE>
 14 PUSH ARG|0
 15 (MISC) CADDR D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1357] {#<DTP-FEF-POINTER <FILE-TRANSFORMATION-FORCE-PACKAGE> 63156167>}
  (SYSTEM:FASL-OP-INDEX [1330] {<FILE-TRANSFORMATION-FORCE-PACKAGE>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <FILE-TRANSFORMATION-TRANSFORMATION-TYPE>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [1223] {<FILE-TRANSFORMATION>})
      (SYSTEM:FASL-OP-INDEX [793] {<TRANSFORMATION-TYPE>})
     => (<FILE-TRANSFORMATION> . <TRANSFORMATION-TYPE>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <FILE-TRANSFORMATION-TRANSFORMATION-TYPE> (<FILE-TRANSFORMATION> . <TRANSFORMATION-TYPE>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <FILE-TRANSFORMATION-TRANSFORMATION-TYPE> (<FILE-TRANSFORMATION> . <TRANSFORMATION-TYPE>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<FILE-TRANSFORMATION-TRANSFORMATION-TYPE>
 14 CADR D-RETURN ARG|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1382] {#<DTP-FEF-POINTER <FILE-TRANSFORMATION-TRANSFORMATION-TYPE> 63156703>}
  (SYSTEM:FASL-OP-INDEX [1358] {<FILE-TRANSFORMATION-TRANSFORMATION-TYPE>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <FILE-TRANSFORMATION-STATE>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [1223] {<FILE-TRANSFORMATION>})
      (SYSTEM:FASL-OP-SYMBOL <STATE>)
     => (<FILE-TRANSFORMATION> . <STATE>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <FILE-TRANSFORMATION-STATE> (<FILE-TRANSFORMATION> . <STATE>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <FILE-TRANSFORMATION-STATE> (<FILE-TRANSFORMATION> . <STATE>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<FILE-TRANSFORMATION-STATE>
 14 CAR D-RETURN ARG|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1410] {#<DTP-FEF-POINTER <FILE-TRANSFORMATION-STATE> 63160433>}
  (SYSTEM:FASL-OP-INDEX [1383] {<FILE-TRANSFORMATION-STATE>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [390] {<PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [1223] {<FILE-TRANSFORMATION>})
     => (<GLOBAL:QUOTE> <FILE-TRANSFORMATION>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [24] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [392] {<ONE>})
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-INDEX [32] {""})
          (SYSTEM:FASL-OP-STRING "LIST*")
          <:LIST*>)
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-LIST [7] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [1384] {<STATE>})
            (SYSTEM:FASL-OP-FIXED 0)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [1383] {<FILE-TRANSFORMATION-STATE>})
            (SYSTEM:FASL-OP-INDEX [1393] {"One of NIL, :PENDING, :DONE, :NOT-NEEDED or :REFUSED"})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<STATE> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-STATE> "One of NIL, :PENDING, :DONE, :NOT-NEEDED or :REFUSED" <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [793] {<TRANSFORMATION-TYPE>})
            (SYSTEM:FASL-OP-FIXED 1)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [400] {<%%DEFSTRUCT-EMPTY%%>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [1358] {<FILE-TRANSFORMATION-TRANSFORMATION-TYPE>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<TRANSFORMATION-TYPE> 1 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-TRANSFORMATION-TYPE> <NIL> <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [1331] {<FORCE-PACKAGE>})
            (SYSTEM:FASL-OP-FIXED 2)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [1330] {<FILE-TRANSFORMATION-FORCE-PACKAGE>})
            (SYSTEM:FASL-OP-INDEX [1340] {"A symbol; transformation takes place there"})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<FORCE-PACKAGE> 2 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-FORCE-PACKAGE> "A symbol; transformation takes place there" <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [222] {<SYSTEM>})
            (SYSTEM:FASL-OP-FIXED 3)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [400] {<%%DEFSTRUCT-EMPTY%%>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [1305] {<FILE-TRANSFORMATION-SYSTEM>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<SYSTEM> 3 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-SYSTEM> <NIL> <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [711] {<CONDITION-FUNCTION>})
            (SYSTEM:FASL-OP-FIXED 4)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [1278] {<FILE-TRANSFORMATION-CONDITION-FUNCTION>})
            (SYSTEM:FASL-OP-INDEX [1287] {"A symbol or closure"})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<CONDITION-FUNCTION> 4 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-CONDITION-FUNCTION> "A symbol or closure" <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [1251] {<OUTPUTS>})
            (SYSTEM:FASL-OP-FIXED 5)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [1250] {<FILE-TRANSFORMATION-OUTPUTS>})
            (SYSTEM:FASL-OP-INDEX [1260] {"An NTHCDR of FILE-TRANSFORMATION-ARGS"})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<OUTPUTS> 5 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-OUTPUTS> "An NTHCDR of FILE-TRANSFORMATION-ARGS" <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [1224] {<ARGS>})
            (SYSTEM:FASL-OP-FIXED 6)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [400] {<%%DEFSTRUCT-EMPTY%%>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [1222] {<FILE-TRANSFORMATION-ARGS>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<ARGS> 6 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-ARGS> <NIL> <NIL> <NIL>))
         => ((<STATE> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-STATE> "One of NIL, :PENDING, :DONE, :NOT-NEEDED or :REFUSED" <NIL> <NIL>) (<TRANSFORMATION-TYPE> 1 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-TRANSFORMATION-TYPE> <NIL> <NIL> <NIL>) (<FORCE-PACKAGE> 2 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-FORCE-PACKAGE> "A symbol; transformation takes place there" <NIL> <NIL>) (<SYSTEM> 3 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-SYSTEM> <NIL> <NIL> <NIL>) (<CONDITION-FUNCTION> 4 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-CONDITION-FUNCTION> "A symbol or closure" <NIL> <NIL>) (<OUTPUTS> 5 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-OUTPUTS> "An NTHCDR of FILE-TRANSFORMATION-ARGS" <NIL> <NIL>) (<ARGS> 6 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-ARGS> <NIL> <NIL> <NIL>)))
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-SYMBOL <MAKE-FILE-TRANSFORMATION>)
           => (<MAKE-FILE-TRANSFORMATION>))
         => ((<MAKE-FILE-TRANSFORMATION>)))
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-FIXED 7)
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [1223] {<FILE-TRANSFORMATION>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-FIXED 0)
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-SYMBOL <FILE-TRANSFORMATION->)
        (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
       => (<ONE> <:LIST*> <NIL> ((<STATE> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-STATE> "One of NIL, :PENDING, :DONE, :NOT-NEEDED or :REFUSED" <NIL> <NIL>) (<TRANSFORMATION-TYPE> 1 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-TRANSFORMATION-TYPE> <NIL> <NIL> <NIL>) (<FORCE-PACKAGE> 2 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-FORCE-PACKAGE> "A symbol; transformation takes place there" <NIL> <NIL>) (<SYSTEM> 3 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-SYSTEM> <NIL> <NIL> <NIL>) (<CONDITION-FUNCTION> 4 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-CONDITION-FUNCTION> "A symbol or closure" <NIL> <NIL>) (<OUTPUTS> 5 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-OUTPUTS> "An NTHCDR of FILE-TRANSFORMATION-ARGS" <NIL> <NIL>) (<ARGS> 6 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-ARGS> <NIL> <NIL> <NIL>)) <NIL> ((<MAKE-FILE-TRANSFORMATION>)) <NIL> <NIL> 7 <NIL> <FILE-TRANSFORMATION> <NIL> 0 <NIL> <NIL> <FILE-TRANSFORMATION-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL>))
     => (<GLOBAL:QUOTE> (<ONE> <:LIST*> <NIL> ((<STATE> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-STATE> "One of NIL, :PENDING, :DONE, :NOT-NEEDED or :REFUSED" <NIL> <NIL>) (<TRANSFORMATION-TYPE> 1 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-TRANSFORMATION-TYPE> <NIL> <NIL> <NIL>) (<FORCE-PACKAGE> 2 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-FORCE-PACKAGE> "A symbol; transformation takes place there" <NIL> <NIL>) (<SYSTEM> 3 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-SYSTEM> <NIL> <NIL> <NIL>) (<CONDITION-FUNCTION> 4 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-CONDITION-FUNCTION> "A symbol or closure" <NIL> <NIL>) (<OUTPUTS> 5 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-OUTPUTS> "An NTHCDR of FILE-TRANSFORMATION-ARGS" <NIL> <NIL>) (<ARGS> 6 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-ARGS> <NIL> <NIL> <NIL>)) <NIL> ((<MAKE-FILE-TRANSFORMATION>)) <NIL> <NIL> 7 <NIL> <FILE-TRANSFORMATION> <NIL> 0 <NIL> <NIL> <FILE-TRANSFORMATION-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [418] {<DEFSTRUCT-DESCRIPTION>})
     => (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>))
   => (<PUTPROP> (<GLOBAL:QUOTE> <FILE-TRANSFORMATION>) (<GLOBAL:QUOTE> (<ONE> <:LIST*> <NIL> ((<STATE> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-STATE> "One of NIL, :PENDING, :DONE, :NOT-NEEDED or :REFUSED" <NIL> <NIL>) (<TRANSFORMATION-TYPE> 1 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-TRANSFORMATION-TYPE> <NIL> <NIL> <NIL>) (<FORCE-PACKAGE> 2 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-FORCE-PACKAGE> "A symbol; transformation takes place there" <NIL> <NIL>) (<SYSTEM> 3 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-SYSTEM> <NIL> <NIL> <NIL>) (<CONDITION-FUNCTION> 4 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-CONDITION-FUNCTION> "A symbol or closure" <NIL> <NIL>) (<OUTPUTS> 5 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-OUTPUTS> "An NTHCDR of FILE-TRANSFORMATION-ARGS" <NIL> <NIL>) (<ARGS> 6 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-ARGS> <NIL> <NIL> <NIL>)) <NIL> ((<MAKE-FILE-TRANSFORMATION>)) <NIL> <NIL> 7 <NIL> <FILE-TRANSFORMATION> <NIL> 0 <NIL> <NIL> <FILE-TRANSFORMATION-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL>)) (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>)))
  (EVAL '(<PUTPROP> (<GLOBAL:QUOTE> <FILE-TRANSFORMATION>) (<GLOBAL:QUOTE> (<ONE> <:LIST*> <NIL> ((<STATE> 0 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-STATE> "One of NIL, :PENDING, :DONE, :NOT-NEEDED or :REFUSED" <NIL> <NIL>) (<TRANSFORMATION-TYPE> 1 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-TRANSFORMATION-TYPE> <NIL> <NIL> <NIL>) (<FORCE-PACKAGE> 2 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-FORCE-PACKAGE> "A symbol; transformation takes place there" <NIL> <NIL>) (<SYSTEM> 3 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-SYSTEM> <NIL> <NIL> <NIL>) (<CONDITION-FUNCTION> 4 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-CONDITION-FUNCTION> "A symbol or closure" <NIL> <NIL>) (<OUTPUTS> 5 <NIL> <NIL> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-OUTPUTS> "An NTHCDR of FILE-TRANSFORMATION-ARGS" <NIL> <NIL>) (<ARGS> 6 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <FILE-TRANSFORMATION-ARGS> <NIL> <NIL> <NIL>)) <NIL> ((<MAKE-FILE-TRANSFORMATION>)) <NIL> <NIL> 7 <NIL> <FILE-TRANSFORMATION> <NIL> 0 <NIL> <NIL> <FILE-TRANSFORMATION-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL>)) (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [390] {<PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [1429] {<MAKE-FILE-TRANSFORMATION>})
     => (<GLOBAL:QUOTE> <MAKE-FILE-TRANSFORMATION>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [1223] {<FILE-TRANSFORMATION>})
     => (<GLOBAL:QUOTE> <FILE-TRANSFORMATION>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [424] {<DEFSTRUCT-NAME>})
     => (<GLOBAL:QUOTE> <DEFSTRUCT-NAME>))
   => (<PUTPROP> (<GLOBAL:QUOTE> <MAKE-FILE-TRANSFORMATION>) (<GLOBAL:QUOTE> <FILE-TRANSFORMATION>) (<GLOBAL:QUOTE> <DEFSTRUCT-NAME>)))
  (EVAL '(<PUTPROP> (<GLOBAL:QUOTE> <MAKE-FILE-TRANSFORMATION>) (<GLOBAL:QUOTE> <FILE-TRANSFORMATION>) (<GLOBAL:QUOTE> <DEFSTRUCT-NAME>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [428] {<DEFF-MACRO>})
    (SYSTEM:FASL-OP-INDEX [1429] {<MAKE-FILE-TRANSFORMATION>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [430] {(<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>)})
     => (<GLOBAL:QUOTE> (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>)))
   => (<DEFF-MACRO> <MAKE-FILE-TRANSFORMATION> (<GLOBAL:QUOTE> (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>))))
  (EVAL '(<DEFF-MACRO> <MAKE-FILE-TRANSFORMATION> (<GLOBAL:QUOTE> (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>)))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [434] {<RECORD-SOURCE-FILE-NAME>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [1223] {<FILE-TRANSFORMATION>})
     => (<GLOBAL:QUOTE> <FILE-TRANSFORMATION>))
    (SYSTEM:FASL-OP-INDEX [437] {(<GLOBAL:QUOTE> <DEFSTRUCT>)})
   => (<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <FILE-TRANSFORMATION>) (<GLOBAL:QUOTE> <DEFSTRUCT>)))
  (EVAL '(<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <FILE-TRANSFORMATION>) (<GLOBAL:QUOTE> <DEFSTRUCT>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <DEFSYSTEM>)
    (SYSTEM:FASL-OP-STRING "System")
    (SYSTEM:FASL-OP-SYMBOL <DEFINITION-TYPE-NAME>)
   => (<DEFPROP> <DEFSYSTEM> "System" <DEFINITION-TYPE-NAME>))
  (EVAL '(<DEFPROP> <DEFSYSTEM> "System" <DEFINITION-TYPE-NAME>)))

(SYSTEM:FASL-OP-FRAME
<DEFSYSTEM>
 28 PUSH ARG|0
 29 (MISC) LENGTH D-PDL
 30 < '2
 31 BR-NIL 36
 32 CALL D-IGNORE FEF|7  ;'NIL
 33 PUSH ARG|0
 34 PUSH-NUMBER 1
 35 MOVE D-LAST 'NIL
 36 CADR D-PDL ARG|0
 37 POP LOCAL|0
 38 CDDR D-PDL ARG|0
 39 POP LOCAL|1
 40 CALL D-PDL FEF|8  ;'NIL
 41 CALL D-PDL FEF|9  ;'NIL
 42 MOVE D-LAST LOCAL|0
 43 MOVE D-LAST FEF|6  ;':PKG-KEYWORD-PACKAGE
 44 POP LOCAL|2
 45 PUSH FEF|10  ;'<DEFSYSTEM-1>
 46 PUSH FEF|11  ;'<GLOBAL:QUOTE>
 47 PUSH LOCAL|2
 48 PUSH-NUMBER 2
 49 (MISC) %INTERNAL-LIST D-PDL
 50 PUSH FEF|11  ;'<GLOBAL:QUOTE>
 51 CALL D-PDL FEF|12  ;'NIL
 52 MOVE D-LAST LOCAL|1
 53 PUSH-NUMBER 2
 54 (MISC) %INTERNAL-LIST D-PDL
 55 PUSH-NUMBER 3
 56 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [1494] {#<DTP-FEF-POINTER <DEFSYSTEM> 63172362>})
 => (<MACRO> . #<DTP-FEF-POINTER <DEFSYSTEM> 63172362>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1495] {(<MACRO> . #<DTP-FEF-POINTER <DEFSYSTEM> 63172362>)}
  (SYSTEM:FASL-OP-INDEX [1451] {<DEFSYSTEM>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-SYMBOL <DEFVAR-1>)
    (SYSTEM:FASL-OP-SYMBOL <*DEFSYSTEM-SPECIAL-VARIABLES*>)
    (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
   => (<DEFVAR-1> <*DEFSYSTEM-SPECIAL-VARIABLES*> <NIL>))
  (EVAL '(<DEFVAR-1> <*DEFSYSTEM-SPECIAL-VARIABLES*> <NIL>)))

(SYSTEM:FASL-OP-FRAME
<DEFINE-DEFSYSTEM-SPECIAL-VARIABLE>
 20 PUSH ARG|0
 21 (MISC) LENGTH D-PDL
 22 < '3
 23 BR-NOT-NIL 28
 24 PUSH ARG|0
 25 (MISC) LENGTH D-PDL
 26 > '3
 27 BR-NIL 32
 28 CALL D-IGNORE FEF|6  ;'NIL
 29 PUSH ARG|0
 30 PUSH-NUMBER 2
 31 MOVE D-LAST '2
 32 CADR D-PDL ARG|0
 33 POP LOCAL|0
 34 PUSH ARG|0
 35 (MISC) CADDR D-PDL
 36 POP LOCAL|1
 37 PUSH FEF|7  ;'<DEFINE-SPECIAL-VARIABLE>
 38 PUSH LOCAL|0
 39 PUSH LOCAL|1
 40 PUSH FEF|8  ;'(<*DEFSYSTEM-SPECIAL-VARIABLES*>)
 41 PUSH-NUMBER 4
 42 (MISC) %INTERNAL-LIST* D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [1524] {#<DTP-FEF-POINTER <DEFINE-DEFSYSTEM-SPECIAL-VARIABLE> 63177504>})
 => (<MACRO> . #<DTP-FEF-POINTER <DEFINE-DEFSYSTEM-SPECIAL-VARIABLE> 63177504>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1525] {(<MACRO> . #<DTP-FEF-POINTER <DEFINE-DEFSYSTEM-SPECIAL-VARIABLE> 63177504>)}
  (SYSTEM:FASL-OP-INDEX [1502] {<DEFINE-DEFSYSTEM-SPECIAL-VARIABLE>}))

(SYSTEM:FASL-OP-FRAME
<CONSTRUCT-SYSTEM>
 20 CALL D-PDL FEF|6  ;'NIL
 21 MOVE D-LAST '7
 22 POP LOCAL|0
 23 CALL D-IGNORE FEF|7  ;'NIL
 24 PUSH LOCAL|0
 25 MOVE D-LAST FEF|8  ;'<SYSTEM>
 26 MOVE D-RETURN LOCAL|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1540] {#<DTP-FEF-POINTER <CONSTRUCT-SYSTEM> 63200142>}
  (SYSTEM:FASL-OP-INDEX [1528] {<CONSTRUCT-SYSTEM>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*SYSTEM-BEING-DEFINED*>)
   => (<DEFVAR-1> <*SYSTEM-BEING-DEFINED*>))
  (EVAL '(<DEFVAR-1> <*SYSTEM-BEING-DEFINED*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [1541] {<*SYSTEM-BEING-DEFINED*>})
     => (<GLOBAL:QUOTE> <*SYSTEM-BEING-DEFINED*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [1528] {<CONSTRUCT-SYSTEM>})
       => (<CONSTRUCT-SYSTEM>))
     => (<GLOBAL:QUOTE> (<CONSTRUCT-SYSTEM>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [1497] {<*DEFSYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*DEFSYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*SYSTEM-BEING-DEFINED*>) (<GLOBAL:QUOTE> (<CONSTRUCT-SYSTEM>)) (<GLOBAL:QUOTE> <*DEFSYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*SYSTEM-BEING-DEFINED*>) (<GLOBAL:QUOTE> (<CONSTRUCT-SYSTEM>)) (<GLOBAL:QUOTE> <*DEFSYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-FRAME
<RECORD-SYSTEM-NAME-IN-PATHNAMES>
 34 CALL D-PDL FEF|6  ;'NIL
 35 PUSH ARG|1
 36 AR-1 (6) D-PDL
 37 MOVE D-LAST FEF|7  ;'<DEFAULT-BINARY-FILE-TYPE>
 38 POP LOCAL|0
 39 CALL D-PDL FEF|8  ;'NIL
 40 PUSH ARG|1
 41 PUSH FEF|9  ;'<:ALL>
 42 PUSH 'NIL
 43 MOVE D-LAST 'NIL
 44 MOVEM LOCAL|1
 45 POP LOCAL|2
 46 BR-NIL 77
 47 CAR D-PDL LOCAL|2
 48 POP LOCAL|3
 49 CALL D-PDL LOCAL|3
 50 MOVE D-LAST FEF|10  ;'<:GENERIC-PATHNAME>
 51 POP LOCAL|4
 52 CALL D-PDL LOCAL|4
 53 PUSH FEF|11  ;'<:GET>
 54 MOVE D-LAST FEF|12  ;'<:SYSTEMS>
 55 POP LOCAL|5
 56 PUSH ARG|0
 57 PUSH LOCAL|5
 58 (MISC) MEMQ D-IGNORE
 59 BR-NOT-NIL 66
 60 CALL D-IGNORE LOCAL|4
 61 PUSH FEF|13  ;'<:PUTPROP>
 62 PUSH ARG|0
 63 PUSH LOCAL|5
 64 (MISC) CONS D-PDL
 65 MOVE D-LAST FEF|12  ;'<:SYSTEMS>
 66 MOVE D-IGNORE LOCAL|0
 67 BR-NIL 72
 68 CALL D-IGNORE LOCAL|4
 69 PUSH FEF|13  ;'<:PUTPROP>
 70 PUSH LOCAL|0
 71 BR 74
 72 CALL D-IGNORE LOCAL|4
 73 PUSH FEF|14  ;'<:REMPROP>
 74 MOVE D-LAST FEF|15  ;'<:DEFAULT-BINARY-FILE-TYPE>
 75 SETE-CDR LOCAL|2
 76 BR-NOT-NIL 47
 77 MOVE D-RETURN LOCAL|1
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1598] {#<DTP-FEF-POINTER <RECORD-SYSTEM-NAME-IN-PATHNAMES> 63205775>}
  (SYSTEM:FASL-OP-INDEX [1552] {<RECORD-SYSTEM-NAME-IN-PATHNAMES>}))

(SYSTEM:FASL-OP-FRAME
<DEFSYSTEM-1>
Arg 0 (NIL) is required, local, not initialized.
Arg 1 (NIL) is required, local, not initialized.
Arg 2 (NIL) is optional, local, initialized to '<GLOBAL:T>.
Arg 3 (NIL) is optional, local, initialized to NIL.

 64 CALL D-IGNORE FEF|19  ;'NIL
 65 PUSH ARG|0
 66 MOVE D-LAST FEF|20  ;'<DEFSYSTEM>
 67 BR-NIL 142
 68 PUSH FEF|8  ;':*DEFSYSTEM-SPECIAL-VARIABLES*
 69 POP LOCAL|0
 70 (MISC) SPECIAL-PDL-INDEX D-PDL
 71 MOVE D-IGNORE LOCAL|0
 72 BR-NIL 81
 73 CAAR D-PDL LOCAL|0
 74 (MISC) VALUE-CELL-LOCATION D-PDL
 75 CALL D-PDL FEF|21  ;'NIL
 76 PUSH LOCAL|0
 77 (MISC) CADAR D-LAST
 78 (MISC) %BIND D-IGNORE
 79 SETE-CDR LOCAL|0
 80 BR-NOT-NIL 73
 81 PUSH FEF|7  ;':*SYSTEM-BEING-DEFINED*
 82 AR-1 (6) D-PDL
 83 MOVEM LOCAL|1
 84 POP LOCAL|2
 85 BR-NIL 95
 86 CAR D-PDL LOCAL|2
 87 EQ FEF|22  ;'<:SYMBOLIC-NAME>
 88 BR-NIL 93
 89 CDR D-PDL LOCAL|2
 90 PUSH ARG|0
 91 (MISC) SETCAR D-IGNORE
 92 BR 104
 93 SETE-CDDR LOCAL|2
 94 BR-NOT-NIL 86
 95 PUSH FEF|22  ;'<:SYMBOLIC-NAME>
 96 PUSH ARG|0
 97 PUSH LOCAL|1
 98 PUSH-NUMBER 3
 99 (MISC) %INTERNAL-LIST* D-PDL
100 POP LOCAL|1
101 PUSH FEF|7  ;':*SYSTEM-BEING-DEFINED*
102 PUSH LOCAL|1
103 SET-AR-1 (6) D-IGNORE
104 PUSH FEF|7  ;':*SYSTEM-BEING-DEFINED*
105 CALL D-PDL FEF|23  ;'NIL
106 MOVE D-LAST ARG|0
107 SET-AR-1 (1) D-IGNORE
108 PUSH ARG|1
109 SET-NIL LOCAL|3
110 POP LOCAL|2
111 BR-NIL 118
112 CAR D-PDL LOCAL|2
113 POP LOCAL|3
114 CALL D-IGNORE FEF|24  ;'NIL
115 MOVE D-LAST LOCAL|3
116 SETE-CDR LOCAL|2
117 BR-NOT-NIL 112
118 PUSH FEF|7  ;':*SYSTEM-BEING-DEFINED*
119 AR-1 (2) D-IGNORE
120 BR-NIL 125
121 MOVE D-IGNORE FEF|6  ;':*COMPONENTS-ALREADY-DONE*
122 BR-NOT-NIL 125
123 CALL D-IGNORE FEF|24  ;'NIL
124 MOVE D-LAST FEF|25  ;'(<DO-COMPONENTS-INTERNAL> <NIL>)
125 CALL D-IGNORE FEF|26  ;'NIL
126 PUSH FEF|7  ;':*SYSTEM-BEING-DEFINED*
127 AR-1 (6) D-PDL
128 MOVE D-LAST FEF|27  ;'<:PATCH-DIRECTORY>
129 BR-NIL 132
130 CALL D-IGNORE FEF|24  ;'NIL
131 MOVE D-LAST FEF|28  ;'(<PATCHABLE-INTERNAL>)
132 MOVE D-IGNORE ARG|2
133 BR-NIL 136
134 CALL D-IGNORE FEF|29  ;'NIL
135 MOVE D-LAST FEF|7  ;':*SYSTEM-BEING-DEFINED*
136 MOVE D-IGNORE ARG|3
137 BR-NOT-NIL 141
138 CALL D-IGNORE FEF|30  ;'NIL
139 PUSH ARG|0
140 MOVE D-LAST FEF|7  ;':*SYSTEM-BEING-DEFINED*
141 (MISC) UNBIND-TO-INDEX D-IGNORE
142 MOVE D-RETURN ARG|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1650] {#<DTP-FEF-POINTER <DEFSYSTEM-1> 63206777>}
  (SYSTEM:FASL-OP-INDEX [1464] {<DEFSYSTEM-1>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-INDEX [1464] {<DEFSYSTEM-1>})
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
    (SYSTEM:FASL-OP-SYMBOL <QFASL-DONT-RECORD>)
   => (<DEFPROP> <DEFSYSTEM-1> <GLOBAL:T> <QFASL-DONT-RECORD>))
  (EVAL '(<DEFPROP> <DEFSYSTEM-1> <GLOBAL:T> <QFASL-DONT-RECORD>)))

(SYSTEM:FASL-OP-FRAME
<CALL-DEFSYSTEM-MACRO>
 22 BR 42
 23 CAR D-PDL ARG|0
 24 PUSH FEF|6  ;'<DEFSYSTEM-MACRO>
 25 (MISC) INTERNAL-GET-2 D-PDL
 26 POP LOCAL|0
 27 CAR D-PDL LOCAL|0
 28 EQ FEF|7  ;'<MACRO>
 29 BR-NOT-NIL 34
 30 CALL D-IGNORE FEF|8  ;'NIL
 31 PUSH 'NIL
 32 PUSH FEF|9  ;'"~S is not a valid DEFSYSTEM form"
 33 MOVE D-LAST ARG|0
 34 CDR D-PDL LOCAL|0
 35 PUSH PDL-POP
 36 PUSH-NUMBER 3
 37 (MISC) %CALL-MULT-VALUE D-IGNORE
 38 MOVE D-LAST ARG|0
 39 POP LOCAL|2
 40 POP LOCAL|1
 41 POP ARG|0
 42 MOVE D-IGNORE ARG|0
 43 BR-NOT-NIL 23
 44 PUSH LOCAL|1
 45 PUSH LOCAL|2
 46 (MISC) %RETURN-2 D-IGNORE
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1675] {#<DTP-FEF-POINTER <CALL-DEFSYSTEM-MACRO> 63211665>}
  (SYSTEM:FASL-OP-INDEX [1617] {<CALL-DEFSYSTEM-MACRO>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*SYSTEMS-LIST*>)
    (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
    (SYSTEM:FASL-OP-STRING "A list of all the systems in this world.
Each entry can be either a system structure, a string, or a symbol.
A string or symbol indicates that the system hasn't yet been loaded.")
   => (<DEFVAR-1> <*SYSTEMS-LIST*> <NIL> "A list of all the systems in this world.
Each entry can be either a system structure, a string, or a symbol.
A string or symbol indicates that the system hasn't yet been loaded."))
  (EVAL '(<DEFVAR-1> <*SYSTEMS-LIST*> <NIL> "A list of all the systems in this world.
Each entry can be either a system structure, a string, or a symbol.
A string or symbol indicates that the system hasn't yet been loaded.")))

(SYSTEM:FASL-OP-FRAME
<ADD-SYSTEM>
 20 PUSH ARG|0
 21 CALL D-PDL FEF|7  ;'NIL
 22 PUSH FEF|8  ;'(<:INTERNAL> <ADD-SYSTEM> 0)
 23 PUSH ARG|0
 24 MOVE D-LAST FEF|6  ;':*SYSTEMS-LIST*
 25 (MISC) CONS D-PDL
 26 MOVEM FEF|6  ;':*SYSTEMS-LIST*
 27 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1704] {#<DTP-FEF-POINTER <ADD-SYSTEM> 63212454>}
  (SYSTEM:FASL-OP-INDEX [1624] {<ADD-SYSTEM>}))

(SYSTEM:FASL-OP-FRAME
(<:INTERNAL> <ADD-SYSTEM> 0)
 16 PUSH ARG|0
 17 PUSH FEF|6  ;'<SYSTEM>
 18 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 19 BR-NIL 23
 20 PUSH ARG|0
 21 AR-1 (1) D-PDL
 22 BR 24
 23 PUSH ARG|0
 24 PUSH ARG|1
 25 PUSH FEF|6  ;'<SYSTEM>
 26 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 27 BR-NIL 31
 28 PUSH ARG|1
 29 AR-1 (1) D-PDL
 30 (MISC) EQUALP D-RETURN
 31 PUSH ARG|1
 32 (MISC) EQUALP D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1722] {#<DTP-FEF-POINTER (<:INTERNAL> <ADD-SYSTEM> 0) 63213021>}
  (SYSTEM:FASL-OP-INDEX [1689] {(<:INTERNAL> <ADD-SYSTEM> 0)}))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-SHORT-NAME-INTERNAL>
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '2
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '1
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH FEF|7  ;'<GETF>
 37 PUSH FEF|8  ;'<SYSTEM-PLIST>
 38 PUSH LOCAL|0
 39 PUSH-NUMBER 2
 40 (MISC) %INTERNAL-LIST D-PDL
 41 PUSH FEF|9  ;'(<:SHORT-NAME>)
 42 PUSH-NUMBER 3
 43 (MISC) %INTERNAL-LIST* D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [1747] {#<DTP-FEF-POINTER <SYSTEM-SHORT-NAME-INTERNAL> 63213240>})
 => (<MACRO> . #<DTP-FEF-POINTER <SYSTEM-SHORT-NAME-INTERNAL> 63213240>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1748] {(<MACRO> . #<DTP-FEF-POINTER <SYSTEM-SHORT-NAME-INTERNAL> 63213240>)}
  (SYSTEM:FASL-OP-INDEX [1725] {<SYSTEM-SHORT-NAME-INTERNAL>}))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-NICKNAMES>
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '2
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '1
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH FEF|7  ;'<GETF>
 37 PUSH FEF|8  ;'<SYSTEM-PLIST>
 38 PUSH LOCAL|0
 39 PUSH-NUMBER 2
 40 (MISC) %INTERNAL-LIST D-PDL
 41 PUSH FEF|9  ;'(<:NICKNAMES>)
 42 PUSH-NUMBER 3
 43 (MISC) %INTERNAL-LIST* D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [1773] {#<DTP-FEF-POINTER <SYSTEM-NICKNAMES> 63213725>})
 => (<MACRO> . #<DTP-FEF-POINTER <SYSTEM-NICKNAMES> 63213725>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1774] {(<MACRO> . #<DTP-FEF-POINTER <SYSTEM-NICKNAMES> 63213725>)}
  (SYSTEM:FASL-OP-INDEX [1751] {<SYSTEM-NICKNAMES>}))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-SYMBOLIC-NAME>
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '2
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '1
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH FEF|7  ;'<GETF>
 37 PUSH FEF|8  ;'<SYSTEM-PLIST>
 38 PUSH LOCAL|0
 39 PUSH-NUMBER 2
 40 (MISC) %INTERNAL-LIST D-PDL
 41 PUSH FEF|9  ;'(<:SYMBOLIC-NAME>)
 42 PUSH-NUMBER 3
 43 (MISC) %INTERNAL-LIST* D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [1796] {#<DTP-FEF-POINTER <SYSTEM-SYMBOLIC-NAME> 63214430>})
 => (<MACRO> . #<DTP-FEF-POINTER <SYSTEM-SYMBOLIC-NAME> 63214430>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1797] {(<MACRO> . #<DTP-FEF-POINTER <SYSTEM-SYMBOLIC-NAME> 63214430>)}
  (SYSTEM:FASL-OP-INDEX [1633] {<SYSTEM-SYMBOLIC-NAME>}))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-WARNINGS-PATHNAME-DEFAULT>
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '2
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '1
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH FEF|7  ;'<GETF>
 37 PUSH FEF|8  ;'<SYSTEM-PLIST>
 38 PUSH LOCAL|0
 39 PUSH-NUMBER 2
 40 (MISC) %INTERNAL-LIST D-PDL
 41 PUSH FEF|9  ;'(<:WARNINGS-PATHNAME-DEFAULT>)
 42 PUSH-NUMBER 3
 43 (MISC) %INTERNAL-LIST* D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [1822] {#<DTP-FEF-POINTER <SYSTEM-WARNINGS-PATHNAME-DEFAULT> 63215024>})
 => (<MACRO> . #<DTP-FEF-POINTER <SYSTEM-WARNINGS-PATHNAME-DEFAULT> 63215024>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1823] {(<MACRO> . #<DTP-FEF-POINTER <SYSTEM-WARNINGS-PATHNAME-DEFAULT> 63215024>)}
  (SYSTEM:FASL-OP-INDEX [1800] {<SYSTEM-WARNINGS-PATHNAME-DEFAULT>}))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-MAINTAINING-SITES>
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '2
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '1
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH FEF|7  ;'<GETF>
 37 PUSH FEF|8  ;'<SYSTEM-PLIST>
 38 PUSH LOCAL|0
 39 PUSH-NUMBER 2
 40 (MISC) %INTERNAL-LIST D-PDL
 41 PUSH FEF|9  ;'(<:MAINTAINING-SITES>)
 42 PUSH-NUMBER 3
 43 (MISC) %INTERNAL-LIST* D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [1848] {#<DTP-FEF-POINTER <SYSTEM-MAINTAINING-SITES> 63215437>})
 => (<MACRO> . #<DTP-FEF-POINTER <SYSTEM-MAINTAINING-SITES> 63215437>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1849] {(<MACRO> . #<DTP-FEF-POINTER <SYSTEM-MAINTAINING-SITES> 63215437>)}
  (SYSTEM:FASL-OP-INDEX [1826] {<SYSTEM-MAINTAINING-SITES>}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:NAME> <DEFSYSTEM-MACRO>)
 24 PUSH ARG|0
 25 (MISC) LENGTH D-PDL
 26 < '2
 27 BR-NOT-NIL 32
 28 PUSH ARG|0
 29 (MISC) LENGTH D-PDL
 30 > '2
 31 BR-NIL 36
 32 CALL D-IGNORE FEF|7  ;'NIL
 33 PUSH ARG|0
 34 PUSH-NUMBER 1
 35 MOVE D-LAST '1
 36 CADR D-PDL ARG|0
 37 POP LOCAL|0
 38 CALL D-IGNORE FEF|8  ;'NIL
 39 PUSH LOCAL|0
 40 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 41 AR-1 (1) D-LAST
 42 BR-NOT-NIL 78
 43 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 44 AR-1 (1) D-PDL
 45 POP LOCAL|1
 46 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 47 POP LOCAL|2
 48 PUSH LOCAL|1
 49 CALL D-PDL FEF|9  ;'NIL
 50 PUSH LOCAL|2
 51 AR-1 (6) D-PDL
 52 MOVE D-LAST FEF|10  ;'<:NICKNAMES>
 53 (MISC) CONS D-PDL
 54 POP LOCAL|3
 55 PUSH LOCAL|2
 56 AR-1 (6) D-PDL
 57 MOVEM LOCAL|4
 58 POP LOCAL|5
 59 BR-NIL 69
 60 CAR D-PDL LOCAL|5
 61 EQ FEF|10  ;'<:NICKNAMES>
 62 BR-NIL 67
 63 CDR D-PDL LOCAL|5
 64 PUSH LOCAL|3
 65 (MISC) SETCAR D-IGNORE
 66 BR 78
 67 SETE-CDDR LOCAL|5
 68 BR-NOT-NIL 60
 69 PUSH FEF|10  ;'<:NICKNAMES>
 70 PUSH LOCAL|3
 71 PUSH LOCAL|4
 72 PUSH-NUMBER 3
 73 (MISC) %INTERNAL-LIST* D-PDL
 74 POP LOCAL|4
 75 PUSH LOCAL|2
 76 PUSH LOCAL|4
 77 SET-AR-1 (6) D-IGNORE
 78 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 79 PUSH LOCAL|0
 80 SET-AR-1 (1) D-IGNORE
 81 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [1873] {#<DTP-FEF-POINTER (<:PROPERTY> <:NAME> <DEFSYSTEM-MACRO>) 63216142>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:NAME> <DEFSYSTEM-MACRO>) 63216142>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1874] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:NAME> <DEFSYSTEM-MACRO>) 63216142>)}
  (SYSTEM:FASL-OP-INDEX [1854] {(<:PROPERTY> <:NAME> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:SHORT-NAME> <DEFSYSTEM-MACRO>)
 24 PUSH ARG|0
 25 (MISC) LENGTH D-PDL
 26 < '2
 27 BR-NOT-NIL 32
 28 PUSH ARG|0
 29 (MISC) LENGTH D-PDL
 30 > '2
 31 BR-NIL 36
 32 CALL D-IGNORE FEF|7  ;'NIL
 33 PUSH ARG|0
 34 PUSH-NUMBER 1
 35 MOVE D-LAST '1
 36 CADR D-PDL ARG|0
 37 POP LOCAL|0
 38 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 39 AR-1 (6) D-PDL
 40 MOVEM LOCAL|1
 41 POP LOCAL|2
 42 BR-NIL 52
 43 CAR D-PDL LOCAL|2
 44 EQ FEF|8  ;'<:SHORT-NAME>
 45 BR-NIL 50
 46 CDR D-PDL LOCAL|2
 47 PUSH LOCAL|0
 48 (MISC) SETCAR D-IGNORE
 49 BR 61
 50 SETE-CDDR LOCAL|2
 51 BR-NOT-NIL 43
 52 PUSH FEF|8  ;'<:SHORT-NAME>
 53 PUSH LOCAL|0
 54 PUSH LOCAL|1
 55 PUSH-NUMBER 3
 56 (MISC) %INTERNAL-LIST* D-PDL
 57 POP LOCAL|1
 58 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 59 PUSH LOCAL|1
 60 SET-AR-1 (6) D-IGNORE
 61 PUSH LOCAL|0
 62 CALL D-PDL FEF|9  ;'NIL
 63 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 64 AR-1 (6) D-PDL
 65 MOVE D-LAST FEF|10  ;'<:NICKNAMES>
 66 (MISC) CONS D-PDL
 67 POP LOCAL|2
 68 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 69 AR-1 (6) D-PDL
 70 MOVEM LOCAL|1
 71 POP LOCAL|3
 72 BR-NIL 82
 73 CAR D-PDL LOCAL|3
 74 EQ FEF|10  ;'<:NICKNAMES>
 75 BR-NIL 80
 76 CDR D-PDL LOCAL|3
 77 PUSH LOCAL|2
 78 (MISC) SETCAR D-IGNORE
 79 MOVE D-RETURN 'NIL
 80 SETE-CDDR LOCAL|3
 81 BR-NOT-NIL 73
 82 PUSH FEF|10  ;'<:NICKNAMES>
 83 PUSH LOCAL|2
 84 PUSH LOCAL|1
 85 PUSH-NUMBER 3
 86 (MISC) %INTERNAL-LIST* D-PDL
 87 POP LOCAL|1
 88 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 89 PUSH LOCAL|1
 90 SET-AR-1 (6) D-IGNORE
 91 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [1895] {#<DTP-FEF-POINTER (<:PROPERTY> <:SHORT-NAME> <DEFSYSTEM-MACRO>) 63217041>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:SHORT-NAME> <DEFSYSTEM-MACRO>) 63217041>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1896] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:SHORT-NAME> <DEFSYSTEM-MACRO>) 63217041>)}
  (SYSTEM:FASL-OP-INDEX [1877] {(<:PROPERTY> <:SHORT-NAME> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:NICKNAMES> <DEFSYSTEM-MACRO>)
 18 CDR D-PDL ARG|0
 19 POP LOCAL|0
 20 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 21 AR-1 (6) D-PDL
 22 MOVEM LOCAL|1
 23 POP LOCAL|2
 24 BR-NIL 34
 25 CAR D-PDL LOCAL|2
 26 EQ FEF|7  ;'<:NICKNAMES>
 27 BR-NIL 32
 28 CDR D-PDL LOCAL|2
 29 PUSH LOCAL|0
 30 (MISC) SETCAR D-IGNORE
 31 MOVE D-RETURN 'NIL
 32 SETE-CDDR LOCAL|2
 33 BR-NOT-NIL 25
 34 PUSH FEF|7  ;'<:NICKNAMES>
 35 PUSH LOCAL|0
 36 PUSH LOCAL|1
 37 PUSH-NUMBER 3
 38 (MISC) %INTERNAL-LIST* D-PDL
 39 POP LOCAL|1
 40 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 41 PUSH LOCAL|1
 42 SET-AR-1 (6) D-IGNORE
 43 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [1919] {#<DTP-FEF-POINTER (<:PROPERTY> <:NICKNAMES> <DEFSYSTEM-MACRO>) 63221727>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:NICKNAMES> <DEFSYSTEM-MACRO>) 63221727>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1920] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:NICKNAMES> <DEFSYSTEM-MACRO>) 63221727>)}
  (SYSTEM:FASL-OP-INDEX [1899] {(<:PROPERTY> <:NICKNAMES> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:MAINTAINING-SITES> <DEFSYSTEM-MACRO>)
 18 CDR D-PDL ARG|0
 19 POP LOCAL|0
 20 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 21 AR-1 (6) D-PDL
 22 MOVEM LOCAL|1
 23 POP LOCAL|2
 24 BR-NIL 34
 25 CAR D-PDL LOCAL|2
 26 EQ FEF|7  ;'<:MAINTAINING-SITES>
 27 BR-NIL 32
 28 CDR D-PDL LOCAL|2
 29 PUSH LOCAL|0
 30 (MISC) SETCAR D-IGNORE
 31 MOVE D-RETURN 'NIL
 32 SETE-CDDR LOCAL|2
 33 BR-NOT-NIL 25
 34 PUSH FEF|7  ;'<:MAINTAINING-SITES>
 35 PUSH LOCAL|0
 36 PUSH LOCAL|1
 37 PUSH-NUMBER 3
 38 (MISC) %INTERNAL-LIST* D-PDL
 39 POP LOCAL|1
 40 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 41 PUSH LOCAL|1
 42 SET-AR-1 (6) D-IGNORE
 43 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [1942] {#<DTP-FEF-POINTER (<:PROPERTY> <:MAINTAINING-SITES> <DEFSYSTEM-MACRO>) 63222446>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:MAINTAINING-SITES> <DEFSYSTEM-MACRO>) 63222446>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1943] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:MAINTAINING-SITES> <DEFSYSTEM-MACRO>) 63222446>)}
  (SYSTEM:FASL-OP-INDEX [1923] {(<:PROPERTY> <:MAINTAINING-SITES> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-SHORT-NAME>
 20 CALL D-PDL FEF|6  ;'NIL
 21 MOVE D-LAST ARG|0
 22 POP ARG|0
 23 CALL D-PDL FEF|7  ;'NIL
 24 PUSH ARG|0
 25 AR-1 (6) D-PDL
 26 MOVE D-LAST FEF|8  ;'<:SHORT-NAME>
 27 BR-NOT-NIL-POP 30
 28 PUSH ARG|0
 29 AR-1 (1) D-RETURN
 30 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1958] {#<DTP-FEF-POINTER <SYSTEM-SHORT-NAME> 63223166>}
  (SYSTEM:FASL-OP-INDEX [1946] {<SYSTEM-SHORT-NAME>}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:PACKAGE> <DEFSYSTEM-MACRO>)
 20 PUSH ARG|0
 21 (MISC) LENGTH D-PDL
 22 < '2
 23 BR-NOT-NIL 28
 24 PUSH ARG|0
 25 (MISC) LENGTH D-PDL
 26 > '2
 27 BR-NIL 32
 28 CALL D-IGNORE FEF|7  ;'NIL
 29 PUSH ARG|0
 30 PUSH-NUMBER 1
 31 MOVE D-LAST '1
 32 CADR D-PDL ARG|0
 33 POP LOCAL|0
 34 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 35 AR-1 (6) D-PDL
 36 MOVEM LOCAL|1
 37 POP LOCAL|2
 38 BR-NIL 48
 39 CAR D-PDL LOCAL|2
 40 EQ FEF|8  ;'<:PACKAGE>
 41 BR-NIL 46
 42 CDR D-PDL LOCAL|2
 43 PUSH LOCAL|0
 44 (MISC) SETCAR D-IGNORE
 45 MOVE D-RETURN 'NIL
 46 SETE-CDDR LOCAL|2
 47 BR-NOT-NIL 39
 48 PUSH FEF|8  ;'<:PACKAGE>
 49 PUSH LOCAL|0
 50 PUSH LOCAL|1
 51 PUSH-NUMBER 3
 52 (MISC) %INTERNAL-LIST* D-PDL
 53 POP LOCAL|1
 54 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 55 PUSH LOCAL|1
 56 SET-AR-1 (6) D-IGNORE
 57 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [1980] {#<DTP-FEF-POINTER (<:PROPERTY> <:PACKAGE> <DEFSYSTEM-MACRO>) 63223464>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:PACKAGE> <DEFSYSTEM-MACRO>) 63223464>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1981] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:PACKAGE> <DEFSYSTEM-MACRO>) 63223464>)}
  (SYSTEM:FASL-OP-INDEX [1961] {(<:PROPERTY> <:PACKAGE> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:USE-FAST-READER> <DEFSYSTEM-MACRO>)
 20 PUSH ARG|0
 21 (MISC) LENGTH D-PDL
 22 < '2
 23 BR-NOT-NIL 28
 24 PUSH ARG|0
 25 (MISC) LENGTH D-PDL
 26 > '2
 27 BR-NIL 32
 28 CALL D-IGNORE FEF|7  ;'NIL
 29 PUSH ARG|0
 30 PUSH-NUMBER 1
 31 MOVE D-LAST '1
 32 CADR D-PDL ARG|0
 33 POP LOCAL|0
 34 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 35 AR-1 (6) D-PDL
 36 MOVEM LOCAL|1
 37 POP LOCAL|2
 38 BR-NIL 48
 39 CAR D-PDL LOCAL|2
 40 EQ FEF|8  ;'<:FAST-READ-SWITCH>
 41 BR-NIL 46
 42 CDR D-PDL LOCAL|2
 43 PUSH LOCAL|0
 44 (MISC) SETCAR D-IGNORE
 45 MOVE D-RETURN 'NIL
 46 SETE-CDDR LOCAL|2
 47 BR-NOT-NIL 39
 48 PUSH FEF|8  ;'<:FAST-READ-SWITCH>
 49 PUSH LOCAL|0
 50 PUSH LOCAL|1
 51 PUSH-NUMBER 3
 52 (MISC) %INTERNAL-LIST* D-PDL
 53 POP LOCAL|1
 54 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 55 PUSH LOCAL|1
 56 SET-AR-1 (6) D-IGNORE
 57 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [2007] {#<DTP-FEF-POINTER (<:PROPERTY> <:USE-FAST-READER> <DEFSYSTEM-MACRO>) 63224275>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:USE-FAST-READER> <DEFSYSTEM-MACRO>) 63224275>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2008] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:USE-FAST-READER> <DEFSYSTEM-MACRO>) 63224275>)}
  (SYSTEM:FASL-OP-INDEX [1986] {(<:PROPERTY> <:USE-FAST-READER> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*SYSTEM-PATHNAME-DEFAULT*>)
   => (<DEFVAR-1> <*SYSTEM-PATHNAME-DEFAULT*>))
  (EVAL '(<DEFVAR-1> <*SYSTEM-PATHNAME-DEFAULT*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2009] {<*SYSTEM-PATHNAME-DEFAULT*>})
     => (<GLOBAL:QUOTE> <*SYSTEM-PATHNAME-DEFAULT*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-INDEX [54] {"FS"})
          (SYSTEM:FASL-OP-STRING "MAKE-PATHNAME-DEFAULTS")
          <FS:MAKE-PATHNAME-DEFAULTS>)
       => (<FS:MAKE-PATHNAME-DEFAULTS>))
     => (<GLOBAL:QUOTE> (<FS:MAKE-PATHNAME-DEFAULTS>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [1497] {<*DEFSYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*DEFSYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*SYSTEM-PATHNAME-DEFAULT*>) (<GLOBAL:QUOTE> (<FS:MAKE-PATHNAME-DEFAULTS>)) (<GLOBAL:QUOTE> <*DEFSYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*SYSTEM-PATHNAME-DEFAULT*>) (<GLOBAL:QUOTE> (<FS:MAKE-PATHNAME-DEFAULTS>)) (<GLOBAL:QUOTE> <*DEFSYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*SYSTEM-PATHNAME-DEFAULT-SPECIFIED*>)
   => (<DEFVAR-1> <*SYSTEM-PATHNAME-DEFAULT-SPECIFIED*>))
  (EVAL '(<DEFVAR-1> <*SYSTEM-PATHNAME-DEFAULT-SPECIFIED*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2020] {<*SYSTEM-PATHNAME-DEFAULT-SPECIFIED*>})
     => (<GLOBAL:QUOTE> <*SYSTEM-PATHNAME-DEFAULT-SPECIFIED*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [1497] {<*DEFSYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*DEFSYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*SYSTEM-PATHNAME-DEFAULT-SPECIFIED*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*DEFSYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*SYSTEM-PATHNAME-DEFAULT-SPECIFIED*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*DEFSYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:PATHNAME-DEFAULT> <DEFSYSTEM-MACRO>)
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '2
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|8  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '1
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH 'T
 37 POP FEF|7  ;':*SYSTEM-PATHNAME-DEFAULT-SPECIFIED*
 38 CALL D-IGNORE FEF|9  ;':FS
 39 PUSH LOCAL|0
 40 MOVE D-LAST FEF|6  ;':*SYSTEM-PATHNAME-DEFAULT*
 41 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [2051] {#<DTP-FEF-POINTER (<:PROPERTY> <:PATHNAME-DEFAULT> <DEFSYSTEM-MACRO>) 63227435>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:PATHNAME-DEFAULT> <DEFSYSTEM-MACRO>) 63227435>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2052] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:PATHNAME-DEFAULT> <DEFSYSTEM-MACRO>) 63227435>)}
  (SYSTEM:FASL-OP-INDEX [2032] {(<:PROPERTY> <:PATHNAME-DEFAULT> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:WARNINGS-PATHNAME-DEFAULT> <DEFSYSTEM-MACRO>)
 24 PUSH ARG|0
 25 (MISC) LENGTH D-PDL
 26 < '2
 27 BR-NOT-NIL 32
 28 PUSH ARG|0
 29 (MISC) LENGTH D-PDL
 30 > '2
 31 BR-NIL 36
 32 CALL D-IGNORE FEF|8  ;'NIL
 33 PUSH ARG|0
 34 PUSH-NUMBER 1
 35 MOVE D-LAST '1
 36 CADR D-PDL ARG|0
 37 POP LOCAL|0
 38 PUSH FEF|7  ;':*SYSTEM-BEING-DEFINED*
 39 POP LOCAL|1
 40 CALL D-PDL FEF|9  ;':FS
 41 PUSH LOCAL|0
 42 MOVE D-LAST FEF|6  ;':*SYSTEM-PATHNAME-DEFAULT*
 43 POP LOCAL|2
 44 PUSH LOCAL|1
 45 AR-1 (6) D-PDL
 46 MOVEM LOCAL|3
 47 POP LOCAL|4
 48 BR-NIL 58
 49 CAR D-PDL LOCAL|4
 50 EQ FEF|10  ;'<:WARNINGS-PATHNAME-DEFAULT>
 51 BR-NIL 56
 52 CDR D-PDL LOCAL|4
 53 PUSH LOCAL|2
 54 (MISC) SETCAR D-IGNORE
 55 MOVE D-RETURN 'NIL
 56 SETE-CDDR LOCAL|4
 57 BR-NOT-NIL 49
 58 PUSH FEF|10  ;'<:WARNINGS-PATHNAME-DEFAULT>
 59 PUSH LOCAL|2
 60 PUSH LOCAL|3
 61 PUSH-NUMBER 3
 62 (MISC) %INTERNAL-LIST* D-PDL
 63 POP LOCAL|3
 64 PUSH LOCAL|1
 65 PUSH LOCAL|3
 66 SET-AR-1 (6) D-IGNORE
 67 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [2075] {#<DTP-FEF-POINTER (<:PROPERTY> <:WARNINGS-PATHNAME-DEFAULT> <DEFSYSTEM-MACRO>) 63230177>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:WARNINGS-PATHNAME-DEFAULT> <DEFSYSTEM-MACRO>) 63230177>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2076] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:WARNINGS-PATHNAME-DEFAULT> <DEFSYSTEM-MACRO>) 63230177>)}
  (SYSTEM:FASL-OP-INDEX [2055] {(<:PROPERTY> <:WARNINGS-PATHNAME-DEFAULT> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*KNOWN-BINARY-FILE-PRODUCERS*>)
    (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
   => (<DEFVAR-1> <*KNOWN-BINARY-FILE-PRODUCERS*> <NIL>))
  (EVAL '(<DEFVAR-1> <*KNOWN-BINARY-FILE-PRODUCERS*> <NIL>)))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-DEFAULT-BINARY-FILE-TYPE>
 22 CALL D-RETURN FEF|7  ;'NIL
 23 PUSH ARG|0
 24 AR-1 (6) D-PDL
 25 PUSH FEF|8  ;'<DEFAULT-BINARY-FILE-TYPE>
 26 PUSH FEF|6  ;':*TARGET-COMPUTER*
 27 PUSH FEF|9  ;'<MAKE-SYSTEM>
 28 (MISC) INTERNAL-GET-2 D-PDL
 29 CAR D-LAST PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2106] {#<DTP-FEF-POINTER <SYSTEM-DEFAULT-BINARY-FILE-TYPE> 63231666>}
  (SYSTEM:FASL-OP-INDEX [2082] {<SYSTEM-DEFAULT-BINARY-FILE-TYPE>}))

(SYSTEM:FASL-OP-FRAME
<MAKE-SYSTEM-BINARY-PATHNAME>
 24 CALL D-RETURN ARG|1
 25 PUSH FEF|7  ;'<:NEW-TYPE>
 26 CALL D-LAST FEF|8  ;'NIL
 27 PUSH ARG|0
 28 AR-1 (6) D-PDL
 29 PUSH FEF|9  ;'<DEFAULT-BINARY-FILE-TYPE>
 30 PUSH FEF|6  ;':*TARGET-COMPUTER*
 31 PUSH FEF|10  ;'<MAKE-SYSTEM>
 32 (MISC) INTERNAL-GET-2 D-PDL
 33 CAR D-LAST PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2123] {#<DTP-FEF-POINTER <MAKE-SYSTEM-BINARY-PATHNAME> 63232352>}
  (SYSTEM:FASL-OP-INDEX [2109] {<MAKE-SYSTEM-BINARY-PATHNAME>}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:DEFAULT-BINARY-FILE-TYPE> <DEFSYSTEM-MACRO>)
 28 PUSH ARG|0
 29 (MISC) LENGTH D-PDL
 30 < '2
 31 BR-NOT-NIL 36
 32 PUSH ARG|0
 33 (MISC) LENGTH D-PDL
 34 > '2
 35 BR-NIL 40
 36 CALL D-IGNORE FEF|9  ;'NIL
 37 PUSH ARG|0
 38 PUSH-NUMBER 1
 39 MOVE D-LAST '1
 40 CADR D-PDL ARG|0
 41 MOVEM LOCAL|0
 42 EQ FEF|10  ;'<:QFASL>
 43 BR-NIL 49
 44 PUSH FEF|8  ;':*TARGET-COMPUTER*
 45 PUSH FEF|11  ;'<MAKE-SYSTEM>
 46 (MISC) INTERNAL-GET-2 D-PDL
 47 CAR D-PDL PDL-POP
 48 POP LOCAL|0
 49 PUSH FEF|8  ;':*TARGET-COMPUTER*
 50 PUSH FEF|11  ;'<MAKE-SYSTEM>
 51 (MISC) INTERNAL-GET-2 D-IGNORE
 52 PUSH FEF|7  ;':*SYSTEM-BEING-DEFINED*
 53 POP LOCAL|1
 54 PUSH LOCAL|0
 55 POP LOCAL|2
 56 PUSH LOCAL|1
 57 AR-1 (6) D-PDL
 58 MOVEM LOCAL|3
 59 POP LOCAL|4
 60 BR-NIL 70
 61 CAR D-PDL LOCAL|4
 62 EQ FEF|12  ;'<DEFAULT-BINARY-FILE-TYPE>
 63 BR-NIL 68
 64 CDR D-PDL LOCAL|4
 65 PUSH LOCAL|2
 66 (MISC) SETCAR D-IGNORE
 67 BR 79
 68 SETE-CDDR LOCAL|4
 69 BR-NOT-NIL 61
 70 PUSH FEF|12  ;'<DEFAULT-BINARY-FILE-TYPE>
 71 PUSH LOCAL|2
 72 PUSH LOCAL|3
 73 PUSH-NUMBER 3
 74 (MISC) %INTERNAL-LIST* D-PDL
 75 POP LOCAL|3
 76 PUSH LOCAL|1
 77 PUSH LOCAL|3
 78 SET-AR-1 (6) D-IGNORE
 79 PUSH LOCAL|0
 80 POP FEF|6  ;':*SYSTEM-DEFAULT-BINARY-FILE-TYPE*
 81 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [2147] {#<DTP-FEF-POINTER (<:PROPERTY> <:DEFAULT-BINARY-FILE-TYPE> <DEFSYSTEM-MACRO>) 63233563>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:DEFAULT-BINARY-FILE-TYPE> <DEFSYSTEM-MACRO>) 63233563>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2148] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:DEFAULT-BINARY-FILE-TYPE> <DEFSYSTEM-MACRO>) 63233563>)}
  (SYSTEM:FASL-OP-INDEX [2126] {(<:PROPERTY> <:DEFAULT-BINARY-FILE-TYPE> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
<PATHNAME-DEFAULT-BINARY-FILE-TYPE>
 28 CALL D-PDL ARG|0
 29 MOVE D-LAST FEF|7  ;'<:GENERIC-PATHNAME>
 30 CALL D-PDL PDL-POP
 31 PUSH FEF|8  ;'<:GET>
 32 MOVE D-LAST FEF|9  ;'<:DEFAULT-BINARY-FILE-TYPE>
 33 BR-NOT-NIL-POP 42
 34 PUSH FEF|6  ;':*TARGET-COMPUTER*
 35 PUSH FEF|10  ;'<MAKE-SYSTEM>
 36 (MISC) INTERNAL-GET-2 D-PDL
 37 CAR D-PDL PDL-POP
 38 BR-NOT-NIL-POP 42
 39 CALL D-RETURN FEF|11  ;'NIL
 40 PUSH FEF|12  ;'"Unknown target computer ~S."
 41 MOVE D-LAST FEF|6  ;':*TARGET-COMPUTER*
 42 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2166] {#<DTP-FEF-POINTER <PATHNAME-DEFAULT-BINARY-FILE-TYPE> 63234365>}
  (SYSTEM:FASL-OP-INDEX [2151] {<PATHNAME-DEFAULT-BINARY-FILE-TYPE>}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:OUTPUT-PATHNAME> <DEFSYSTEM-MACRO>)
 20 PUSH ARG|0
 21 (MISC) LENGTH D-PDL
 22 < '2
 23 BR-NOT-NIL 28
 24 PUSH ARG|0
 25 (MISC) LENGTH D-PDL
 26 > '2
 27 BR-NIL 32
 28 CALL D-IGNORE FEF|7  ;'NIL
 29 PUSH ARG|0
 30 PUSH-NUMBER 1
 31 MOVE D-LAST '1
 32 CADR D-PDL ARG|0
 33 POP LOCAL|0
 34 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 35 AR-1 (6) D-PDL
 36 MOVEM LOCAL|1
 37 POP LOCAL|2
 38 BR-NIL 48
 39 CAR D-PDL LOCAL|2
 40 EQ FEF|8  ;'<:OUTPUT-PATHSTRING>
 41 BR-NIL 46
 42 CDR D-PDL LOCAL|2
 43 PUSH LOCAL|0
 44 (MISC) SETCAR D-IGNORE
 45 MOVE D-RETURN 'NIL
 46 SETE-CDDR LOCAL|2
 47 BR-NOT-NIL 39
 48 PUSH FEF|8  ;'<:OUTPUT-PATHSTRING>
 49 PUSH LOCAL|0
 50 PUSH LOCAL|1
 51 PUSH-NUMBER 3
 52 (MISC) %INTERNAL-LIST* D-PDL
 53 POP LOCAL|1
 54 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 55 PUSH LOCAL|1
 56 SET-AR-1 (6) D-IGNORE
 57 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [2191] {#<DTP-FEF-POINTER (<:PROPERTY> <:OUTPUT-PATHNAME> <DEFSYSTEM-MACRO>) 63234711>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:OUTPUT-PATHNAME> <DEFSYSTEM-MACRO>) 63234711>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2192] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:OUTPUT-PATHNAME> <DEFSYSTEM-MACRO>) 63234711>)}
  (SYSTEM:FASL-OP-INDEX [2171] {(<:PROPERTY> <:OUTPUT-PATHNAME> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
<PATHNAME-P>
 16 PUSH ARG|0
 17 (MISC) STRINGP D-PDL
 18 BR-NOT-NIL-POP 22
 19 PUSH ARG|0
 20 PUSH FEF|6  ;'<PATHNAME>
 21 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-RETURN
 22 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2204] {#<DTP-FEF-POINTER <PATHNAME-P> 63235464>}
  (SYSTEM:FASL-OP-INDEX [2195] {<PATHNAME-P>}))

(SYSTEM:FASL-OP-FRAME
<CANONICALIZE-PATHNAME>
Arg 0 (NIL) is required, local, not initialized.
Arg 1 (NIL) is optional, local, initialized to the contents of #<DTP-LOCATIVE 63226117>.
Local 0 (NIL) is special, initialized to NIL.

 30 CALL D-RETURN FEF|13  ;':FS
 31 PUSH ARG|0
 32 PUSH ARG|1
 33 MOVE D-LAST 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2226] {#<DTP-FEF-POINTER <CANONICALIZE-PATHNAME> 63235630>}
  (SYSTEM:FASL-OP-INDEX [2207] {<CANONICALIZE-PATHNAME>}))

(SYSTEM:FASL-OP-FRAME
<MERGE-PATHNAME-TYPE>
 36 CALL D-RETURN FEF|6  ;':FS
 37 CALL D-PDL ARG|0
 38 MOVE D-LAST FEF|7  ;'<:CANONICAL-TYPE>
 39 MOVEM LOCAL|0
 40 PUSH FEF|8  ;'(<NIL> <:UNSPECIFIC>)
 41 (MISC) MEMQ D-IGNORE
 42 BR-NIL 50
 43 CALL D-LAST ARG|0
 44 PUSH FEF|9  ;'<:NEW-PATHNAME>
 45 PUSH FEF|10  ;'<:TYPE>
 46 PUSH ARG|1
 47 PUSH FEF|11  ;'<:VERSION>
 48 MOVE D-LAST FEF|12  ;'<:NEWEST>
 49 BR 65
 50 CALL D-IGNORE FEF|13  ;'NIL
 51 PUSH LOCAL|0
 52 MOVE D-LAST ARG|1
 53 BR-NOT-NIL 64
 54 PUSH ARG|1
 55 EQ FEF|14  ;'<:WILD>
 56 BR-NOT-NIL 64
 57 PUSH LOCAL|0
 58 EQ FEF|14  ;'<:WILD>
 59 BR-NOT-NIL 64
 60 CALL D-LAST FEF|15  ;'NIL
 61 PUSH 'NIL
 62 PUSH FEF|16  ;'"Pathname types don't match, ~A is required, ~A is specified."
 63 PUSH ARG|1
 64 MOVE D-LAST ARG|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2261] {#<DTP-FEF-POINTER <MERGE-PATHNAME-TYPE> 63236111>}
  (SYSTEM:FASL-OP-INDEX [2229] {<MERGE-PATHNAME-TYPE>}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:COMPONENT-SYSTEMS> <DEFSYSTEM-MACRO>)
 18 CDR D-PDL ARG|0
 19 POP LOCAL|0
 20 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 21 CALL D-PDL FEF|7  ;'NIL
 22 MOVE D-LAST LOCAL|0
 23 SET-AR-1 (2) D-IGNORE
 24 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [2285] {#<DTP-FEF-POINTER (<:PROPERTY> <:COMPONENT-SYSTEMS> <DEFSYSTEM-MACRO>) 63236751>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:COMPONENT-SYSTEMS> <DEFSYSTEM-MACRO>) 63236751>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2286] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:COMPONENT-SYSTEMS> <DEFSYSTEM-MACRO>) 63236751>)}
  (SYSTEM:FASL-OP-INDEX [2266] {(<:PROPERTY> <:COMPONENT-SYSTEMS> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-INDEX [1604] {<*COMPONENTS-ALREADY-DONE*>})
   => (<DEFVAR-1> <*COMPONENTS-ALREADY-DONE*>))
  (EVAL '(<DEFVAR-1> <*COMPONENTS-ALREADY-DONE*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [1604] {<*COMPONENTS-ALREADY-DONE*>})
     => (<GLOBAL:QUOTE> <*COMPONENTS-ALREADY-DONE*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [1497] {<*DEFSYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*DEFSYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*COMPONENTS-ALREADY-DONE*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*DEFSYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*COMPONENTS-ALREADY-DONE*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*DEFSYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:DO-COMPONENTS> <DEFSYSTEM-MACRO>)
 20 PUSH ARG|0
 21 (MISC) LENGTH D-PDL
 22 < '2
 23 BR-NOT-NIL 28
 24 PUSH ARG|0
 25 (MISC) LENGTH D-PDL
 26 > '2
 27 BR-NIL 32
 28 CALL D-IGNORE FEF|7  ;'NIL
 29 PUSH ARG|0
 30 PUSH-NUMBER 1
 31 MOVE D-LAST '1
 32 CADR D-PDL ARG|0
 33 POP LOCAL|0
 34 PUSH 'T
 35 POP FEF|6  ;':*COMPONENTS-ALREADY-DONE*
 36 PUSH FEF|8  ;'<DO-COMPONENTS-INTERNAL>
 37 PUSH 'NIL
 38 PUSH LOCAL|0
 39 PUSH-NUMBER 3
 40 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [2316] {#<DTP-FEF-POINTER (<:PROPERTY> <:DO-COMPONENTS> <DEFSYSTEM-MACRO>) 63241004>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:DO-COMPONENTS> <DEFSYSTEM-MACRO>) 63241004>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2317] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:DO-COMPONENTS> <DEFSYSTEM-MACRO>) 63241004>)}
  (SYSTEM:FASL-OP-INDEX [2298] {(<:PROPERTY> <:DO-COMPONENTS> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:MODULE> <DEFSYSTEM-MACRO>)
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '3
 25 BR-NIL 30
 26 CALL D-IGNORE FEF|7  ;'NIL
 27 PUSH ARG|0
 28 PUSH-NUMBER 2
 29 MOVE D-LAST 'NIL
 30 CADR D-PDL ARG|0
 31 POP LOCAL|0
 32 PUSH ARG|0
 33 (MISC) CADDR D-PDL
 34 POP LOCAL|1
 35 PUSH ARG|0
 36 (MISC) CDDDR D-PDL
 37 POP LOCAL|2
 38 CALL D-IGNORE FEF|8  ;'NIL
 39 PUSH LOCAL|0
 40 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 41 PUSH LOCAL|1
 42 CALL D-LAST FEF|9  ;'NIL
 43 MOVE D-LAST LOCAL|2
 44 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [2341] {#<DTP-FEF-POINTER (<:PROPERTY> <:MODULE> <DEFSYSTEM-MACRO>) 63241533>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:MODULE> <DEFSYSTEM-MACRO>) 63241533>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2342] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:MODULE> <DEFSYSTEM-MACRO>) 63241533>)}
  (SYSTEM:FASL-OP-INDEX [2322] {(<:PROPERTY> <:MODULE> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
<ADD-MODULE>
 28 CALL D-IGNORE FEF|6  ;'NIL
 29 PUSH ARG|0
 30 PUSH ARG|1
 31 MOVE D-LAST 'T
 32 BR-NIL 38
 33 CALL D-IGNORE FEF|7  ;'NIL
 34 PUSH 'NIL
 35 PUSH FEF|8  ;'"Duplicate module name ~A in system ~S"
 36 PUSH ARG|0
 37 MOVE D-LAST ARG|1
 38 CALL D-PDL FEF|9  ;'NIL
 39 MOVE D-LAST '5
 40 POP LOCAL|1
 41 CALL D-IGNORE FEF|10  ;'NIL
 42 PUSH LOCAL|1
 43 MOVE D-LAST FEF|11  ;'<MODULE>
 44 PUSH LOCAL|1
 45 POP LOCAL|1
 46 CALL D-PDL FEF|12  ;'NIL
 47 PUSH ARG|2
 48 MOVE D-LAST ARG|1
 49 PUSH LOCAL|1
 50 (MISC) AS-1 (3) D-IGNORE
 51 PUSH ARG|3
 52 PUSH LOCAL|1
 53 (MISC) AS-1 (4) D-IGNORE
 54 PUSH ARG|1
 55 PUSH LOCAL|1
 56 (MISC) AS-1 (2) D-IGNORE
 57 PUSH ARG|0
 58 PUSH LOCAL|1
 59 (MISC) AS-1 (1) D-IGNORE
 60 PUSH LOCAL|1
 61 POP LOCAL|0
 62 PUSH ARG|1
 63 PUSH LOCAL|0
 64 PUSH ARG|1
 65 AR-1 (3) D-PDL
 66 (MISC) CONS D-PDL
 67 SET-AR-1 (3) D-IGNORE
 68 MOVE D-RETURN LOCAL|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2364] {#<DTP-FEF-POINTER <ADD-MODULE> 63244236>}
  (SYSTEM:FASL-OP-INDEX [2326] {<ADD-MODULE>}))

(SYSTEM:FASL-OP-FRAME
<FIND-MODULE-NAMED>
 22 CALL D-PDL FEF|6  ;'NIL
 23 MOVE D-LAST ARG|1
 24 MOVEM ARG|1
 25 AR-1 (3) D-PDL
 26 POP LOCAL|0
 27 BR-NIL 39
 28 CAR D-PDL LOCAL|0
 29 POP LOCAL|1
 30 CALL D-IGNORE FEF|7  ;'NIL
 31 PUSH LOCAL|1
 32 AR-1 (1) D-PDL
 33 MOVE D-LAST ARG|0
 34 BR-NIL 37
 35 PUSH LOCAL|1
 36 BR 40
 37 SETE-CDR LOCAL|0
 38 BR-NOT-NIL 28
 39 PUSH 'NIL
 40 BR-NOT-NIL-POP 49
 41 MOVE D-IGNORE ARG|2
 42 BR-NIL 44
 43 MOVE D-RETURN 'NIL
 44 CALL D-RETURN FEF|8  ;'NIL
 45 PUSH 'NIL
 46 PUSH FEF|9  ;'"Module ~S not found in ~S"
 47 PUSH ARG|0
 48 MOVE D-LAST ARG|1
 49 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2384] {#<DTP-FEF-POINTER <FIND-MODULE-NAMED> 63244740>}
  (SYSTEM:FASL-OP-INDEX [2348] {<FIND-MODULE-NAMED>}))

(SYSTEM:FASL-OP-FRAME
<FIND-SYSTEM-NAMED>
 64 PUSH ARG|0
 65 PUSH FEF|7  ;'<SYSTEM>
 66 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 67 BR-NIL 69
 68 MOVE D-RETURN ARG|0
 69 PUSH FEF|6  ;':*SYSTEMS-LIST*
 70 POP LOCAL|0
 71 BR-NIL 122
 72 CAR D-PDL LOCAL|0
 73 MOVEM LOCAL|1
 74 PUSH FEF|7  ;'<SYSTEM>
 75 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 76 BR-NIL 92
 77 CALL D-IGNORE FEF|8  ;'NIL
 78 PUSH ARG|0
 79 PUSH LOCAL|1
 80 AR-1 (1) D-LAST
 81 BR-NOT-NIL 90
 82 CALL D-IGNORE FEF|9  ;'NIL
 83 PUSH FEF|8  ;'NIL
 84 PUSH ARG|0
 85 CALL D-LAST FEF|10  ;'NIL
 86 PUSH LOCAL|1
 87 AR-1 (6) D-PDL
 88 MOVE D-LAST FEF|11  ;'<:NICKNAMES>
 89 BR-NIL 120
 90 PUSH LOCAL|1
 91 BR 123
 92 PUSH ARG|2
 93 PUSH FEF|12  ;'(<NIL> <FOO>)
 94 (MISC) MEMQ D-IGNORE
 95 BR-NIL 120
 96 CALL D-IGNORE FEF|8  ;'NIL
 97 PUSH ARG|0
 98 MOVE D-LAST LOCAL|1
 99 BR-NIL 120
100 CALL D-IGNORE FEF|13  ;'NIL
101 PUSH LOCAL|1
102 MOVE D-LAST FEF|14  ;'(<:NOCONFIRM>)
103 CALL D-PDL FEF|15  ;'NIL
104 PUSH ARG|0
105 PUSH 'T
106 MOVE D-LAST 'T
107 POP LOCAL|2
108 BR-NIL 111
109 PUSH LOCAL|2
110 BR 123
111 CALL D-IGNORE FEF|16  ;'NIL
112 PUSH 'NIL
113 PUSH FEF|17  ;'"~A did not contain a definition of ~A."
114 CALL D-PDL FEF|18  ;'NIL
115 PUSH LOCAL|1
116 MOVE D-LAST FEF|19  ;'<DEFSYSTEM>
117 CALL D-PDL PDL-POP
118 MOVE D-LAST FEF|20  ;'<:SOURCE-PATHNAME>
119 MOVE D-LAST LOCAL|1
120 SETE-CDR LOCAL|0
121 BR-NOT-NIL 72
122 PUSH 'NIL
123 BR-NOT-NIL-POP 163
124 PUSH ARG|2
125 (MISC) NOT D-PDL
126 BR-NIL-POP 155
127 CALL D-PDL FEF|21  ;':FS
128 CALL D-LAST FEF|22  ;'NIL
129 PUSH FEF|23  ;'"SYS: SITE; "
130 PUSH ARG|0
131 MOVE D-LAST FEF|24  ;'" SYSTEM"
132 POP LOCAL|3
133 CALL D-IGNORE FEF|25  ;'NIL
134 PUSH LOCAL|3
135 PUSH FEF|26  ;'<:IF-DOES-NOT-EXIST>
136 PUSH 'NIL
137 PUSH FEF|27  ;'<:SET-DEFAULT-PATHNAME>
138 PUSH 'NIL
139 PUSH FEF|28  ;'<:VERBOSE>
140 MOVE D-LAST 'T
141 BR-NIL 147
142 CALL D-PDL FEF|15  ;'NIL
143 PUSH ARG|0
144 PUSH ARG|1
145 MOVE D-LAST FEF|29  ;'<FOO>
146 BR 155
147 MOVE D-IGNORE ARG|1
148 BR-NIL 151
149 PUSH 'NIL
150 BR 155
151 CALL D-PDL FEF|16  ;'NIL
152 PUSH 'NIL
153 PUSH FEF|30  ;'"System ~S not found"
154 MOVE D-LAST ARG|0
155 BR-NOT-NIL-POP 163
156 MOVE D-IGNORE ARG|1
157 BR-NIL 159
158 MOVE D-RETURN 'NIL
159 CALL D-RETURN FEF|16  ;'NIL
160 PUSH 'NIL
161 PUSH FEF|30  ;'"System ~S not found"
162 MOVE D-LAST ARG|0
163 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2432] {#<DTP-FEF-POINTER <FIND-SYSTEM-NAMED> 63245320>}
  (SYSTEM:FASL-OP-INDEX [1950] {<FIND-SYSTEM-NAMED>}))

(SYSTEM:FASL-OP-FRAME
<PARSE-MODULE-COMPONENTS>
 28 CALL D-IGNORE FEF|7  ;'NIL
 29 MOVE D-LAST ARG|0
 30 BR-NIL 38
 31 CALL D-PDL FEF|8  ;'NIL
 32 MOVE D-LAST ARG|0
 33 PUSH-NUMBER 1
 34 (MISC) %INTERNAL-LIST D-PDL
 35 PUSH-NUMBER 1
 36 (MISC) %INTERNAL-LIST D-RETURN
 37 BR 176
 38 PUSH ARG|0
 39 (MISC) SYMBOLP D-IGNORE
 40 BR-NIL 47
 41 CALL D-PDL FEF|9  ;'NIL
 42 PUSH ARG|0
 43 MOVE D-LAST ARG|1
 44 PUSH-NUMBER 1
 45 (MISC) %INTERNAL-LIST D-RETURN
 46 BR 176
 47 PUSH ARG|0
 48 (MISC) NLISTP D-IGNORE
 49 BR-NIL 54
 50 CALL D-RETURN FEF|10  ;'NIL
 51 PUSH 'NIL
 52 PUSH FEF|11  ;'"~S is not a recognized module component specification"
 53 MOVE D-LAST ARG|0
 54 CAR D-PDL ARG|0
 55 (MISC) SYMBOLP D-IGNORE
 56 BR-NIL 80
 57 CALL D-IGNORE FEF|9  ;'NIL
 58 CAR D-PDL ARG|0
 59 PUSH ARG|1
 60 MOVE D-LAST 'T
 61 BR-NOT-NIL 80
 62 CDR D-PDL ARG|0
 63 POP LOCAL|0
 64 BR-NIL 76
 65 CAR D-PDL LOCAL|0
 66 MOVEM LOCAL|1
 67 (MISC) SYMBOLP D-IGNORE
 68 BR-NOT-NIL 74
 69 CALL D-IGNORE FEF|10  ;'NIL
 70 PUSH 'NIL
 71 PUSH FEF|12  ;'"~S is not a recognized external module component specification in ~S"
 72 PUSH LOCAL|1
 73 MOVE D-LAST ARG|0
 74 SETE-CDR LOCAL|0
 75 BR-NOT-NIL 65
 76 PUSH ARG|0
 77 PUSH-NUMBER 1
 78 (MISC) %INTERNAL-LIST D-RETURN
 79 BR 176
 80 SET-NIL LOCAL|0
 81 SET-NIL LOCAL|2
 82 PUSH-ADDRESS LOCAL|2
 83 POP LOCAL|0
 84 PUSH ARG|0
 85 POP LOCAL|4
 86 SET-NIL LOCAL|3
 87 SET-NIL LOCAL|5
 88 MOVE D-IGNORE LOCAL|4
 89 BR-NIL 175
 90 CAR D-PDL LOCAL|4
 91 POP LOCAL|3
 92 SETE-CDR LOCAL|4
 93 PUSH LOCAL|0
 94 CALL D-IGNORE FEF|7  ;'NIL
 95 MOVE D-LAST LOCAL|3
 96 BR-NIL 102
 97 CALL D-PDL FEF|8  ;'NIL
 98 MOVE D-LAST LOCAL|3
 99 PUSH-NUMBER 1
100 (MISC) %INTERNAL-LIST D-PDL
101 BR 171
102 PUSH LOCAL|3
103 (MISC) SYMBOLP D-IGNORE
104 BR-NIL 109
105 CALL D-PDL FEF|9  ;'NIL
106 PUSH LOCAL|3
107 MOVE D-LAST ARG|1
108 BR 171
109 PUSH LOCAL|3
110 (MISC) NLISTP D-IGNORE
111 BR-NIL 113
112 BR 167
113 CAR D-PDL LOCAL|3
114 MOVEM LOCAL|5
115 (MISC) SYMBOLP D-IGNORE
116 BR-NIL 134
117 CDR D-PDL LOCAL|3
118 SET-NIL LOCAL|1
119 POP LOCAL|6
120 BR-NIL 132
121 CAR D-PDL LOCAL|6
122 MOVEM LOCAL|1
123 (MISC) SYMBOLP D-IGNORE
124 BR-NOT-NIL 130
125 CALL D-IGNORE FEF|10  ;'NIL
126 PUSH 'NIL
127 PUSH FEF|12  ;'"~S is not a recognized external module component specification in ~S"
128 PUSH LOCAL|1
129 MOVE D-LAST LOCAL|3
130 SETE-CDR LOCAL|6
131 BR-NOT-NIL 121
132 PUSH LOCAL|3
133 BR 171
134 CALL D-IGNORE FEF|7  ;'NIL
135 MOVE D-LAST LOCAL|5
136 BR-NIL 167
137 SET-NIL LOCAL|6
138 SET-NIL LOCAL|7
139 PUSH-ADDRESS LOCAL|7
140 POP LOCAL|6
141 PUSH LOCAL|3
142 PUSH FEF|6  ;':*SYSTEM-PATHNAME-DEFAULT*
143 POP LOCAL|10
144 POP LOCAL|9
145 SET-NIL LOCAL|8
146 MOVE D-IGNORE LOCAL|9
147 BR-NIL 165
148 CAR D-PDL LOCAL|9
149 POP LOCAL|8
150 SETE-CDR LOCAL|9
151 PUSH LOCAL|6
152 CALL D-PDL FEF|8  ;'NIL
153 PUSH LOCAL|8
154 MOVE D-LAST LOCAL|10
155 MOVEM LOCAL|8
156 (MISC) NCONS D-PDL
157 MOVEM LOCAL|6
158 (MISC) RPLACD D-IGNORE
159 MOVE D-IGNORE LOCAL|9
160 BR-NIL 165
161 CAR D-PDL LOCAL|9
162 PUSH LOCAL|8
163 POP LOCAL|10
164 BR 149
165 PUSH LOCAL|7
166 BR 171
167 CALL D-PDL FEF|10  ;'NIL
168 PUSH 'NIL
169 PUSH FEF|11  ;'"~S is not a recognized module component specification"
170 MOVE D-LAST LOCAL|3
171 (MISC) NCONS D-PDL
172 MOVEM LOCAL|0
173 (MISC) RPLACD D-IGNORE
174 BR 88
175 MOVE D-RETURN LOCAL|2
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2460] {#<DTP-FEF-POINTER <PARSE-MODULE-COMPONENTS> 63247045>}
  (SYSTEM:FASL-OP-INDEX [2350] {<PARSE-MODULE-COMPONENTS>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)
    (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
   => (<DEFVAR-1> <*MAKE-SYSTEM-SPECIAL-VARIABLES*> <NIL>))
  (EVAL '(<DEFVAR-1> <*MAKE-SYSTEM-SPECIAL-VARIABLES*> <NIL>)))

(SYSTEM:FASL-OP-FRAME
<DEFINE-MAKE-SYSTEM-SPECIAL-VARIABLE>
 20 PUSH ARG|0
 21 (MISC) LENGTH D-PDL
 22 < '3
 23 BR-NOT-NIL 28
 24 PUSH ARG|0
 25 (MISC) LENGTH D-PDL
 26 > '4
 27 BR-NIL 32
 28 CALL D-IGNORE FEF|6  ;'NIL
 29 PUSH ARG|0
 30 PUSH-NUMBER 2
 31 MOVE D-LAST '3
 32 CADR D-PDL ARG|0
 33 POP LOCAL|0
 34 PUSH ARG|0
 35 (MISC) CADDR D-PDL
 36 POP LOCAL|1
 37 PUSH ARG|0
 38 (MISC) CDDDR D-IGNORE
 39 BR-NIL 43
 40 PUSH ARG|0
 41 (MISC) CADDDR D-PDL
 42 BR 44
 43 PUSH 'T
 44 POP LOCAL|2
 45 PUSH FEF|7  ;'<DEFINE-SPECIAL-VARIABLE>
 46 PUSH LOCAL|0
 47 PUSH LOCAL|1
 48 PUSH FEF|8  ;'<*MAKE-SYSTEM-SPECIAL-VARIABLES*>
 49 PUSH LOCAL|2
 50 PUSH-NUMBER 5
 51 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [2488] {#<DTP-FEF-POINTER <DEFINE-MAKE-SYSTEM-SPECIAL-VARIABLE> 63252512>})
 => (<MACRO> . #<DTP-FEF-POINTER <DEFINE-MAKE-SYSTEM-SPECIAL-VARIABLE> 63252512>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2489] {(<MACRO> . #<DTP-FEF-POINTER <DEFINE-MAKE-SYSTEM-SPECIAL-VARIABLE> 63252512>)}
  (SYSTEM:FASL-OP-INDEX [2466] {<DEFINE-MAKE-SYSTEM-SPECIAL-VARIABLE>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*QUERY-TYPE*>)
   => (<DEFVAR-1> <*QUERY-TYPE*>))
  (EVAL '(<DEFVAR-1> <*QUERY-TYPE*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2490] {<*QUERY-TYPE*>})
     => (<GLOBAL:QUOTE> <*QUERY-TYPE*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "NORMAL")
        <:NORMAL>)
     => (<GLOBAL:QUOTE> <:NORMAL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*QUERY-TYPE*>) (<GLOBAL:QUOTE> <:NORMAL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*QUERY-TYPE*>) (<GLOBAL:QUOTE> <:NORMAL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:NOCONFIRM> <MAKE-SYSTEM-KEYWORD>)
 18 PUSH FEF|7  ;'<:NOCONFIRM>
 19 MOVEM FEF|6  ;':*QUERY-TYPE*
 20 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2509] {#<DTP-FEF-POINTER (<:PROPERTY> <:NOCONFIRM> <MAKE-SYSTEM-KEYWORD>) 63257525>}
  (SYSTEM:FASL-OP-INDEX [2503] {(<:PROPERTY> <:NOCONFIRM> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:SELECTIVE> <MAKE-SYSTEM-KEYWORD>)
 18 PUSH FEF|7  ;'<:SELECTIVE>
 19 MOVEM FEF|6  ;':*QUERY-TYPE*
 20 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2520] {#<DTP-FEF-POINTER (<:PROPERTY> <:SELECTIVE> <MAKE-SYSTEM-KEYWORD>) 63257710>}
  (SYSTEM:FASL-OP-INDEX [2514] {(<:PROPERTY> <:SELECTIVE> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*SILENT-P*>)
   => (<DEFVAR-1> <*SILENT-P*>))
  (EVAL '(<DEFVAR-1> <*SILENT-P*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2521] {<*SILENT-P*>})
     => (<GLOBAL:QUOTE> <*SILENT-P*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*SILENT-P*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*SILENT-P*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:SILENT> <MAKE-SYSTEM-KEYWORD>)
 16 PUSH 'T
 17 MOVEM FEF|6  ;':*SILENT-P*
 18 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2539] {#<DTP-FEF-POINTER (<:PROPERTY> <:SILENT> <MAKE-SYSTEM-KEYWORD>) 63263370>}
  (SYSTEM:FASL-OP-INDEX [2533] {(<:PROPERTY> <:SILENT> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*REDO-ALL*>)
   => (<DEFVAR-1> <*REDO-ALL*>))
  (EVAL '(<DEFVAR-1> <*REDO-ALL*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2540] {<*REDO-ALL*>})
     => (<GLOBAL:QUOTE> <*REDO-ALL*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*REDO-ALL*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*REDO-ALL*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:RELOAD> <MAKE-SYSTEM-KEYWORD>)
 16 PUSH 'T
 17 MOVEM FEF|6  ;':*REDO-ALL*
 18 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2558] {#<DTP-FEF-POINTER (<:PROPERTY> <:RELOAD> <MAKE-SYSTEM-KEYWORD>) 63266067>}
  (SYSTEM:FASL-OP-INDEX [2552] {(<:PROPERTY> <:RELOAD> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*LOAD-TYPE-TRANSFORMATIONS*>)
    (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
   => (<DEFVAR-1> <*LOAD-TYPE-TRANSFORMATIONS*> <NIL>))
  (EVAL '(<DEFVAR-1> <*LOAD-TYPE-TRANSFORMATIONS*> <NIL>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*COMPILE-TYPE-TRANSFORMATIONS*>)
    (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
   => (<DEFVAR-1> <*COMPILE-TYPE-TRANSFORMATIONS*> <NIL>))
  (EVAL '(<DEFVAR-1> <*COMPILE-TYPE-TRANSFORMATIONS*> <NIL>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*TOP-LEVEL-TRANSFORMATIONS*>)
   => (<DEFVAR-1> <*TOP-LEVEL-TRANSFORMATIONS*>))
  (EVAL '(<DEFVAR-1> <*TOP-LEVEL-TRANSFORMATIONS*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2565] {<*TOP-LEVEL-TRANSFORMATIONS*>})
     => (<GLOBAL:QUOTE> <*TOP-LEVEL-TRANSFORMATIONS*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*TOP-LEVEL-TRANSFORMATIONS*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*TOP-LEVEL-TRANSFORMATIONS*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:NOLOAD> <MAKE-SYSTEM-KEYWORD>)
 20 CALL D-PDL FEF|7  ;'NIL
 21 PUSH FEF|8  ;'(<:INTERNAL> (<:PROPERTY> <:NOLOAD> <MAKE-SYSTEM-KEYWORD>) 0)
 22 MOVE D-LAST FEF|6  ;':*TOP-LEVEL-TRANSFORMATIONS*
 23 MOVEM FEF|6  ;':*TOP-LEVEL-TRANSFORMATIONS*
 24 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2591] {#<DTP-FEF-POINTER (<:PROPERTY> <:NOLOAD> <MAKE-SYSTEM-KEYWORD>) 63267333>}
  (SYSTEM:FASL-OP-INDEX [2577] {(<:PROPERTY> <:NOLOAD> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-FRAME
(<:INTERNAL> (<:PROPERTY> <:NOLOAD> <MAKE-SYSTEM-KEYWORD>) 0)
 16 PUSH ARG|0
 17 PUSH FEF|6  ;':*LOAD-TYPE-TRANSFORMATIONS*
 18 (MISC) MEMQ D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2604] {#<DTP-FEF-POINTER (<:INTERNAL> (<:PROPERTY> <:NOLOAD> <MAKE-SYSTEM-KEYWORD>) 0) 63267611>}
  (SYSTEM:FASL-OP-INDEX [2583] {(<:INTERNAL> (<:PROPERTY> <:NOLOAD> <MAKE-SYSTEM-KEYWORD>) 0)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:COMPILE> <MAKE-SYSTEM-KEYWORD>)
 24 CALL D-PDL FEF|8  ;'NIL
 25 PUSH FEF|6  ;':*COMPILE-TYPE-TRANSFORMATIONS*
 26 CALL D-PDL FEF|9  ;'NIL
 27 PUSH FEF|10  ;'(<:INTERNAL> (<:PROPERTY> <:COMPILE> <MAKE-SYSTEM-KEYWORD>) 0)
 28 MOVE D-LAST FEF|7  ;':*TOP-LEVEL-TRANSFORMATIONS*
 29 MOVE D-LAST FEF|7  ;':*TOP-LEVEL-TRANSFORMATIONS*
 30 MOVEM FEF|7  ;':*TOP-LEVEL-TRANSFORMATIONS*
 31 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2623] {#<DTP-FEF-POINTER (<:PROPERTY> <:COMPILE> <MAKE-SYSTEM-KEYWORD>) 63270016>}
  (SYSTEM:FASL-OP-INDEX [2609] {(<:PROPERTY> <:COMPILE> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-FRAME
(<:INTERNAL> (<:PROPERTY> <:COMPILE> <MAKE-SYSTEM-KEYWORD>) 0)
 16 PUSH ARG|0
 17 PUSH FEF|6  ;':*COMPILE-TYPE-TRANSFORMATIONS*
 18 (MISC) MEMQ D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2636] {#<DTP-FEF-POINTER (<:INTERNAL> (<:PROPERTY> <:COMPILE> <MAKE-SYSTEM-KEYWORD>) 0) 63270351>}
  (SYSTEM:FASL-OP-INDEX [2615] {(<:INTERNAL> (<:PROPERTY> <:COMPILE> <MAKE-SYSTEM-KEYWORD>) 0)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:FOR-K> <MAKE-SYSTEM-KEYWORD>)
 16 CALL0 D-RETURN FEF|6  ;'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2648] {#<DTP-FEF-POINTER (<:PROPERTY> <:FOR-K> <MAKE-SYSTEM-KEYWORD>) 63270521>}
  (SYSTEM:FASL-OP-INDEX [2641] {(<:PROPERTY> <:FOR-K> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-FRAME
<MAKE-SYSTEM-FOR-FALCON>
 38 PUSH FEF|11  ;'<COMPILER:K>
 39 POP FEF|10  ;':*TARGET-COMPUTER*
 40 PUSH FEF|12  ;'<:FBIN>
 41 POP FEF|9  ;':*SYSTEM-DEFAULT-BINARY-FILE-TYPE*
 42 PUSH FEF|13  ;'<:FDEF>
 43 POP FEF|8  ;':*SYSTEM-LOAD-BINARY-FILE-TYPE*
 44 CALL D-PDL FEF|14  ;':COMPILER
 45 PUSH FEF|15  ;'<:TARGET>
 46 PUSH FEF|16  ;'<COMPILER:FALCON>
 47 PUSH FEF|17  ;'<:NEXT>
 48 MOVE D-LAST FEF|6  ;':*FALCON-ENVIRONMENT*
 49 MOVEM FEF|7  ;':*COMPILATION-ENVIRONMENT*
 50 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2669] {#<DTP-FEF-POINTER <MAKE-SYSTEM-FOR-FALCON> 63270723>}
  (SYSTEM:FASL-OP-INDEX [2645] {<MAKE-SYSTEM-FOR-FALCON>}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:FOR-FALCON> <MAKE-SYSTEM-KEYWORD>)
 16 CALL0 D-RETURN FEF|6  ;'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2680] {#<DTP-FEF-POINTER (<:PROPERTY> <:FOR-FALCON> <MAKE-SYSTEM-KEYWORD>) 63271346>}
  (SYSTEM:FASL-OP-INDEX [2674] {(<:PROPERTY> <:FOR-FALCON> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:RECOMPILE> <MAKE-SYSTEM-KEYWORD>)
 20 PUSH FEF|6  ;'<:RELOAD>
 21 PUSH FEF|7  ;'<MAKE-SYSTEM-KEYWORD>
 22 (MISC) INTERNAL-GET-2 D-PDL
 23 CALL0 D-IGNORE PDL-POP
 24 PUSH FEF|8  ;'<:COMPILE>
 25 PUSH FEF|7  ;'<MAKE-SYSTEM-KEYWORD>
 26 (MISC) INTERNAL-GET-2 D-PDL
 27 CALL0 D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2691] {#<DTP-FEF-POINTER (<:PROPERTY> <:RECOMPILE> <MAKE-SYSTEM-KEYWORD>) 63271517>}
  (SYSTEM:FASL-OP-INDEX [2685] {(<:PROPERTY> <:RECOMPILE> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*NO-INCREMENT-PATCH*>)
   => (<DEFVAR-1> <*NO-INCREMENT-PATCH*>))
  (EVAL '(<DEFVAR-1> <*NO-INCREMENT-PATCH*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2692] {<*NO-INCREMENT-PATCH*>})
     => (<GLOBAL:QUOTE> <*NO-INCREMENT-PATCH*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*NO-INCREMENT-PATCH*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*NO-INCREMENT-PATCH*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:NO-INCREMENT-PATCH> <MAKE-SYSTEM-KEYWORD>)
 16 PUSH 'T
 17 MOVEM FEF|6  ;':*NO-INCREMENT-PATCH*
 18 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2710] {#<DTP-FEF-POINTER (<:PROPERTY> <:NO-INCREMENT-PATCH> <MAKE-SYSTEM-KEYWORD>) 63273332>}
  (SYSTEM:FASL-OP-INDEX [2704] {(<:PROPERTY> <:NO-INCREMENT-PATCH> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:INCREMENT-PATCH> <MAKE-SYSTEM-KEYWORD>)
 18 PUSH FEF|7  ;'(<INCREMENT-COMPILED-VERSION>)
 19 PUSH FEF|6  ;':*TOP-LEVEL-TRANSFORMATIONS*
 20 (MISC) %INTERNAL-APPEND-2 D-PDL
 21 MOVEM FEF|6  ;':*TOP-LEVEL-TRANSFORMATIONS*
 22 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2723] {#<DTP-FEF-POINTER (<:PROPERTY> <:INCREMENT-PATCH> <MAKE-SYSTEM-KEYWORD>) 63273527>}
  (SYSTEM:FASL-OP-INDEX [2715] {(<:PROPERTY> <:INCREMENT-PATCH> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*LOAD-PATCHES*>)
   => (<DEFVAR-1> <*LOAD-PATCHES*>))
  (EVAL '(<DEFVAR-1> <*LOAD-PATCHES*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2724] {<*LOAD-PATCHES*>})
     => (<GLOBAL:QUOTE> <*LOAD-PATCHES*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
     => (<GLOBAL:QUOTE> <GLOBAL:T>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*LOAD-PATCHES*>) (<GLOBAL:QUOTE> <GLOBAL:T>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*LOAD-PATCHES*>) (<GLOBAL:QUOTE> <GLOBAL:T>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:NO-LOAD-PATCHES> <MAKE-SYSTEM-KEYWORD>)
 16 SET-NIL FEF|6  ;':*LOAD-PATCHES*
 17 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2742] {#<DTP-FEF-POINTER (<:PROPERTY> <:NO-LOAD-PATCHES> <MAKE-SYSTEM-KEYWORD>) 63274442>}
  (SYSTEM:FASL-OP-INDEX [2736] {(<:PROPERTY> <:NO-LOAD-PATCHES> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:DO-NOT-DO-COMPONENTS> <MAKE-SYSTEM-KEYWORD>)
 18 PUSH FEF|7  ;'<DO-COMPONENTS-INTERNAL>
 19 PUSH FEF|6  ;':*TOP-LEVEL-TRANSFORMATIONS*
 20 PUSH '-1
 21 (MISC) %INTERNAL-DELQ D-PDL
 22 MOVEM FEF|6  ;':*TOP-LEVEL-TRANSFORMATIONS*
 23 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2753] {#<DTP-FEF-POINTER (<:PROPERTY> <:DO-NOT-DO-COMPONENTS> <MAKE-SYSTEM-KEYWORD>) 63274615>}
  (SYSTEM:FASL-OP-INDEX [2747] {(<:PROPERTY> <:DO-NOT-DO-COMPONENTS> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*BATCH-MODE-P*>)
   => (<DEFVAR-1> <*BATCH-MODE-P*>))
  (EVAL '(<DEFVAR-1> <*BATCH-MODE-P*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2754] {<*BATCH-MODE-P*>})
     => (<GLOBAL:QUOTE> <*BATCH-MODE-P*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*BATCH-MODE-P*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*BATCH-MODE-P*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <INHIBIT-FDEFINE-WARNINGS>)
     => (<GLOBAL:QUOTE> <INHIBIT-FDEFINE-WARNINGS>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2762] {<INHIBIT-FDEFINE-WARNINGS>})
     => (<GLOBAL:QUOTE> <INHIBIT-FDEFINE-WARNINGS>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <INHIBIT-FDEFINE-WARNINGS>) (<GLOBAL:QUOTE> <INHIBIT-FDEFINE-WARNINGS>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <INHIBIT-FDEFINE-WARNINGS>) (<GLOBAL:QUOTE> <INHIBIT-FDEFINE-WARNINGS>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [91] {<TV:MORE-PROCESSING-GLOBAL-ENABLE>})
     => (<GLOBAL:QUOTE> <TV:MORE-PROCESSING-GLOBAL-ENABLE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [91] {<TV:MORE-PROCESSING-GLOBAL-ENABLE>})
     => (<GLOBAL:QUOTE> <TV:MORE-PROCESSING-GLOBAL-ENABLE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <TV:MORE-PROCESSING-GLOBAL-ENABLE>) (<GLOBAL:QUOTE> <TV:MORE-PROCESSING-GLOBAL-ENABLE>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <TV:MORE-PROCESSING-GLOBAL-ENABLE>) (<GLOBAL:QUOTE> <TV:MORE-PROCESSING-GLOBAL-ENABLE>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:NOWARN> <MAKE-SYSTEM-KEYWORD>)
 26 PUSH FEF|10  ;'<:JUST-WARN>
 27 POP FEF|9  ;':INHIBIT-FDEFINE-WARNINGS
 28 SET-NIL FEF|8  ;':MORE-PROCESSING-GLOBAL-ENABLE
 29 PUSH 'T
 30 POP FEF|7  ;':*BATCH-MODE-P*
 31 PUSH FEF|11  ;'<:NOCONFIRM>
 32 MOVEM FEF|6  ;':*QUERY-TYPE*
 33 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2785] {#<DTP-FEF-POINTER (<:PROPERTY> <:NOWARN> <MAKE-SYSTEM-KEYWORD>) 63276504>}
  (SYSTEM:FASL-OP-INDEX [2777] {(<:PROPERTY> <:NOWARN> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*WARNINGS-STREAM*>)
   => (<DEFVAR-1> <*WARNINGS-STREAM*>))
  (EVAL '(<DEFVAR-1> <*WARNINGS-STREAM*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2786] {<*WARNINGS-STREAM*>})
     => (<GLOBAL:QUOTE> <*WARNINGS-STREAM*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*WARNINGS-STREAM*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*WARNINGS-STREAM*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:DEFAULTED-BATCH> <MAKE-SYSTEM-KEYWORD>)
 80 CALL D-PDL FEF|15  ;'NIL
 81 PUSH FEF|14  ;':*SYSTEM-BEING-MADE*
 82 AR-1 (6) D-PDL
 83 MOVE D-LAST FEF|16  ;'<:WARNINGS-PATHNAME-DEFAULT>
 84 BR-NOT-NIL-POP 105
 85 CALL0 D-PDL FEF|17  ;':FS
 86 CALL D-PDL PDL-POP
 87 PUSH FEF|18  ;'<:NEW-PATHNAME>
 88 PUSH FEF|19  ;'<:NAME>
 89 CALL D-PDL FEF|20  ;'NIL
 90 PUSH 'NIL
 91 PUSH FEF|21  ;'"~A-CWARNS"
 92 CALL D-LAST FEF|22  ;'NIL
 93 CALL D-PDL FEF|15  ;'NIL
 94 PUSH FEF|14  ;':*SYSTEM-BEING-MADE*
 95 AR-1 (6) D-PDL
 96 MOVE D-LAST FEF|23  ;'<:SYMBOLIC-NAME>
 97 BR-NOT-NIL-POP 100
 98 CALL D-PDL FEF|24  ;'NIL
 99 MOVE D-LAST FEF|14  ;':*SYSTEM-BEING-MADE*
100 MOVE D-LAST PDL-POP
101 PUSH FEF|25  ;'<:TYPE>
102 PUSH FEF|26  ;'<:LISP>
103 PUSH FEF|27  ;'<:VERSION>
104 MOVE D-LAST FEF|28  ;'<:NEWEST>
105 POP LOCAL|0
106 PUSH FEF|29  ;'<:JUST-WARN>
107 POP FEF|13  ;':INHIBIT-FDEFINE-WARNINGS
108 SET-NIL FEF|12  ;':MORE-PROCESSING-GLOBAL-ENABLE
109 PUSH 'T
110 POP FEF|11  ;':*BATCH-MODE-P*
111 PUSH FEF|30  ;'<:NOCONFIRM>
112 POP FEF|10  ;':*QUERY-TYPE*
113 CALL D-IGNORE FEF|20  ;'NIL
114 PUSH FEF|9  ;':*QUERY-IO*
115 PUSH FEF|31  ;'"~&Writing compiler warnings data base to file ~A.~%"
116 MOVE D-LAST LOCAL|0
117 CALL D-PDL FEF|32  ;'NIL
118 PUSH LOCAL|0
119 PUSH FEF|33  ;'<:DIRECTION>
120 PUSH FEF|34  ;'<:OUTPUT>
121 PUSH FEF|35  ;'<:CHARACTERS>
122 MOVE D-LAST 'T
123 POP FEF|8  ;':*WARNINGS-STREAM*
124 CALL D-IGNORE FEF|20  ;'NIL
125 PUSH FEF|8  ;':*WARNINGS-STREAM*
126 PUSH FEF|36  ;'"~&;System ~A made by ~A at ~\DATIME\  -*-Mode: Lisp; Package: User; Base: 10-*-~2%"
127 PUSH FEF|14  ;':*SYSTEM-BEING-MADE*
128 AR-1 (1) D-PDL
129 MOVE D-LAST FEF|7  ;':USER-ID
130 CALL D-IGNORE FEF|37  ;'NIL
131 MOVE D-LAST FEF|8  ;':*WARNINGS-STREAM*
132 PUSH FEF|38  ;'(<CLOSE> <*WARNINGS-STREAM*>)
133 PUSH FEF|6  ;':*MAKE-SYSTEM-FORMS-TO-BE-EVALED-FINALLY*
134 (MISC) CONS D-PDL
135 MOVEM FEF|6  ;':*MAKE-SYSTEM-FORMS-TO-BE-EVALED-FINALLY*
136 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2831] {#<DTP-FEF-POINTER (<:PROPERTY> <:DEFAULTED-BATCH> <MAKE-SYSTEM-KEYWORD>) 63277502>}
  (SYSTEM:FASL-OP-INDEX [2798] {(<:PROPERTY> <:DEFAULTED-BATCH> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:BATCH> <MAKE-SYSTEM-KEYWORD>)
 84 CALL D-PDL FEF|14  ;'NIL
 85 PUSH FEF|13  ;':*SYSTEM-BEING-MADE*
 86 AR-1 (6) D-PDL
 87 MOVE D-LAST FEF|15  ;'<:WARNINGS-PATHNAME-DEFAULT>
 88 BR-NOT-NIL-POP 109
 89 CALL0 D-PDL FEF|16  ;':FS
 90 CALL D-PDL PDL-POP
 91 PUSH FEF|17  ;'<:NEW-PATHNAME>
 92 PUSH FEF|18  ;'<:NAME>
 93 CALL D-PDL FEF|19  ;'NIL
 94 PUSH 'NIL
 95 PUSH FEF|20  ;'"~A-CWARNS"
 96 CALL D-LAST FEF|21  ;'NIL
 97 CALL D-PDL FEF|14  ;'NIL
 98 PUSH FEF|13  ;':*SYSTEM-BEING-MADE*
 99 AR-1 (6) D-PDL
100 MOVE D-LAST FEF|22  ;'<:SYMBOLIC-NAME>
101 BR-NOT-NIL-POP 104
102 CALL D-PDL FEF|23  ;'NIL
103 MOVE D-LAST FEF|13  ;':*SYSTEM-BEING-MADE*
104 MOVE D-LAST PDL-POP
105 PUSH FEF|24  ;'<:TYPE>
106 PUSH FEF|25  ;'<:LISP>
107 PUSH FEF|26  ;'<:VERSION>
108 MOVE D-LAST FEF|27  ;'<:NEWEST>
109 POP LOCAL|0
110 CALL D-PDL FEF|28  ;'NIL
111 PUSH FEF|29  ;'<:PATHNAME>
112 PUSH FEF|30  ;'<:DEFAULTS>
113 PUSH LOCAL|0
114 PUSH-NUMBER 3
115 (MISC) %INTERNAL-LIST D-PDL
116 PUSH FEF|31  ;'"~&Write compiler warnings data base to file: (default ~A) "
117 MOVE D-LAST LOCAL|0
118 POP LOCAL|0
119 CALL D-PDL FEF|32  ;'NIL
120 PUSH LOCAL|0
121 PUSH FEF|33  ;'<:DIRECTION>
122 PUSH FEF|34  ;'<:OUTPUT>
123 PUSH FEF|35  ;'<:CHARACTERS>
124 MOVE D-LAST 'T
125 POP FEF|12  ;':*WARNINGS-STREAM*
126 PUSH FEF|36  ;'<:JUST-WARN>
127 POP FEF|11  ;':INHIBIT-FDEFINE-WARNINGS
128 SET-NIL FEF|10  ;':MORE-PROCESSING-GLOBAL-ENABLE
129 PUSH 'T
130 POP FEF|9  ;':*BATCH-MODE-P*
131 PUSH FEF|37  ;'<:NOCONFIRM>
132 POP FEF|8  ;':*QUERY-TYPE*
133 CALL D-IGNORE FEF|19  ;'NIL
134 PUSH FEF|12  ;':*WARNINGS-STREAM*
135 PUSH FEF|38  ;'"~&;System ~A made by ~A at ~\DATIME\  -*-Mode: Lisp; Package: User; Base: 10-*-~2%"
136 PUSH FEF|13  ;':*SYSTEM-BEING-MADE*
137 AR-1 (1) D-PDL
138 MOVE D-LAST FEF|7  ;':USER-ID
139 CALL D-IGNORE FEF|39  ;'NIL
140 MOVE D-LAST FEF|12  ;':*WARNINGS-STREAM*
141 PUSH FEF|40  ;'(<CLOSE> <*WARNINGS-STREAM*>)
142 PUSH FEF|6  ;':*MAKE-SYSTEM-FORMS-TO-BE-EVALED-FINALLY*
143 (MISC) CONS D-PDL
144 MOVEM FEF|6  ;':*MAKE-SYSTEM-FORMS-TO-BE-EVALED-FINALLY*
145 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2856] {#<DTP-FEF-POINTER (<:PROPERTY> <:BATCH> <MAKE-SYSTEM-KEYWORD>) 63303133>}
  (SYSTEM:FASL-OP-INDEX [2836] {(<:PROPERTY> <:BATCH> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-INDEX [2805] {<*SYSTEM-BEING-MADE*>})
   => (<DEFVAR-1> <*SYSTEM-BEING-MADE*>))
  (EVAL '(<DEFVAR-1> <*SYSTEM-BEING-MADE*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2805] {<*SYSTEM-BEING-MADE*>})
     => (<GLOBAL:QUOTE> <*SYSTEM-BEING-MADE*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*SYSTEM-BEING-MADE*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*SYSTEM-BEING-MADE*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*MAKE-SYSTEM-FORMS-TO-BE-EVALED-BEFORE*>)
   => (<DEFVAR-1> <*MAKE-SYSTEM-FORMS-TO-BE-EVALED-BEFORE*>))
  (EVAL '(<DEFVAR-1> <*MAKE-SYSTEM-FORMS-TO-BE-EVALED-BEFORE*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2864] {<*MAKE-SYSTEM-FORMS-TO-BE-EVALED-BEFORE*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-FORMS-TO-BE-EVALED-BEFORE*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*MAKE-SYSTEM-FORMS-TO-BE-EVALED-BEFORE*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*MAKE-SYSTEM-FORMS-TO-BE-EVALED-BEFORE*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*MAKE-SYSTEM-FORMS-TO-BE-EVALED-AFTER*>)
   => (<DEFVAR-1> <*MAKE-SYSTEM-FORMS-TO-BE-EVALED-AFTER*>))
  (EVAL '(<DEFVAR-1> <*MAKE-SYSTEM-FORMS-TO-BE-EVALED-AFTER*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2872] {<*MAKE-SYSTEM-FORMS-TO-BE-EVALED-AFTER*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-FORMS-TO-BE-EVALED-AFTER*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*MAKE-SYSTEM-FORMS-TO-BE-EVALED-AFTER*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*MAKE-SYSTEM-FORMS-TO-BE-EVALED-AFTER*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-INDEX [2802] {<*MAKE-SYSTEM-FORMS-TO-BE-EVALED-FINALLY*>})
   => (<DEFVAR-1> <*MAKE-SYSTEM-FORMS-TO-BE-EVALED-FINALLY*>))
  (EVAL '(<DEFVAR-1> <*MAKE-SYSTEM-FORMS-TO-BE-EVALED-FINALLY*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2802] {<*MAKE-SYSTEM-FORMS-TO-BE-EVALED-FINALLY*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-FORMS-TO-BE-EVALED-FINALLY*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*MAKE-SYSTEM-FORMS-TO-BE-EVALED-FINALLY*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*MAKE-SYSTEM-FORMS-TO-BE-EVALED-FINALLY*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-INDEX [2130] {<*SYSTEM-DEFAULT-BINARY-FILE-TYPE*>})
   => (<DEFVAR-1> <*SYSTEM-DEFAULT-BINARY-FILE-TYPE*>))
  (EVAL '(<DEFVAR-1> <*SYSTEM-DEFAULT-BINARY-FILE-TYPE*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2130] {<*SYSTEM-DEFAULT-BINARY-FILE-TYPE*>})
     => (<GLOBAL:QUOTE> <*SYSTEM-DEFAULT-BINARY-FILE-TYPE*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*SYSTEM-DEFAULT-BINARY-FILE-TYPE*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*SYSTEM-DEFAULT-BINARY-FILE-TYPE*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2087] {<COMPILER:*TARGET-COMPUTER*>})
     => (<GLOBAL:QUOTE> <COMPILER:*TARGET-COMPUTER*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (SYSTEM:FASL-OP-INDEX [98] {<COMPILER:LAMBDA-INTERFACE>})
       => (<GLOBAL:QUOTE> <COMPILER:LAMBDA-INTERFACE>))
     => (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <COMPILER:LAMBDA-INTERFACE>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <COMPILER:*TARGET-COMPUTER*>) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <COMPILER:LAMBDA-INTERFACE>)) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <COMPILER:*TARGET-COMPUTER*>) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <COMPILER:LAMBDA-INTERFACE>)) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-INDEX [2658] {<*SYSTEM-LOAD-BINARY-FILE-TYPE*>})
   => (<DEFVAR-1> <*SYSTEM-LOAD-BINARY-FILE-TYPE*>))
  (EVAL '(<DEFVAR-1> <*SYSTEM-LOAD-BINARY-FILE-TYPE*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2658] {<*SYSTEM-LOAD-BINARY-FILE-TYPE*>})
     => (<GLOBAL:QUOTE> <*SYSTEM-LOAD-BINARY-FILE-TYPE*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*SYSTEM-LOAD-BINARY-FILE-TYPE*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*SYSTEM-LOAD-BINARY-FILE-TYPE*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2657] {<COMPILER:*COMPILATION-ENVIRONMENT*>})
     => (<GLOBAL:QUOTE> <COMPILER:*COMPILATION-ENVIRONMENT*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [2660] {<COMPILER:MAKE-COMPILATION-ENVIRONMENT>})
        (SYSTEM:FASL-OP-INDEX [2662] {<:TARGET>})
        (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-SYMBOL <IF>)
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-SYMBOL <EQ>)
            (SYSTEM:FASL-OP-INDEX [2087] {<COMPILER:*TARGET-COMPUTER*>})
            (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
              (SYSTEM:FASL-OP-INDEX [108] {<COMPILER:K>})
             => (<GLOBAL:QUOTE> <COMPILER:K>))
           => (<EQ> <COMPILER:*TARGET-COMPUTER*> (<GLOBAL:QUOTE> <COMPILER:K>)))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
            (SYSTEM:FASL-OP-INDEX [2664] {<COMPILER:FALCON>})
           => (<GLOBAL:QUOTE> <COMPILER:FALCON>))
          (SYSTEM:FASL-OP-INDEX [2087] {<COMPILER:*TARGET-COMPUTER*>})
         => (<IF> (<EQ> <COMPILER:*TARGET-COMPUTER*> (<GLOBAL:QUOTE> <COMPILER:K>)) (<GLOBAL:QUOTE> <COMPILER:FALCON>) <COMPILER:*TARGET-COMPUTER*>))
       => (<COMPILER:MAKE-COMPILATION-ENVIRONMENT> <:TARGET> (<IF> (<EQ> <COMPILER:*TARGET-COMPUTER*> (<GLOBAL:QUOTE> <COMPILER:K>)) (<GLOBAL:QUOTE> <COMPILER:FALCON>) <COMPILER:*TARGET-COMPUTER*>)))
     => (<GLOBAL:QUOTE> (<COMPILER:MAKE-COMPILATION-ENVIRONMENT> <:TARGET> (<IF> (<EQ> <COMPILER:*TARGET-COMPUTER*> (<GLOBAL:QUOTE> <COMPILER:K>)) (<GLOBAL:QUOTE> <COMPILER:FALCON>) <COMPILER:*TARGET-COMPUTER*>))))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <COMPILER:*COMPILATION-ENVIRONMENT*>) (<GLOBAL:QUOTE> (<COMPILER:MAKE-COMPILATION-ENVIRONMENT> <:TARGET> (<IF> (<EQ> <COMPILER:*TARGET-COMPUTER*> (<GLOBAL:QUOTE> <COMPILER:K>)) (<GLOBAL:QUOTE> <COMPILER:FALCON>) <COMPILER:*TARGET-COMPUTER*>))) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <COMPILER:*COMPILATION-ENVIRONMENT*>) (<GLOBAL:QUOTE> (<COMPILER:MAKE-COMPILATION-ENVIRONMENT> <:TARGET> (<IF> (<EQ> <COMPILER:*TARGET-COMPUTER*> (<GLOBAL:QUOTE> <COMPILER:K>)) (<GLOBAL:QUOTE> <COMPILER:FALCON>) <COMPILER:*TARGET-COMPUTER*>))) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*SOMETHING-LOADED*>)
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "UNBOUND")
      <:UNBOUND>)
    (SYSTEM:FASL-OP-STRING "Bound by MAKE-SYSTEM, set to T if any file is loaded.")
   => (<DEFVAR-1> <*SOMETHING-LOADED*> <:UNBOUND> "Bound by MAKE-SYSTEM, set to T if any file is loaded."))
  (EVAL '(<DEFVAR-1> <*SOMETHING-LOADED*> <:UNBOUND> "Bound by MAKE-SYSTEM, set to T if any file is loaded.")))

(SYSTEM:FASL-OP-FRAME
<MAKE-SYSTEM>
Arg 0 (NIL) is required, local, not initialized.
Rest arg (NIL) is local, not initialized.
Local 1 (NIL) is special, initialized to NIL.

106 PUSH FEF|33  ;'"Give up on making the ~A system."
107 CALL D-PDL FEF|34  ;'NIL
108 PUSH ARG|0
109 MOVE D-LAST 'T
110 POP LOCAL|2
111 BR-NIL 115
112 PUSH LOCAL|2
113 AR-1 (1) D-PDL
114 BR 116
115 PUSH ARG|0
116 PUSH-NUMBER 2
117 (MISC) %INTERNAL-LIST D-PDL
118 POP LOCAL|3
119 PUSH-NUMBER 234
120 (MISC) %CATCH-OPEN D-IGNORE
121 PUSH LOCAL|3
122 PUSH FEF|36  ;'<EH:DEBUGGER-CONDITION>
123 PUSH LOCAL|3
124 PUSH 'T
125 PUSH LOCAL|3
126 PUSH FEF|37  ;'<EH:CATCH-ERROR-RESTART-THROW>
127 PUSH LOCAL|3
128 PUSH-NUMBER 6
129 (MISC) %INTERNAL-LIST D-PDL
130 MOVEM LOCAL|4
131 PUSH FEF|7  ;':CONDITION-RESUME-HANDLERS
132 PUSH-NUMBER 2
133 (MISC) %INTERNAL-LIST* D-PDL
134 BIND-POP FEF|7  ;':CONDITION-RESUME-HANDLERS
135 CALL D-IGNORE FEF|34  ;'NIL
136 MOVE D-LAST ARG|0
137 CALL D-IGNORE FEF|38  ;'NIL
138 PUSH ARG|0
139 MOVE D-LAST LOCAL|0
140 PUSH FEF|17  ;':*MAKE-SYSTEM-SPECIAL-VARIABLES*
141 POP LOCAL|5
142 (MISC) SPECIAL-PDL-INDEX D-PDL
143 MOVE D-IGNORE LOCAL|5
144 BR-NIL 153
145 CAAR D-PDL LOCAL|5
146 (MISC) VALUE-CELL-LOCATION D-PDL
147 CALL D-PDL FEF|39  ;'NIL
148 PUSH LOCAL|5
149 (MISC) CADAR D-LAST
150 (MISC) %BIND D-IGNORE
151 SETE-CDR LOCAL|5
152 BR-NOT-NIL 145
153 PUSH-NUMBER 221
154 PUSH-NUMBER 4
155 (MISC) %CATCH-OPEN-MV D-IGNORE
156 PUSH 'T
157 CALL D-PDL FEF|34  ;'NIL
158 MOVE D-LAST ARG|0
159 POP FEF|16  ;':*SYSTEM-BEING-MADE*
160 CALL D-PDL FEF|41  ;'NIL
161 PUSH FEF|16  ;':*SYSTEM-BEING-MADE*
162 AR-1 (6) D-PDL
163 PUSH FEF|42  ;'<DEFAULT-BINARY-FILE-TYPE>
164 PUSH FEF|14  ;':*TARGET-COMPUTER*
165 PUSH FEF|43  ;'<MAKE-SYSTEM>
166 (MISC) INTERNAL-GET-2 D-PDL
167 CAR D-LAST PDL-POP
168 POP FEF|15  ;':*SYSTEM-DEFAULT-BINARY-FILE-TYPE*
169 PUSH FEF|12  ;':*LOAD-TYPE-TRANSFORMATIONS*
170 PUSH FEF|44  ;'(<DO-COMPONENTS-INTERNAL>)
171 (MISC) %INTERNAL-APPEND-2 D-PDL
172 POP FEF|13  ;':*TOP-LEVEL-TRANSFORMATIONS*
173 PUSH LOCAL|0
174 SET-NIL LOCAL|7
175 POP LOCAL|6
176 BR-NIL 190
177 CAR D-PDL LOCAL|6
178 MOVEM LOCAL|7
179 PUSH FEF|45  ;'<MAKE-SYSTEM-KEYWORD>
180 (MISC) INTERNAL-GET-2 D-PDL
181 POP LOCAL|8
182 BR-NOT-NIL 187
183 CALL D-IGNORE FEF|46  ;'NIL
184 PUSH 'NIL
185 PUSH FEF|47  ;'"~S is not a recognized option"
186 MOVE D-LAST LOCAL|7
187 CALL0 D-IGNORE LOCAL|8
188 SETE-CDR LOCAL|6
189 BR-NOT-NIL 177
190 MOVE D-IGNORE FEF|11  ;':*NO-INCREMENT-PATCH*
191 BR-NIL 196
192 CALL D-PDL FEF|48  ;'NIL
193 PUSH FEF|49  ;'(<:INTERNAL> <MAKE-SYSTEM> 0)
194 MOVE D-LAST FEF|13  ;':*TOP-LEVEL-TRANSFORMATIONS*
195 POP FEF|13  ;':*TOP-LEVEL-TRANSFORMATIONS*
196 PUSH FEF|10  ;':*MAKE-SYSTEM-FORMS-TO-BE-EVALED-BEFORE*
197 SET-NIL LOCAL|9
198 POP LOCAL|6
199 BR-NIL 206
200 CAR D-PDL LOCAL|6
201 POP LOCAL|9
202 CALL D-IGNORE FEF|39  ;'NIL
203 MOVE D-LAST LOCAL|9
204 SETE-CDR LOCAL|6
205 BR-NOT-NIL 200
206 CALL D-IGNORE FEF|50  ;'NIL
207 CALL D-LAST FEF|51  ;'NIL
208 MOVE D-LAST FEF|16  ;':*SYSTEM-BEING-MADE*
209 PUSH FEF|9  ;':*MAKE-SYSTEM-FORMS-TO-BE-EVALED-AFTER*
210 SET-NIL LOCAL|9
211 POP LOCAL|6
212 BR-NIL 219
213 CAR D-PDL LOCAL|6
214 POP LOCAL|9
215 CALL D-IGNORE FEF|39  ;'NIL
216 MOVE D-LAST LOCAL|9
217 SETE-CDR LOCAL|6
218 BR-NOT-NIL 213
219 PUSH 'NIL
220 MOVE D-LAST PDL-POP
221 PUSH FEF|8  ;':*MAKE-SYSTEM-FORMS-TO-BE-EVALED-FINALLY*
222 SET-NIL LOCAL|9
223 POP LOCAL|6
224 BR-NIL 231
225 CAR D-PDL LOCAL|6
226 POP LOCAL|9
227 CALL D-IGNORE FEF|39  ;'NIL
228 MOVE D-LAST LOCAL|9
229 SETE-CDR LOCAL|6
230 BR-NOT-NIL 225
231 (MISC) %UNWIND-PROTECT-CONTINUE D-IGNORE
232 (MISC) UNBIND-TO-INDEX D-IGNORE
233 MOVE D-RETURN FEF|6  ;':*SOMETHING-LOADED*
234 PUSH 'NIL
235 PUSH 'T
236 (MISC) %RETURN-2 D-IGNORE
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [2990] {#<DTP-FEF-POINTER <MAKE-SYSTEM> 57666700>}
  (SYSTEM:FASL-OP-INDEX [104] {<MAKE-SYSTEM>}))

(SYSTEM:FASL-OP-FRAME
(<:INTERNAL> <MAKE-SYSTEM> 0)
 18 PUSH ARG|0
 19 PUSH FEF|6  ;'<INCREMENT-COMPILED-VERSION>
 20 (MISC) M-EQ D-PDL
 21 BR-NIL-POP 23
 22 MOVE D-RETURN FEF|7  ;'(<INCREMENT-COMPILED-VERSION>)
 23 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3004] {#<DTP-FEF-POINTER (<:INTERNAL> <MAKE-SYSTEM> 0) 52102442>}
  (SYSTEM:FASL-OP-INDEX [2958] {(<:INTERNAL> <MAKE-SYSTEM> 0)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*FORCE-PACKAGE*>)
   => (<DEFVAR-1> <*FORCE-PACKAGE*>))
  (EVAL '(<DEFVAR-1> <*FORCE-PACKAGE*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [3005] {<*FORCE-PACKAGE*>})
     => (<GLOBAL:QUOTE> <*FORCE-PACKAGE*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*FORCE-PACKAGE*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*FORCE-PACKAGE*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-FRAME
<COLLECT-TOP-LEVEL-TRANSFORMATIONS>
 30 CALL D-PDL FEF|8  ;'NIL
 31 MOVE D-LAST ARG|0
 32 POP ARG|0
 33 CALL D-PDL FEF|9  ;'NIL
 34 PUSH ARG|0
 35 AR-1 (6) D-PDL
 36 MOVE D-LAST FEF|10  ;'<:PACKAGE>
 37 POP LOCAL|0
 38 BR-NIL 43
 39 PUSH FEF|11  ;'<*FORCE-PACKAGE*>
 40 (MISC) %EXTERNAL-VALUE-CELL D-PDL
 41 PUSH LOCAL|0
 42 (MISC) %BIND D-IGNORE
 43 PUSH-ADDRESS LOCAL|1
 44 POP LOCAL|2
 45 PUSH ARG|0
 46 AR-1 (4) D-PDL
 47 POP LOCAL|4
 48 MOVE D-IGNORE LOCAL|4
 49 BR-NIL 107
 50 CAR D-PDL LOCAL|4
 51 POP LOCAL|3
 52 SETE-CDR LOCAL|4
 53 PUSH LOCAL|2
 54 PUSH LOCAL|3
 55 AR-1 (1) D-PDL
 56 CAR D-PDL PDL-POP
 57 EQ FEF|12  ;'<DO-COMPONENTS-INTERNAL>
 58 BR-NIL 94
 59 PUSH FEF|12  ;'<DO-COMPONENTS-INTERNAL>
 60 PUSH FEF|6  ;':*TOP-LEVEL-TRANSFORMATIONS*
 61 (MISC) MEMQ D-PDL
 62 BR-NIL-POP 100
 63 SET-NIL LOCAL|6
 64 SET-NIL LOCAL|5
 65 PUSH-ADDRESS LOCAL|5
 66 POP LOCAL|6
 67 PUSH ARG|0
 68 AR-1 (2) D-PDL
 69 POP LOCAL|8
 70 SET-NIL LOCAL|7
 71 PUSH ARG|1
 72 PUSH LOCAL|3
 73 AR-1 (3) D-PDL
 74 (MISC) %INTERNAL-APPEND-2 D-PDL
 75 POP LOCAL|9
 76 MOVE D-IGNORE LOCAL|8
 77 BR-NIL 92
 78 CAR D-PDL LOCAL|8
 79 POP LOCAL|7
 80 SETE-CDR LOCAL|8
 81 PUSH LOCAL|6
 82 CALL D-PDL FEF|13  ;'NIL
 83 PUSH LOCAL|7
 84 MOVE D-LAST LOCAL|9
 85 (MISC) RPLACD D-PDL
 86 CDR D-IGNORE PDL-POP
 87 BR-NIL 76
 88 CDR D-PDL LOCAL|6
 89 (MISC) LAST D-PDL
 90 POP LOCAL|6
 91 BR 76
 92 PUSH LOCAL|5
 93 BR 100
 94 PUSH LOCAL|3
 95 PUSH FEF|7  ;':*FORCE-PACKAGE*
 96 PUSH ARG|1
 97 PUSH-NUMBER 3
 98 (MISC) %INTERNAL-LIST D-PDL
 99 (MISC) NCONS D-PDL
100 (MISC) RPLACD D-PDL
101 CDR D-IGNORE PDL-POP
102 BR-NIL 48
103 CDR D-PDL LOCAL|2
104 (MISC) LAST D-PDL
105 POP LOCAL|2
106 BR 48
107 MOVE D-RETURN LOCAL|1
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3036] {#<DTP-FEF-POINTER <COLLECT-TOP-LEVEL-TRANSFORMATIONS> 52103266>}
  (SYSTEM:FASL-OP-INDEX [2960] {<COLLECT-TOP-LEVEL-TRANSFORMATIONS>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*FILE-TRANSFORMATION-LIST*>)
   => (<DEFVAR-1> <*FILE-TRANSFORMATION-LIST*>))
  (EVAL '(<DEFVAR-1> <*FILE-TRANSFORMATION-LIST*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [3037] {<*FILE-TRANSFORMATION-LIST*>})
     => (<GLOBAL:QUOTE> <*FILE-TRANSFORMATION-LIST*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*FILE-TRANSFORMATION-LIST*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*FILE-TRANSFORMATION-LIST*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*FILE-TRANSFORMATION-FUNCTION*>)
   => (<DEFVAR-1> <*FILE-TRANSFORMATION-FUNCTION*>))
  (EVAL '(<DEFVAR-1> <*FILE-TRANSFORMATION-FUNCTION*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [3045] {<*FILE-TRANSFORMATION-FUNCTION*>})
     => (<GLOBAL:QUOTE> <*FILE-TRANSFORMATION-FUNCTION*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (SYSTEM:FASL-OP-SYMBOL <DO-FILE-TRANSFORMATIONS>)
       => (<GLOBAL:QUOTE> <DO-FILE-TRANSFORMATIONS>))
     => (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <DO-FILE-TRANSFORMATIONS>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*FILE-TRANSFORMATION-FUNCTION*>) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <DO-FILE-TRANSFORMATIONS>)) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*FILE-TRANSFORMATION-FUNCTION*>) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <DO-FILE-TRANSFORMATIONS>)) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-FRAME
<PERFORM-TRANSFORMATIONS>
 26 PUSH-ADDRESS LOCAL|0
 27 POP LOCAL|1
 28 PUSH ARG|0
 29 POP LOCAL|3
 30 MOVE D-IGNORE LOCAL|3
 31 BR-NIL 57
 32 CAR D-PDL LOCAL|3
 33 POP LOCAL|2
 34 SETE-CDR LOCAL|3
 35 CAR D-PDL LOCAL|2
 36 CADR D-PDL LOCAL|2
 37 PUSH LOCAL|2
 38 (MISC) CADDR D-PDL
 39 POP LOCAL|6
 40 POP LOCAL|5
 41 MOVEM LOCAL|4
 42 AR-1 (2) D-PDL
 43 MOVEM LOCAL|7
 44 PUSH FEF|9  ;'<TRANSFORMATION>
 45 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 46 BR-NIL 30
 47 PUSH LOCAL|1
 48 PUSH LOCAL|7
 49 PUSH LOCAL|5
 50 PUSH LOCAL|6
 51 PUSH-NUMBER 3
 52 (MISC) %INTERNAL-LIST D-PDL
 53 (MISC) NCONS D-PDL
 54 MOVEM LOCAL|1
 55 (MISC) RPLACD D-IGNORE
 56 BR 30
 57 PUSH LOCAL|0
 58 POP LOCAL|8
 59 BR-NIL 62
 60 CALL D-IGNORE FEF|10  ;'NIL
 61 MOVE D-LAST LOCAL|8
 62 PUSH ARG|0
 63 SET-NIL LOCAL|2
 64 POP LOCAL|3
 65 BR-NIL 80
 66 CAR D-PDL LOCAL|3
 67 POP LOCAL|2
 68 CADR D-PDL LOCAL|2
 69 CAR D-PDL LOCAL|2
 70 AR-1 (5) D-PDL
 71 BIND-POP FEF|7  ;':*SYSTEM-BEING-MADE*
 72 BIND-POP FEF|6  ;':*FORCE-PACKAGE*
 73 CALL D-IGNORE FEF|11  ;'NIL
 74 CAR D-PDL LOCAL|2
 75 PUSH LOCAL|2
 76 (MISC) CADDR D-LAST
 77 (MISC) UNBIND 2 bindings 
 78 SETE-CDR LOCAL|3
 79 BR-NOT-NIL 66
 80 CALL0 D-RETURN FEF|8  ;':*FILE-TRANSFORMATION-FUNCTION*
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3080] {#<DTP-FEF-POINTER <PERFORM-TRANSFORMATIONS> 52107371>}
  (SYSTEM:FASL-OP-INDEX [2959] {<PERFORM-TRANSFORMATIONS>}))

(SYSTEM:FASL-OP-FRAME
<DO-FILE-TRANSFORMATIONS>
 68 PUSH FEF|11  ;':*QUERY-TYPE*
 69 EQ FEF|12  ;'<:NOCONFIRM>
 70 BR-NOT-NIL 73
 71 CALL0 D-IGNORE FEF|13  ;'NIL
 72 BR-NIL 251
 73 PUSH FEF|10  ;':*FILE-TRANSFORMATION-LIST*
 74 POP LOCAL|0
 75 BR-NIL 250
 76 CAR D-PDL LOCAL|0
 77 POP LOCAL|1
 78 CAR D-PDL LOCAL|1
 79 MOVEM LOCAL|2
 80 PUSH FEF|14  ;'(<:DONE> <:REFUSED> <:NOT-NEEDED> <NIL>)
 81 (MISC) MEMQ D-IGNORE
 82 BR-NOT-NIL 248
 83 PUSH LOCAL|2
 84 PUSH FEF|15  ;'(<:PENDING> <:PROBABLY>)
 85 (MISC) MEMQ D-IGNORE
 86 BR-NIL 244
 87 CADR D-PDL LOCAL|1
 88 PUSH-NUMBER 6
 89 PUSH LOCAL|1
 90 (MISC) NTHCDR D-PDL
 91 PUSH LOCAL|1
 92 (MISC) CADDR D-PDL
 93 PUSH LOCAL|1
 94 (MISC) CADDDR D-PDL
 95 BIND-POP FEF|7  ;':*SYSTEM-BEING-MADE*
 96 BIND-POP FEF|6  ;':*FORCE-PACKAGE*
 97 POP LOCAL|4
 98 POP LOCAL|3
 99 PUSH LOCAL|2
100 EQ FEF|16  ;'<:PROBABLY>
101 BR-NIL 111
102 PUSH-NUMBER 4
103 PUSH LOCAL|1
104 (MISC) NTH D-PDL
105 PUSH LOCAL|4
106 (MISC) INTERNAL-APPLY D-IGNORE
107 BR-NOT-NIL 111
108 PUSH FEF|17  ;'<:NOT-NEEDED>
109 POP LOCAL|2
110 BR 239
111 MOVE D-IGNORE FEF|9  ;':*SILENT-P*
112 BR-NOT-NIL 125
113 CALL D-IGNORE FEF|18  ;'NIL
114 PUSH 'T
115 PUSH FEF|19  ;'"~&~\SI::FILE-XFORM-TYPE\~:[ ~\SI::FILE-XFORM-ARGS\~;~*~]~
				     ~:[~; in~:[to~] package ~A~]"
116 PUSH LOCAL|3
117 PUSH LOCAL|4
118 (MISC) NOT D-PDL
119 PUSH LOCAL|1
120 PUSH FEF|6  ;':*FORCE-PACKAGE*
121 PUSH-NUMBER 5
122 PUSH LOCAL|1
123 (MISC) NTH D-PDL
124 MOVE D-LAST FEF|6  ;':*FORCE-PACKAGE*
125 PUSH FEF|20  ;'"Give up ~(~A~)~@[ ~A~]."
126 CALL D-PDL FEF|18  ;'NIL
127 PUSH 'NIL
128 PUSH LOCAL|3
129 (MISC) CADADR D-PDL
130 CALL D-LAST FEF|21  ;'NIL
131 PUSH FEF|7  ;':*SYSTEM-BEING-MADE*
132 AR-1 (6) D-PDL
133 MOVE D-LAST FEF|22  ;'<:SYMBOLIC-NAME>
134 CAR D-PDL LOCAL|4
135 PUSH-NUMBER 3
136 (MISC) %INTERNAL-LIST D-PDL
137 POP LOCAL|5
138 PUSH-NUMBER 239
139 (MISC) %CATCH-OPEN D-IGNORE
140 PUSH LOCAL|5
141 PUSH FEF|24  ;'<ERROR>
142 PUSH LOCAL|5
143 PUSH 'T
144 PUSH LOCAL|5
145 PUSH FEF|25  ;'<EH:CATCH-ERROR-RESTART-THROW>
146 PUSH LOCAL|5
147 PUSH-NUMBER 6
148 (MISC) %INTERNAL-LIST D-PDL
149 MOVEM LOCAL|6
150 PUSH FEF|8  ;':CONDITION-RESUME-HANDLERS
151 PUSH-NUMBER 2
152 (MISC) %INTERNAL-LIST* D-PDL
153 BIND-POP FEF|8  ;':CONDITION-RESUME-HANDLERS
154 PUSH FEF|26  ;'"Retry ~(~A~)~@[ ~A~]."
155 CALL D-PDL FEF|18  ;'NIL
156 PUSH 'NIL
157 PUSH LOCAL|3
158 (MISC) CADADR D-PDL
159 CALL D-LAST FEF|21  ;'NIL
160 PUSH FEF|7  ;':*SYSTEM-BEING-MADE*
161 AR-1 (6) D-PDL
162 MOVE D-LAST FEF|22  ;'<:SYMBOLIC-NAME>
163 CAR D-PDL LOCAL|4
164 PUSH-NUMBER 3
165 (MISC) %INTERNAL-LIST D-PDL
166 POP LOCAL|7
167 PUSH-NUMBER 190
168 (MISC) %CATCH-OPEN D-IGNORE
169 PUSH LOCAL|7
170 PUSH FEF|24  ;'<ERROR>
171 PUSH LOCAL|7
172 PUSH 'T
173 PUSH LOCAL|7
174 PUSH FEF|25  ;'<EH:CATCH-ERROR-RESTART-THROW>
175 PUSH LOCAL|7
176 PUSH-NUMBER 6
177 (MISC) %INTERNAL-LIST D-PDL
178 MOVEM LOCAL|8
179 PUSH FEF|8  ;':CONDITION-RESUME-HANDLERS
180 PUSH-NUMBER 2
181 (MISC) %INTERNAL-LIST* D-PDL
182 BIND-POP FEF|8  ;':CONDITION-RESUME-HANDLERS
183 PUSH LOCAL|3
184 (MISC) CADDR D-PDL
185 PUSH LOCAL|4
186 (MISC) INTERNAL-APPLY D-IGNORE
187 (MISC) UNBIND 1 binding 
188 (MISC) PDL-POP 9 times 
189 BR 191
190 BR 154
191 PUSH FEF|28  ;'<:DONE>
192 POP LOCAL|2
193 PUSH-NUMBER 5
194 PUSH LOCAL|1
195 (MISC) NTH D-PDL
196 SET-NIL LOCAL|9
197 POP LOCAL|8
198 BR-NIL 237
199 CAR D-PDL LOCAL|8
200 POP LOCAL|9
201 CALL D-IGNORE FEF|29  ;'NIL
202 MOVE D-LAST LOCAL|9
203 PUSH FEF|10  ;':*FILE-TRANSFORMATION-LIST*
204 SET-NIL LOCAL|10
205 POP LOCAL|7
206 BR-NIL 235
207 CAR D-PDL LOCAL|7
208 POP LOCAL|10
209 CAR D-PDL LOCAL|10
210 EQ FEF|28  ;'<:DONE>
211 BR-NIL 233
212 PUSH-NUMBER 6
213 PUSH LOCAL|10
214 (MISC) NTHCDR D-PDL
215 PUSH-NUMBER 5
216 PUSH LOCAL|10
217 (MISC) NTH D-PDL
218 POP LOCAL|12
219 POP LOCAL|11
220 BR 226
221 PUSH LOCAL|9
222 CAR D-PDL LOCAL|11
223 EQ PDL-POP
224 BR-NOT-NIL 230
225 SETE-CDR LOCAL|11
226 PUSH LOCAL|11
227 EQ LOCAL|12
228 BR-NIL 221
229 BR 233
230 PUSH LOCAL|10
231 PUSH FEF|16  ;'<:PROBABLY>
232 (MISC) SETCAR D-IGNORE
233 SETE-CDR LOCAL|7
234 BR-NOT-NIL 207
235 SETE-CDR LOCAL|8
236 BR-NOT-NIL 199
237 (MISC) UNBIND 1 binding 
238 (MISC) PDL-POP 9 times 
239 (MISC) UNBIND 2 bindings 
240 PUSH LOCAL|1
241 PUSH LOCAL|2
242 (MISC) SETCAR D-IGNORE
243 BR 248
244 CALL D-IGNORE FEF|30  ;'NIL
245 PUSH 'NIL
246 PUSH FEF|31  ;'"Transformation ~S in bad state"
247 MOVE D-LAST LOCAL|1
248 SETE-CDR LOCAL|0
249 BR-NOT-NIL 76
250 MOVE D-RETURN 'NIL
251 PUSH FEF|10  ;':*FILE-TRANSFORMATION-LIST*
252 SET-NIL LOCAL|1
253 POP LOCAL|8
254 BR-NIL 266
255 CAR D-PDL LOCAL|8
256 POP LOCAL|1
257 CAR D-PDL LOCAL|1
258 PUSH FEF|15  ;'(<:PENDING> <:PROBABLY>)
259 (MISC) MEMQ D-IGNORE
260 BR-NIL 264
261 PUSH LOCAL|1
262 PUSH FEF|32  ;'<:REFUSED>
263 (MISC) SETCAR D-IGNORE
264 SETE-CDR LOCAL|8
265 BR-NOT-NIL 255
266 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3124] {#<DTP-FEF-POINTER <DO-FILE-TRANSFORMATIONS> 52110236>}
  (SYSTEM:FASL-OP-INDEX [3049] {<DO-FILE-TRANSFORMATIONS>}))

(SYSTEM:FASL-OP-FRAME
<QUERY-USER-LIST>
 60 PUSH FEF|9  ;':*FILE-TRANSFORMATION-LIST*
 61 PUSH-NUMBER 0
 62 PUSH 'T
 63 PUSH 'T
 64 POP LOCAL|7
 65 POP LOCAL|4
 66 POP LOCAL|2
 67 POP LOCAL|0
 68 PUSH LOCAL|0
 69 BR-NIL-POP 73
 70 CAR D-PDL LOCAL|0
 71 MOVEM LOCAL|5
 72 CADR D-PDL PDL-POP
 73 POP LOCAL|6
 74 BR-NIL 79
 75 CAR D-PDL LOCAL|5
 76 PUSH FEF|10  ;'(<:PENDING> <:PROBABLY>)
 77 (MISC) MEMQ D-IGNORE
 78 BR-NIL 176
 79 MOVE D-IGNORE LOCAL|3
 80 BR-NIL 122
 81 MOVE D-IGNORE LOCAL|7
 82 BR-NIL 113
 83 CALL D-IGNORE FEF|11  ;'NIL
 84 PUSH FEF|8  ;':*QUERY-IO*
 85 MOVE D-LAST FEF|12  ;'"~2&"
 86 PUSH-NUMBER 6
 87 PUSH LOCAL|3
 88 (MISC) NTHCDR D-IGNORE
 89 BR-NOT-NIL 100
 90 CALL D-IGNORE FEF|11  ;'NIL
 91 PUSH FEF|8  ;':*QUERY-IO*
 92 PUSH FEF|13  ;'"Going to ~\SI::FILE-XFORM-ARGS\"
 93 MOVE D-LAST LOCAL|3
 94 PUSH LOCAL|1
 95 PUSH LOCAL|3
 96 (MISC) NCONS D-PDL
 97 MOVEM LOCAL|4
 98 (MISC) RPLACA D-IGNORE
 99 BR 110
100 CALL D-IGNORE FEF|11  ;'NIL
101 PUSH FEF|8  ;':*QUERY-IO*
102 PUSH FEF|14  ;'"~2&File~:[s~] to be ~A:~%"
103 PUSH LOCAL|6
104 PUSH LOCAL|4
105 (MISC) M-EQ D-PDL
106 (MISC) NOT D-PDL
107 CDR D-PDL LOCAL|4
108 (MISC) CADDAR D-LAST
109 SET-NIL LOCAL|7
110 CALL D-IGNORE FEF|8  ;':*QUERY-IO*
111 PUSH FEF|15  ;'<:TYO>
112 MOVE D-LAST '141
113 PUSH-NUMBER 6
114 PUSH LOCAL|3
115 (MISC) NTHCDR D-IGNORE
116 BR-NIL 121
117 CALL D-IGNORE FEF|11  ;'NIL
118 PUSH FEF|8  ;':*QUERY-IO*
119 PUSH FEF|16  ;'"~&~\SI::FILE-XFORM-ARGS\"
120 MOVE D-LAST LOCAL|3
121 INCF LOCAL|2
122 MOVE D-IGNORE LOCAL|6
123 BR-NOT-NIL 158
124 PUSH LOCAL|2
125 (MISC) PLUSP D-PDL
126 BR-NIL-POP 157
127 CALL D-PDL FEF|17  ;'NIL
128 PUSH FEF|18  ;'<:TIMEOUT>
129 PUSH FEF|19  ;'18000
130 PUSH FEF|20  ;'<:DEFAULT-VALUE>
131 PUSH 'T
132 PUSH FEF|21  ;'<:CHOICES>
133 PUSH FEF|22  ;'((<S> "Selective") 83)
134 PUSH FEF|7  ;':Y-OR-N-P-CHOICES
135 PUSH-NUMBER 2
136 (MISC) %INTERNAL-LIST* D-PDL
137 PUSH-NUMBER 6
138 (MISC) %INTERNAL-LIST D-PDL
139 PUSH FEF|23  ;'"~2&~\XFORM-TYPES\? "
140 CALL D-PDL FEF|24  ;'NIL
141 MOVE D-LAST LOCAL|1
142 MOVE D-LAST LOCAL|2
143 MOVEM LOCAL|8
144 EQ 'T
145 BR-NIL 147
146 MOVE D-RETURN 'T
147 PUSH LOCAL|8
148 EQ FEF|25  ;'<S>
149 BR-NIL 156
150 PUSH FEF|26  ;'<:SELECTIVE>
151 BIND-POP FEF|6  ;':*QUERY-TYPE*
152 CALL D-IGNORE FEF|27  ;'NIL
153 MOVE D-LAST FEF|9  ;':*FILE-TRANSFORMATION-LIST*
154 (MISC) UNBIND 1 binding 
155 CALL0 D-RETURN FEF|28  ;'NIL
156 MOVE D-RETURN 'NIL
157 MOVE D-RETURN PDL-POP
158 PUSH LOCAL|6
159 PUSH LOCAL|4
160 (MISC) M-EQ D-PDL
161 (MISC) NOT D-PDL
162 POP LOCAL|7
163 BR-NIL 172
164 PUSH LOCAL|6
165 PUSH LOCAL|1
166 (MISC) MEMQ D-IGNORE
167 BR-NOT-NIL 172
168 PUSH LOCAL|6
169 PUSH LOCAL|1
170 (MISC) CONS D-PDL
171 POP LOCAL|1
172 PUSH LOCAL|5
173 POP LOCAL|3
174 PUSH LOCAL|6
175 POP LOCAL|4
176 SETE-CDR LOCAL|0
177 BR 68
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3180] {#<DTP-FEF-POINTER <QUERY-USER-LIST> 52115344>}
  (SYSTEM:FASL-OP-INDEX [3086] {<QUERY-USER-LIST>}))

(SYSTEM:FASL-OP-FRAME
<REQUERY-SELECTIVE>
 20 PUSH ARG|0
 21 POP LOCAL|0
 22 BR-NIL 37
 23 CAR D-PDL LOCAL|0
 24 POP LOCAL|1
 25 CAR D-PDL LOCAL|1
 26 PUSH FEF|6  ;'(<:PROBABLY> <:PENDING>)
 27 (MISC) MEMQ D-IGNORE
 28 BR-NIL 35
 29 CALL D-IGNORE FEF|7  ;'NIL
 30 MOVE D-LAST LOCAL|1
 31 BR-NOT-NIL 35
 32 PUSH LOCAL|1
 33 PUSH FEF|8  ;'<:REFUSED>
 34 (MISC) SETCAR D-IGNORE
 35 SETE-CDR LOCAL|0
 36 BR-NOT-NIL 23
 37 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3199] {#<DTP-FEF-POINTER <REQUERY-SELECTIVE> 52124723>}
  (SYSTEM:FASL-OP-INDEX [3155] {<REQUERY-SELECTIVE>}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <FORMAT:XFORM-TYPES> <FORMAT:FORMAT-CTL-MULTI-ARG>)
 32 CAR D-PDL ARG|0
 33 POP LOCAL|0
 34 CADR D-PDL ARG|0
 35 POP LOCAL|1
 36 PUSH FEF|7  ;'(<NIL> <GLOBAL:T>)
 37 POP LOCAL|3
 38 MOVE D-IGNORE LOCAL|3
 39 BR-NIL 137
 40 CAR D-PDL LOCAL|3
 41 POP LOCAL|2
 42 SETE-CDR LOCAL|3
 43 PUSH LOCAL|0
 44 POP LOCAL|4
 45 SET-NIL LOCAL|5
 46 PUSH LOCAL|2
 47 BR-NIL-POP 50
 48 PUSH LOCAL|1
 49 (MISC) PLUSP D-PDL
 50 POP LOCAL|6
 51 MOVE D-IGNORE LOCAL|4
 52 BR-NIL 121
 53 CAR D-PDL LOCAL|4
 54 POP LOCAL|5
 55 PUSH LOCAL|2
 56 CAR D-PDL LOCAL|5
 57 (MISC) ATOM D-PDL
 58 (MISC) NOT D-PDL
 59 EQ PDL-POP
 60 BR-NIL 116
 61 MOVE D-IGNORE LOCAL|2
 62 BR-NOT-NIL 89
 63 MOVE D-IGNORE LOCAL|6
 64 BR-NIL 82
 65 CALL D-IGNORE FEF|6  ;':*STANDARD-OUTPUT*
 66 PUSH FEF|8  ;'<:STRING-OUT>
 67 CDR D-PDL LOCAL|4
 68 POP LOCAL|8
 69 SET-NIL LOCAL|7
 70 MOVE D-IGNORE LOCAL|8
 71 BR-NIL 78
 72 CAR D-PDL LOCAL|8
 73 POP LOCAL|7
 74 SETE-CDR LOCAL|8
 75 CAR D-IGNORE LOCAL|7
 76 BR-NOT-ATOM 70
 77 BR 80
 78 MOVE D-LAST FEF|9  ;'" or "
 79 BR 84
 80 MOVE D-LAST FEF|10  ;'", "
 81 BR 84
 82 PUSH 'T
 83 POP LOCAL|6
 84 CALL D-IGNORE FEF|6  ;':*STANDARD-OUTPUT*
 85 PUSH FEF|8  ;'<:STRING-OUT>
 86 PUSH LOCAL|5
 87 (MISC) CAADR D-LAST
 88 BR 119
 89 MOVE D-IGNORE LOCAL|6
 90 BR-NIL 109
 91 CALL D-IGNORE FEF|6  ;':*STANDARD-OUTPUT*
 92 PUSH FEF|8  ;'<:STRING-OUT>
 93 CDR D-PDL LOCAL|4
 94 POP LOCAL|8
 95 SET-NIL LOCAL|7
 96 MOVE D-IGNORE LOCAL|8
 97 BR-NIL 105
 98 CAR D-PDL LOCAL|8
 99 POP LOCAL|7
100 SETE-CDR LOCAL|8
101 CAR D-PDL LOCAL|7
102 (MISC) NLISTP D-IGNORE
103 BR-NOT-NIL 96
104 BR 107
105 MOVE D-LAST FEF|11  ;'" and "
106 BR 111
107 MOVE D-LAST FEF|10  ;'", "
108 BR 111
109 PUSH 'T
110 POP LOCAL|6
111 CALL D-IGNORE FEF|12  ;'NIL
112 PUSH 'T
113 PUSH FEF|13  ;'"~\SI::FILE-XFORM-ARGS\"
114 CAR D-LAST LOCAL|5
115 BR 119
116 MOVE D-IGNORE LOCAL|2
117 BR-NOT-NIL 119
118 DECF LOCAL|1
119 SETE-CDR LOCAL|4
120 BR-NOT-NIL 53
121 MOVE D-IGNORE LOCAL|2
122 BR-NOT-NIL 38
123 PUSH LOCAL|1
124 (MISC) PLUSP D-IGNORE
125 BR-NIL 38
126 CALL D-IGNORE FEF|12  ;'NIL
127 PUSH 'T
128 PUSH FEF|14  ;'" ~:[it~;~:[both~;all ~R~] of them~]"
129 PUSH LOCAL|1
130 PUSH-NUMBER 1
131 (MISC) M-> D-PDL
132 PUSH LOCAL|1
133 PUSH-NUMBER 2
134 (MISC) M-> D-PDL
135 MOVE D-LAST LOCAL|1
136 BR 38
137 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3242] {#<DTP-FEF-POINTER (<:PROPERTY> <FORMAT:XFORM-TYPES> <FORMAT:FORMAT-CTL-MULTI-ARG>) 52127152>}
  (SYSTEM:FASL-OP-INDEX [3206] {(<:PROPERTY> <FORMAT:XFORM-TYPES> <FORMAT:FORMAT-CTL-MULTI-ARG>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*WHOLE-SYSTEM-TYPE-TRANSFORMATIONS*>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-SYMBOL <INCREMENT-LOADED-VERSION>)
        (SYSTEM:FASL-OP-INDEX [2719] {<INCREMENT-COMPILED-VERSION>})
       => (<INCREMENT-LOADED-VERSION> <INCREMENT-COMPILED-VERSION>))
     => (<GLOBAL:QUOTE> (<INCREMENT-LOADED-VERSION> <INCREMENT-COMPILED-VERSION>)))
   => (<DEFVAR-1> <*WHOLE-SYSTEM-TYPE-TRANSFORMATIONS*> (<GLOBAL:QUOTE> (<INCREMENT-LOADED-VERSION> <INCREMENT-COMPILED-VERSION>))))
  (EVAL '(<DEFVAR-1> <*WHOLE-SYSTEM-TYPE-TRANSFORMATIONS*> (<GLOBAL:QUOTE> (<INCREMENT-LOADED-VERSION> <INCREMENT-COMPILED-VERSION>)))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [434] {<RECORD-SOURCE-FILE-NAME>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <FILE-XFORM-ARGS>)
     => (<GLOBAL:QUOTE> <FILE-XFORM-ARGS>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [3130] {"FORMAT"})
        (SYSTEM:FASL-OP-STRING "DEFFORMAT")
        <FORMAT:DEFFORMAT>)
     => (<GLOBAL:QUOTE> <FORMAT:DEFFORMAT>))
   => (<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <FILE-XFORM-ARGS>) (<GLOBAL:QUOTE> <FORMAT:DEFFORMAT>)))
  (EVAL '(<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <FILE-XFORM-ARGS>) (<GLOBAL:QUOTE> <FORMAT:DEFFORMAT>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <FILE-XFORM-ARGS> <FORMAT:FORMAT-CTL-ONE-ARG>)
 30 PUSH FEF|8  ;':*STANDARD-OUTPUT*
 31 POP LOCAL|0
 32 PUSH-NUMBER 6
 33 PUSH ARG|0
 34 (MISC) NTHCDR D-PDL
 35 POP LOCAL|1
 36 BR-NOT-NIL 54
 37 CADR D-PDL ARG|0
 38 MOVEM LOCAL|2
 39 (MISC) CAADR D-PDL
 40 POP LOCAL|3
 41 CAR D-PDL LOCAL|2
 42 PUSH FEF|7  ;':*WHOLE-SYSTEM-TYPE-TRANSFORMATIONS*
 43 (MISC) MEMQ D-IGNORE
 44 BR-NIL 51
 45 CALL D-RETURN FEF|9  ;'NIL
 46 PUSH 'T
 47 PUSH LOCAL|3
 48 PUSH ARG|0
 49 (MISC) CADDDR D-PDL
 50 AR-1 (1) D-LAST
 51 CALL D-RETURN FEF|6  ;':*QUERY-IO*
 52 PUSH FEF|10  ;'<:STRING-OUT>
 53 MOVE D-LAST LOCAL|3
 54 PUSH LOCAL|1
 55 PUSH-NUMBER 5
 56 PUSH ARG|0
 57 (MISC) NTH D-PDL
 58 PUSH 'T
 59 POP LOCAL|6
 60 POP LOCAL|5
 61 BR 78
 62 CAR D-IGNORE LOCAL|4
 63 BR-NIL 76
 64 MOVE D-IGNORE LOCAL|6
 65 BR-NOT-NIL 74
 66 CALL D-IGNORE FEF|8  ;':*STANDARD-OUTPUT*
 67 PUSH FEF|10  ;'<:STRING-OUT>
 68 CDR D-PDL LOCAL|4
 69 EQ LOCAL|5
 70 BR-NIL 73
 71 MOVE D-LAST FEF|11  ;'" and "
 72 BR 74
 73 MOVE D-LAST FEF|12  ;'", "
 74 CALL D-IGNORE FEF|13  ;'NIL
 75 CAR D-LAST LOCAL|4
 76 CDR D-PDL LOCAL|4
 77 SET-NIL LOCAL|6
 78 MOVEM LOCAL|4
 79 EQ LOCAL|5
 80 BR-NIL 62
 81 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3290] {#<DTP-FEF-POINTER (<:PROPERTY> <FILE-XFORM-ARGS> <FORMAT:FORMAT-CTL-ONE-ARG>) 52131512>}
  (SYSTEM:FASL-OP-INDEX [3260] {(<:PROPERTY> <FILE-XFORM-ARGS> <FORMAT:FORMAT-CTL-ONE-ARG>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [434] {<RECORD-SOURCE-FILE-NAME>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <FILE-XFORM-TYPE>)
     => (<GLOBAL:QUOTE> <FILE-XFORM-TYPE>))
    (SYSTEM:FASL-OP-INDEX [3253] {(<GLOBAL:QUOTE> <FORMAT:DEFFORMAT>)})
   => (<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <FILE-XFORM-TYPE>) (<GLOBAL:QUOTE> <FORMAT:DEFFORMAT>)))
  (EVAL '(<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <FILE-XFORM-TYPE>) (<GLOBAL:QUOTE> <FORMAT:DEFFORMAT>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <FILE-XFORM-TYPE> <FORMAT:FORMAT-CTL-ONE-ARG>)
 24 PUSH FEF|8  ;':*STANDARD-OUTPUT*
 25 POP LOCAL|1
 26 PUSH ARG|0
 27 (MISC) CADADR D-PDL
 28 POP LOCAL|0
 29 CAR D-PDL ARG|0
 30 PUSH FEF|7  ;':*WHOLE-SYSTEM-TYPE-TRANSFORMATIONS*
 31 (MISC) MEMQ D-IGNORE
 32 BR-NOT-NIL 36
 33 CALL D-RETURN FEF|8  ;':*STANDARD-OUTPUT*
 34 PUSH FEF|9  ;'<:STRING-OUT>
 35 MOVE D-LAST LOCAL|0
 36 CALL D-RETURN FEF|10  ;'NIL
 37 PUSH 'T
 38 PUSH LOCAL|0
 39 PUSH FEF|6  ;':*SYSTEM-BEING-MADE*
 40 AR-1 (1) D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3315] {#<DTP-FEF-POINTER (<:PROPERTY> <FILE-XFORM-TYPE> <FORMAT:FORMAT-CTL-ONE-ARG>) 52134060>}
  (SYSTEM:FASL-OP-INDEX [3297] {(<:PROPERTY> <FILE-XFORM-TYPE> <FORMAT:FORMAT-CTL-ONE-ARG>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:PRINT-ONLY> <MAKE-SYSTEM-KEYWORD>)
 18 PUSH FEF|7  ;'<PRINT-FILE-TRANSFORMATIONS>
 19 MOVEM FEF|6  ;':*FILE-TRANSFORMATION-FUNCTION*
 20 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3327] {#<DTP-FEF-POINTER (<:PROPERTY> <:PRINT-ONLY> <MAKE-SYSTEM-KEYWORD>) 52135046>}
  (SYSTEM:FASL-OP-INDEX [3320] {(<:PROPERTY> <:PRINT-ONLY> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-FRAME
<PRINT-FILE-TRANSFORMATIONS>
 44 PUSH FEF|11  ;':*FILE-TRANSFORMATION-LIST*
 45 POP LOCAL|0
 46 BR-NIL 121
 47 CAR D-PDL LOCAL|0
 48 POP LOCAL|1
 49 CAR D-PDL LOCAL|1
 50 MOVEM LOCAL|2
 51 PUSH FEF|12  ;'(<:DONE> <:REFUSED> <:NOT-NEEDED> <NIL>)
 52 (MISC) MEMQ D-IGNORE
 53 BR-NOT-NIL 119
 54 PUSH LOCAL|2
 55 PUSH FEF|13  ;'(<:PENDING> <:PROBABLY>)
 56 (MISC) MEMQ D-IGNORE
 57 BR-NIL 115
 58 CADR D-PDL LOCAL|1
 59 PUSH-NUMBER 6
 60 PUSH LOCAL|1
 61 (MISC) NTHCDR D-PDL
 62 PUSH-NUMBER 5
 63 PUSH LOCAL|1
 64 (MISC) NTH D-PDL
 65 PUSH LOCAL|1
 66 (MISC) CADDR D-PDL
 67 PUSH LOCAL|1
 68 (MISC) CADDDR D-PDL
 69 BIND-POP FEF|7  ;':*SYSTEM-BEING-MADE*
 70 BIND-POP FEF|6  ;':*FORCE-PACKAGE*
 71 POP LOCAL|5
 72 POP LOCAL|4
 73 POP LOCAL|3
 74 MOVE D-IGNORE FEF|10  ;':*SILENT-P*
 75 BR-NOT-NIL 105
 76 PUSH-NUMBER 6
 77 PUSH LOCAL|1
 78 (MISC) NTHCDR D-IGNORE
 79 BR-NOT-NIL 85
 80 CALL D-IGNORE FEF|14  ;'NIL
 81 PUSH FEF|9  ;':*QUERY-IO*
 82 PUSH FEF|15  ;'"~&Need to ~\SI::FILE-XFORM-ARGS\"
 83 MOVE D-LAST LOCAL|1
 84 BR 110
 85 CALL D-IGNORE FEF|14  ;'NIL
 86 PUSH 'T
 87 PUSH FEF|16  ;'"~&~\SI::FILE-XFORM-ARGS\~:[ probably then~] need~:[s~] to be ~A~
			         ~:[~; in~:[to~] package ~A~]"
 88 PUSH LOCAL|1
 89 PUSH LOCAL|2
 90 PUSH FEF|17  ;'<:PROBABLY>
 91 (MISC) M-EQ D-PDL
 92 (MISC) NOT D-PDL
 93 CDR D-PDL LOCAL|4
 94 PUSH LOCAL|5
 95 (MISC) M-EQ D-PDL
 96 (MISC) NOT D-PDL
 97 CDR D-PDL LOCAL|3
 98 (MISC) CADDAR D-PDL
 99 PUSH FEF|6  ;':*FORCE-PACKAGE*
100 PUSH-NUMBER 5
101 PUSH LOCAL|1
102 (MISC) NTH D-PDL
103 MOVE D-LAST FEF|6  ;':*FORCE-PACKAGE*
104 BR 110
105 PUSH FEF|8  ;':*SOMETHING-LOADED*
106 PUSH LOCAL|1
107 (MISC) NCONS D-PDL
108 (MISC) %INTERNAL-NCONC-2 D-PDL
109 POP FEF|8  ;':*SOMETHING-LOADED*
110 (MISC) UNBIND 2 bindings 
111 PUSH LOCAL|1
112 PUSH FEF|18  ;'<:DONE>
113 (MISC) SETCAR D-IGNORE
114 BR 119
115 CALL D-IGNORE FEF|19  ;'NIL
116 PUSH 'NIL
117 PUSH FEF|20  ;'"Transformation ~S in bad state"
118 MOVE D-LAST LOCAL|1
119 SETE-CDR LOCAL|0
120 BR-NOT-NIL 47
121 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3351] {#<DTP-FEF-POINTER <PRINT-FILE-TRANSFORMATIONS> 52135236>}
  (SYSTEM:FASL-OP-INDEX [3324] {<PRINT-FILE-TRANSFORMATIONS>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*TRANSFORMATION-OUTPUTS*>)
   => (<DEFVAR-1> <*TRANSFORMATION-OUTPUTS*>))
  (EVAL '(<DEFVAR-1> <*TRANSFORMATION-OUTPUTS*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [3352] {<*TRANSFORMATION-OUTPUTS*>})
     => (<GLOBAL:QUOTE> <*TRANSFORMATION-OUTPUTS*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*TRANSFORMATION-OUTPUTS*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*TRANSFORMATION-OUTPUTS*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*ADDED-FILE-TRANSFORMATIONS*>)
   => (<DEFVAR-1> <*ADDED-FILE-TRANSFORMATIONS*>))
  (EVAL '(<DEFVAR-1> <*ADDED-FILE-TRANSFORMATIONS*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [3360] {<*ADDED-FILE-TRANSFORMATIONS*>})
     => (<GLOBAL:QUOTE> <*ADDED-FILE-TRANSFORMATIONS*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*ADDED-FILE-TRANSFORMATIONS*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*ADDED-FILE-TRANSFORMATIONS*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-FRAME
<QUEUE-ONE-TRANSFORMATION>
Arg 0 (NIL) is required, local, not initialized.
Arg 1 (NIL) is required, local, not initialized.
Rest arg (NIL) is local, not initialized.
Local 1 (NIL) is special, initialized to NIL.

 54 PUSH ARG|0
 55 PUSH LOCAL|0
 56 (MISC) MEMQ D-IGNORE
 57 BR-NIL 61
 58 CALL D-IGNORE FEF|19  ;'NIL
 59 PUSH 'NIL
 60 MOVE D-LAST FEF|20  ;'"Recursive dependencies detected"
 61 PUSH ARG|0
 62 PUSH FEF|9  ;':*TRANSFORMATION-OUTPUTS*
 63 (MISC) ASSQ D-IGNORE
 64 BR-NOT-NIL 111
 65 CALL D-PDL FEF|21  ;'NIL
 66 MOVE D-LAST ARG|0
 67 PUSH ARG|0
 68 AR-1 (1) D-PDL
 69 CAR D-PDL PDL-POP
 70 POP LOCAL|3
 71 POP LOCAL|2
 72 MOVE D-IGNORE LOCAL|0
 73 BR-NOT-NIL 78
 74 PUSH LOCAL|3
 75 PUSH FEF|8  ;':*TOP-LEVEL-TRANSFORMATIONS*
 76 (MISC) MEMQ D-IGNORE
 77 BR-NIL 111
 78 CALL D-IGNORE FEF|22  ;'NIL
 79 MOVE D-LAST LOCAL|2
 80 BR-NIL 111
 81 PUSH ARG|1
 82 POP LOCAL|4
 83 BR-NIL 95
 84 CAR D-PDL LOCAL|4
 85 POP LOCAL|5
 86 CALL D-IGNORE FEF|23  ;'<QUEUE-ONE-TRANSFORMATION>
 87 CALL D-PDL FEF|24  ;'NIL
 88 MOVE D-LAST LOCAL|5
 89 PUSH 'NIL
 90 PUSH ARG|0
 91 PUSH LOCAL|0
 92 (MISC) %SPREAD D-LAST
 93 SETE-CDR LOCAL|4
 94 BR-NOT-NIL 84
 95 PUSH ARG|0
 96 AR-1 (3) D-PDL
 97 SET-NIL LOCAL|5
 98 POP LOCAL|4
 99 BR-NIL 111
100 CAR D-PDL LOCAL|4
101 POP LOCAL|5
102 CALL D-IGNORE FEF|23  ;'<QUEUE-ONE-TRANSFORMATION>
103 CALL D-PDL FEF|24  ;'NIL
104 MOVE D-LAST LOCAL|5
105 PUSH 'NIL
106 PUSH ARG|0
107 PUSH LOCAL|0
108 (MISC) %SPREAD D-LAST
109 SETE-CDR LOCAL|4
110 BR-NOT-NIL 100
111 PUSH FEF|7  ;':*FILE-TRANSFORMATION-LIST*
112 CALL D-PDL FEF|25  ;'NIL
113 MOVE D-LAST FEF|6  ;':*ADDED-FILE-TRANSFORMATIONS*
114 (MISC) %INTERNAL-NCONC-2 D-PDL
115 MOVEM FEF|7  ;':*FILE-TRANSFORMATION-LIST*
116 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3403] {#<DTP-FEF-POINTER <QUEUE-ONE-TRANSFORMATION> 52144251>}
  (SYSTEM:FASL-OP-INDEX [3060] {<QUEUE-ONE-TRANSFORMATION>}))

(SYSTEM:FASL-OP-FRAME
<GET-TRANSFORMATION-INPUT-FILE-TRANSFORMATIONS>
 30 PUSH ARG|0
 31 AR-1 (2) D-PDL
 32 POP LOCAL|0
 33 BR-NIL 73
 34 CALL D-PDL FEF|6  ;'NIL
 35 MOVE D-LAST LOCAL|0
 36 MOVEM LOCAL|2
 37 EQ FEF|7  ;'<TRANSFORMATION>
 38 BR-NIL 43
 39 CALL D-PDL FEF|8  ;'NIL
 40 MOVE D-LAST LOCAL|0
 41 POP LOCAL|1
 42 BR 54
 43 PUSH LOCAL|2
 44 EQ FEF|9  ;'<MODULE>
 45 BR-NIL 50
 46 CALL D-PDL FEF|10  ;'NIL
 47 MOVE D-LAST LOCAL|0
 48 POP LOCAL|1
 49 BR 54
 50 CALL D-IGNORE FEF|11  ;'NIL
 51 PUSH 'NIL
 52 PUSH FEF|12  ;'"~S is not a valid transformation input"
 53 MOVE D-LAST LOCAL|0
 54 PUSH-ADDRESS LOCAL|3
 55 POP LOCAL|4
 56 PUSH LOCAL|1
 57 POP LOCAL|6
 58 MOVE D-IGNORE LOCAL|6
 59 BR-NIL 71
 60 CAR D-PDL LOCAL|6
 61 POP LOCAL|5
 62 SETE-CDR LOCAL|6
 63 PUSH LOCAL|4
 64 CALL D-PDL FEF|13  ;'NIL
 65 PUSH ARG|0
 66 MOVE D-LAST LOCAL|5
 67 (MISC) NCONS D-PDL
 68 MOVEM LOCAL|4
 69 (MISC) RPLACD D-IGNORE
 70 BR 58
 71 PUSH LOCAL|3
 72 BR 77
 73 CALL D-PDL FEF|13  ;'NIL
 74 PUSH ARG|0
 75 MOVE D-LAST 'NIL
 76 (MISC) NCONS D-PDL
 77 POP LOCAL|1
 78 MOVE D-RETURN LOCAL|1
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3428] {#<DTP-FEF-POINTER <GET-TRANSFORMATION-INPUT-FILE-TRANSFORMATIONS> 52145223>}
  (SYSTEM:FASL-OP-INDEX [3383] {<GET-TRANSFORMATION-INPUT-FILE-TRANSFORMATIONS>}))

(SYSTEM:FASL-OP-FRAME
<POP-CAREFULLY>
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 < '2
 29 BR-NOT-NIL 34
 30 PUSH ARG|0
 31 (MISC) LENGTH D-PDL
 32 > '2
 33 BR-NIL 38
 34 CALL D-IGNORE FEF|6  ;'NIL
 35 PUSH ARG|0
 36 PUSH-NUMBER 1
 37 MOVE D-LAST '1
 38 CADR D-PDL ARG|0
 39 POP LOCAL|0
 40 PUSH FEF|7  ;'<PROG1>
 41 PUSH FEF|8  ;'<CAR>
 42 PUSH LOCAL|0
 43 PUSH-NUMBER 2
 44 (MISC) %INTERNAL-LIST D-PDL
 45 PUSH FEF|9  ;'<SETQ>
 46 PUSH LOCAL|0
 47 PUSH FEF|10  ;'<OR>
 48 PUSH FEF|11  ;'<CDR>
 49 PUSH LOCAL|0
 50 PUSH-NUMBER 2
 51 (MISC) %INTERNAL-LIST D-PDL
 52 PUSH LOCAL|0
 53 PUSH-NUMBER 3
 54 (MISC) %INTERNAL-LIST D-PDL
 55 PUSH-NUMBER 3
 56 (MISC) %INTERNAL-LIST D-PDL
 57 PUSH-NUMBER 3
 58 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [3454] {#<DTP-FEF-POINTER <POP-CAREFULLY> 52146147>})
 => (<MACRO> . #<DTP-FEF-POINTER <POP-CAREFULLY> 52146147>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3455] {(<MACRO> . #<DTP-FEF-POINTER <POP-CAREFULLY> 52146147>)}
  (SYSTEM:FASL-OP-INDEX [3431] {<POP-CAREFULLY>}))

(SYSTEM:FASL-OP-FRAME
<GET-TRANSFORMATION-PATHNAMES>
 34 PUSH ARG|0
 35 PUSH FEF|6  ;':*TRANSFORMATION-OUTPUTS*
 36 (MISC) ASSQ D-PDL
 37 CDR D-PDL PDL-POP
 38 POP LOCAL|0
 39 BR-NIL 43
 40 PUSH LOCAL|0
 41 PUSH 'T
 42 (MISC) %RETURN-2 D-IGNORE
 43 PUSH ARG|0
 44 AR-1 (2) D-PDL
 45 POP LOCAL|1
 46 CALL D-PDL FEF|7  ;'NIL
 47 MOVE D-LAST LOCAL|1
 48 MOVEM LOCAL|2
 49 EQ FEF|8  ;'<MODULE>
 50 BR-NIL 55
 51 CALL D-PDL FEF|9  ;'NIL
 52 MOVE D-LAST LOCAL|1
 53 POP LOCAL|0
 54 BR 66
 55 PUSH LOCAL|2
 56 EQ FEF|10  ;'<TRANSFORMATION>
 57 BR-NIL 62
 58 CALL D-PDL FEF|11  ;'NIL
 59 MOVE D-LAST LOCAL|1
 60 POP LOCAL|0
 61 BR 66
 62 CALL D-IGNORE FEF|12  ;'NIL
 63 PUSH 'NIL
 64 PUSH FEF|13  ;'"~S is not a valid transformation input"
 65 MOVE D-LAST LOCAL|1
 66 PUSH-ADDRESS LOCAL|3
 67 POP LOCAL|4
 68 PUSH LOCAL|0
 69 POP LOCAL|6
 70 PUSH ARG|0
 71 AR-1 (1) D-PDL
 72 POP LOCAL|7
 73 MOVE D-IGNORE LOCAL|6
 74 BR-NIL 135
 75 CAR D-PDL LOCAL|6
 76 POP LOCAL|5
 77 SETE-CDR LOCAL|6
 78 CAR D-PDL LOCAL|5
 79 SETE-CDR LOCAL|5
 80 POP LOCAL|8
 81 PUSH LOCAL|7
 82 (MISC) CADDDR D-PDL
 83 POP LOCAL|10
 84 BR-NIL 91
 85 CDR D-PDL LOCAL|5
 86 BR-NOT-NIL-POP 88
 87 PUSH LOCAL|5
 88 POP LOCAL|5
 89 SETE-CDR LOCAL|10
 90 BR-NOT-NIL 85
 91 SET-NIL LOCAL|12
 92 SET-NIL LOCAL|11
 93 PUSH-ADDRESS LOCAL|11
 94 POP LOCAL|12
 95 PUSH-NUMBER 4
 96 PUSH LOCAL|7
 97 (MISC) NTH D-PDL
 98 POP LOCAL|14
 99 SET-NIL LOCAL|13
100 SET-NIL LOCAL|15
101 MOVE D-IGNORE LOCAL|14
102 BR-NIL 123
103 CAR D-PDL LOCAL|14
104 POP LOCAL|13
105 SETE-CDR LOCAL|14
106 CALL D-PDL FEF|14  ;'NIL
107 MOVE D-LAST LOCAL|13
108 POP LOCAL|15
109 PUSH LOCAL|12
110 PUSH LOCAL|15
111 BR-NIL-POP 119
112 CALL D-PDL FEF|15  ;'NIL
113 CAR D-PDL LOCAL|5
114 CDR D-PDL LOCAL|5
115 BR-NOT-NIL-POP 117
116 PUSH LOCAL|5
117 POP LOCAL|5
118 MOVE D-LAST LOCAL|15
119 (MISC) NCONS D-PDL
120 MOVEM LOCAL|12
121 (MISC) RPLACD D-IGNORE
122 BR 101
123 PUSH LOCAL|11
124 POP LOCAL|9
125 PUSH LOCAL|4
126 PUSH LOCAL|8
127 PUSH LOCAL|9
128 PUSH LOCAL|5
129 (MISC) %INTERNAL-NCONC-2 D-PDL
130 (MISC) CONS D-PDL
131 (MISC) NCONS D-PDL
132 MOVEM LOCAL|4
133 (MISC) RPLACD D-IGNORE
134 BR 73
135 MOVE D-RETURN LOCAL|3
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3484] {#<DTP-FEF-POINTER <GET-TRANSFORMATION-PATHNAMES> 52146764>}
  (SYSTEM:FASL-OP-INDEX [3410] {<GET-TRANSFORMATION-PATHNAMES>}))

(SYSTEM:FASL-OP-FRAME
<GET-MODULE-PATHNAMES>
Arg 0 (NIL) is required, local, not initialized.
Arg 1 (NIL) is optional, local, initialized to '<GLOBAL:T>.
Local 0 (NIL) is local, not initialized.

 30 PUSH ARG|0
 31 PUSH-NUMBER 4
 32 (MISC) AP-1 D-PDL
 33 PUSH FEF|11  ;'(<:PACKAGE>)
 34 (MISC) GETL D-PDL
 35 POP LOCAL|0
 36 BR-NIL 41
 37 PUSH FEF|12  ;'<*FORCE-PACKAGE*>
 38 (MISC) %EXTERNAL-VALUE-CELL D-PDL
 39 CADR D-PDL LOCAL|0
 40 (MISC) %BIND D-IGNORE
 41 CALL D-RETURN FEF|13  ;'NIL
 42 PUSH ARG|0
 43 AR-1 (3) D-PDL
 44 MOVE D-LAST ARG|1
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3509] {#<DTP-FEF-POINTER <GET-MODULE-PATHNAMES> 52151025>}
  (SYSTEM:FASL-OP-INDEX [3411] {<GET-MODULE-PATHNAMES>}))

(SYSTEM:FASL-OP-FRAME
<GET-MODULE-COMPONENTS-PATHNAMES>
Arg 0 (NIL) is required, local, not initialized.
Arg 1 (NIL) is optional, local, initialized to '<GLOBAL:T>.

 52 PUSH-ADDRESS LOCAL|0
 53 POP LOCAL|1
 54 PUSH ARG|0
 55 POP LOCAL|3
 56 MOVE D-IGNORE LOCAL|3
 57 BR-NIL 122
 58 CAR D-PDL LOCAL|3
 59 POP LOCAL|2
 60 SETE-CDR LOCAL|3
 61 PUSH LOCAL|1
 62 PUSH LOCAL|2
 63 PUSH FEF|19  ;'<MODULE>
 64 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 65 BR-NIL 69
 66 CALL D-PDL FEF|20  ;'NIL
 67 MOVE D-LAST LOCAL|2
 68 BR 115
 69 PUSH LOCAL|2
 70 (MISC) NLISTP D-IGNORE
 71 BR-NIL 77
 72 CALL D-PDL FEF|21  ;'NIL
 73 PUSH 'NIL
 74 PUSH FEF|22  ;'"~S is not a valid module component"
 75 MOVE D-LAST LOCAL|2
 76 BR 115
 77 CAR D-PDL LOCAL|2
 78 (MISC) SYMBOLP D-IGNORE
 79 BR-NIL 111
 80 PUSH ARG|1
 81 BR-NIL-POP 115
 82 SET-NIL LOCAL|5
 83 SET-NIL LOCAL|4
 84 PUSH-ADDRESS LOCAL|4
 85 POP LOCAL|5
 86 CDR D-PDL LOCAL|2
 87 POP LOCAL|7
 88 SET-NIL LOCAL|6
 89 CALL D-PDL FEF|23  ;'NIL
 90 CAR D-LAST LOCAL|2
 91 POP LOCAL|8
 92 MOVE D-IGNORE LOCAL|7
 93 BR-NIL 109
 94 CAR D-PDL LOCAL|7
 95 POP LOCAL|6
 96 SETE-CDR LOCAL|7
 97 PUSH LOCAL|5
 98 CALL D-PDL FEF|20  ;'NIL
 99 CALL D-LAST FEF|24  ;'NIL
100 PUSH LOCAL|6
101 MOVE D-LAST LOCAL|8
102 (MISC) RPLACD D-PDL
103 CDR D-IGNORE PDL-POP
104 BR-NIL 92
105 CDR D-PDL LOCAL|5
106 (MISC) LAST D-PDL
107 POP LOCAL|5
108 BR 92
109 PUSH LOCAL|4
110 BR 115
111 PUSH FEF|6  ;':*FORCE-PACKAGE*
112 PUSH LOCAL|2
113 (MISC) CONS D-PDL
114 (MISC) NCONS D-PDL
115 (MISC) RPLACD D-PDL
116 CDR D-IGNORE PDL-POP
117 BR-NIL 56
118 CDR D-PDL LOCAL|1
119 (MISC) LAST D-PDL
120 POP LOCAL|1
121 BR 56
122 MOVE D-RETURN LOCAL|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3540] {#<DTP-FEF-POINTER <GET-MODULE-COMPONENTS-PATHNAMES> 52151402>}
  (SYSTEM:FASL-OP-INDEX [3494] {<GET-MODULE-COMPONENTS-PATHNAMES>}))

(SYSTEM:FASL-OP-FRAME
<ADD-FILE-TRANSFORMATION>
 38 PUSH ARG|0
 39 AR-1 (1) D-PDL
 40 POP LOCAL|0
 41 PUSH ARG|0
 42 AR-1 (4) D-PDL
 43 POP LOCAL|1
 44 PUSH ARG|0
 45 AR-1 (5) D-PDL
 46 POP LOCAL|8
 47 CAR D-PDL ARG|1
 48 SETE-CDR ARG|1
 49 POP LOCAL|3
 50 BR-ATOM 56
 51 PUSH LOCAL|3
 52 POP LOCAL|2
 53 PUSH LOCAL|3
 54 (MISC) CADDR D-PDL
 55 POP LOCAL|3
 56 PUSH-ADDRESS LOCAL|9
 57 POP LOCAL|10
 58 PUSH LOCAL|0
 59 (MISC) CADDDR D-PDL
 60 POP LOCAL|12
 61 MOVE D-IGNORE LOCAL|12
 62 BR-NIL 83
 63 CAR D-PDL LOCAL|12
 64 POP LOCAL|11
 65 SETE-CDR LOCAL|12
 66 CALL D-PDL FEF|10  ;'NIL
 67 MOVE D-LAST LOCAL|11
 68 POP LOCAL|13
 69 PUSH LOCAL|10
 70 PUSH LOCAL|13
 71 BR-NIL-POP 79
 72 CALL D-PDL FEF|11  ;'NIL
 73 CAR D-PDL ARG|1
 74 CDR D-PDL ARG|1
 75 BR-NOT-NIL-POP 77
 76 PUSH ARG|1
 77 POP ARG|1
 78 MOVE D-LAST LOCAL|13
 79 (MISC) NCONS D-PDL
 80 MOVEM LOCAL|10
 81 (MISC) RPLACD D-IGNORE
 82 BR 61
 83 PUSH LOCAL|9
 84 POP LOCAL|4
 85 SET-NIL LOCAL|12
 86 SET-NIL LOCAL|10
 87 PUSH-ADDRESS LOCAL|10
 88 POP LOCAL|12
 89 PUSH-NUMBER 4
 90 PUSH LOCAL|0
 91 (MISC) NTH D-PDL
 92 POP LOCAL|9
 93 SET-NIL LOCAL|11
 94 SET-NIL LOCAL|13
 95 MOVE D-IGNORE LOCAL|9
 96 BR-NIL 117
 97 CAR D-PDL LOCAL|9
 98 POP LOCAL|11
 99 SETE-CDR LOCAL|9
100 CALL D-PDL FEF|10  ;'NIL
101 MOVE D-LAST LOCAL|11
102 POP LOCAL|13
103 PUSH LOCAL|12
104 PUSH LOCAL|13
105 BR-NIL-POP 113
106 CALL D-PDL FEF|11  ;'NIL
107 CAR D-PDL ARG|1
108 CDR D-PDL ARG|1
109 BR-NOT-NIL-POP 111
110 PUSH ARG|1
111 POP ARG|1
112 MOVE D-LAST LOCAL|13
113 (MISC) NCONS D-PDL
114 MOVEM LOCAL|12
115 (MISC) RPLACD D-IGNORE
116 BR 95
117 PUSH LOCAL|10
118 POP LOCAL|5
119 PUSH LOCAL|4
120 PUSH LOCAL|5
121 (MISC) %INTERNAL-NCONC-2 D-PDL
122 POP LOCAL|6
123 PUSH FEF|9  ;':*FILE-TRANSFORMATION-LIST*
124 SET-NIL LOCAL|14
125 POP LOCAL|12
126 BR-NIL 150
127 CAR D-PDL LOCAL|12
128 POP LOCAL|14
129 CADR D-PDL LOCAL|14
130 EQ LOCAL|0
131 BR-NIL 148
132 PUSH-NUMBER 6
133 PUSH LOCAL|14
134 (MISC) NTHCDR D-PDL
135 PUSH LOCAL|6
136 (MISC) EQUAL D-IGNORE
137 BR-NIL 148
138 PUSH LOCAL|14
139 (MISC) CADDR D-PDL
140 EQ LOCAL|3
141 BR-NIL 148
142 PUSH LOCAL|14
143 (MISC) CADDDR D-PDL
144 EQ LOCAL|8
145 BR-NIL 148
146 PUSH LOCAL|14
147 BR 151
148 SETE-CDR LOCAL|12
149 BR-NOT-NIL 127
150 PUSH 'NIL
151 POP LOCAL|7
152 BR-NIL 198
153 PUSH LOCAL|7
154 (MISC) CDDDDR D-PDL
155 PUSH-NUMBER 4
156 PUSH LOCAL|7
157 (MISC) NTH D-PDL
158 MOVEM LOCAL|15
159 EQ LOCAL|1
160 BR-NIL 163
161 PUSH LOCAL|1
162 BR 191
163 PUSH LOCAL|15
164 (MISC) %DATA-TYPE D-PDL
165 = FEF|12  ;'20
166 BR-NIL 182
167 PUSH LOCAL|1
168 CALL D-PDL FEF|13  ;'NIL
169 PUSH LOCAL|15
170 MOVE D-LAST FEF|14  ;'<*CONDITION-FUNCTIONS*>
171 (MISC) MEMQ D-PDL
172 BR-NOT-NIL-POP 191
173 CALL D-PDL FEF|15  ;'NIL
174 PUSH LOCAL|15
175 PUSH FEF|14  ;'<*CONDITION-FUNCTIONS*>
176 PUSH LOCAL|1
177 CALL D-PDL FEF|13  ;'NIL
178 PUSH LOCAL|15
179 MOVE D-LAST FEF|14  ;'<*CONDITION-FUNCTIONS*>
180 (MISC) CONS D-LAST
181 BR 191
182 PUSH LOCAL|15
183 PUSH LOCAL|1
184 PUSH-NUMBER 2
185 (MISC) %INTERNAL-LIST D-PDL
186 BIND-POP FEF|6  ;':*CONDITION-FUNCTIONS*
187 PUSH FEF|16  ;'(<*CONDITION-FUNCTIONS*>)
188 PUSH FEF|17  ;'<MULTIPLE-FILE-CONDITION>
189 (MISC) CLOSURE D-PDL
190 (MISC) UNBIND 1 binding 
191 (MISC) SETCAR D-IGNORE
192 PUSH LOCAL|7
193 PUSH FEF|9  ;':*FILE-TRANSFORMATION-LIST*
194 PUSH '-1
195 (MISC) %INTERNAL-DELQ D-PDL
196 POP FEF|9  ;':*FILE-TRANSFORMATION-LIST*
197 BR 208
198 PUSH 'NIL
199 PUSH LOCAL|0
200 PUSH LOCAL|3
201 PUSH LOCAL|8
202 PUSH LOCAL|1
203 PUSH LOCAL|5
204 PUSH LOCAL|6
205 PUSH-NUMBER 7
206 (MISC) %INTERNAL-LIST* D-PDL
207 POP LOCAL|7
208 PUSH LOCAL|7
209 PUSH FEF|8  ;':*ADDED-FILE-TRANSFORMATIONS*
210 (MISC) CONS D-PDL
211 POP FEF|8  ;':*ADDED-FILE-TRANSFORMATIONS*
212 PUSH LOCAL|7
213 PUSH LOCAL|5
214 PUSH ARG|1
215 (MISC) %INTERNAL-APPEND-2 D-PDL
216 (MISC) CONS D-PDL
217 PUSH ARG|0
218 PUSH FEF|7  ;':*TRANSFORMATION-OUTPUTS*
219 (MISC) ASSQ D-PDL
220 POP LOCAL|17
221 POP LOCAL|16
222 MOVE D-IGNORE LOCAL|17
223 BR-NIL 229
224 PUSH LOCAL|17
225 PUSH LOCAL|16
226 (MISC) NCONS D-PDL
227 (MISC) %INTERNAL-NCONC-2 D-IGNORE
228 BR 236
229 PUSH ARG|0
230 PUSH LOCAL|16
231 PUSH-NUMBER 2
232 (MISC) %INTERNAL-LIST D-PDL
233 PUSH FEF|7  ;':*TRANSFORMATION-OUTPUTS*
234 (MISC) CONS D-PDL
235 POP FEF|7  ;':*TRANSFORMATION-OUTPUTS*
236 PUSH LOCAL|2
237 PUSH LOCAL|7
238 (MISC) CONS D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3583] {#<DTP-FEF-POINTER <ADD-FILE-TRANSFORMATION> 52152344>}
  (SYSTEM:FASL-OP-INDEX [3413] {<ADD-FILE-TRANSFORMATION>}))

(SYSTEM:FASL-OP-FRAME
<MULTIPLE-FILE-CONDITION>
 16 PUSH FEF|6  ;':*CONDITION-FUNCTIONS*
 17 POP LOCAL|1
 18 BR-NIL 27
 19 CAR D-PDL LOCAL|1
 20 MOVEM LOCAL|2
 21 PUSH LOCAL|0
 22 (MISC) INTERNAL-APPLY D-IGNORE
 23 BR-NIL 25
 24 MOVE D-RETURN 'T
 25 SETE-CDR LOCAL|1
 26 BR-NOT-NIL 19
 27 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3598] {#<DTP-FEF-POINTER <MULTIPLE-FILE-CONDITION> 52156116>}
  (SYSTEM:FASL-OP-INDEX [3551] {<MULTIPLE-FILE-CONDITION>}))

(SYSTEM:FASL-OP-FRAME
<QUEUE-FILES-AS-NEEDED>
 32 PUSH ARG|0
 33 POP LOCAL|0
 34 BR-NIL 90
 35 CAR D-PDL LOCAL|0
 36 POP LOCAL|2
 37 CAAR D-PDL LOCAL|2
 38 PUSH FEF|9  ;'(<:PENDING> <:PROBABLY>)
 39 (MISC) MEMQ D-PDL
 40 POP LOCAL|4
 41 SETE-CDR LOCAL|2
 42 CAR D-IGNORE LOCAL|2
 43 BR-NOT-NIL 88
 44 MOVE D-IGNORE FEF|8  ;':*REDO-ALL*
 45 BR-NOT-NIL 75
 46 PUSH LOCAL|2
 47 (MISC) CADDR D-PDL
 48 PUSH LOCAL|2
 49 (MISC) CADDDR D-PDL
 50 BIND-POP FEF|7  ;':*SYSTEM-BEING-MADE*
 51 BIND-POP FEF|6  ;':*FORCE-PACKAGE*
 52 PUSH-NUMBER 4
 53 PUSH LOCAL|2
 54 (MISC) NTH D-PDL
 55 PUSH-NUMBER 6
 56 PUSH LOCAL|2
 57 (MISC) NTHCDR D-PDL
 58 (MISC) INTERNAL-APPLY D-IGNORE
 59 (MISC) UNBIND 2 bindings 
 60 BR-NOT-NIL 75
 61 MOVE D-IGNORE LOCAL|4
 62 BR-NOT-NIL 65
 63 PUSH FEF|10  ;'<:NOT-NEEDED>
 64 BR 73
 65 CALL D-IGNORE FEF|11  ;'NIL
 66 MOVE D-LAST LOCAL|2
 67 BR-NIL 72
 68 PUSH 'T
 69 POP LOCAL|1
 70 PUSH FEF|12  ;'<:PROBABLY>
 71 BR 73
 72 PUSH FEF|13  ;'<:REFUSED>
 73 POP LOCAL|3
 74 BR 85
 75 CALL D-IGNORE FEF|11  ;'NIL
 76 MOVE D-LAST LOCAL|2
 77 BR-NOT-NIL 81
 78 PUSH FEF|13  ;'<:REFUSED>
 79 POP LOCAL|3
 80 BR 85
 81 PUSH FEF|14  ;'<:PENDING>
 82 POP LOCAL|3
 83 PUSH 'T
 84 POP LOCAL|1
 85 PUSH LOCAL|2
 86 PUSH LOCAL|3
 87 (MISC) SETCAR D-IGNORE
 88 SETE-CDR LOCAL|0
 89 BR-NOT-NIL 35
 90 MOVE D-RETURN LOCAL|1
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3621] {#<DTP-FEF-POINTER <QUEUE-FILES-AS-NEEDED> 52156421>}
  (SYSTEM:FASL-OP-INDEX [3384] {<QUEUE-FILES-AS-NEEDED>}))

(SYSTEM:FASL-OP-FRAME
<DEFINE-SIMPLE-TRANSFORMATION>
 52 PUSH ARG|0
 53 (MISC) LENGTH D-PDL
 54 < '6
 55 BR-NOT-NIL 60
 56 PUSH ARG|0
 57 (MISC) LENGTH D-PDL
 58 > '9
 59 BR-NIL 64
 60 CALL D-IGNORE FEF|6  ;'NIL
 61 PUSH ARG|0
 62 PUSH-NUMBER 5
 63 MOVE D-LAST '8
 64 CADR D-PDL ARG|0
 65 POP LOCAL|1
 66 PUSH ARG|0
 67 (MISC) CADDR D-PDL
 68 POP LOCAL|2
 69 PUSH ARG|0
 70 (MISC) CADDDR D-PDL
 71 POP LOCAL|3
 72 CDR D-PDL ARG|0
 73 (MISC) CADDDR D-PDL
 74 POP LOCAL|4
 75 CDDR D-PDL ARG|0
 76 (MISC) CADDDR D-PDL
 77 POP LOCAL|5
 78 PUSH ARG|0
 79 (MISC) CDDDR D-PDL
 80 (MISC) CADDDR D-PDL
 81 POP LOCAL|6
 82 PUSH ARG|0
 83 (MISC) CDDDR D-PDL
 84 (MISC) CDDDDR D-IGNORE
 85 BR-NIL 90
 86 PUSH ARG|0
 87 (MISC) CDDDDR D-PDL
 88 (MISC) CADDDR D-PDL
 89 BR 91
 90 PUSH 'T
 91 POP LOCAL|7
 92 PUSH ARG|0
 93 (MISC) CDDDDR D-PDL
 94 (MISC) CDDDDR D-IGNORE
 95 BR-NIL 102
 96 PUSH 'T
 97 POP LOCAL|0
 98 CDR D-PDL ARG|0
 99 (MISC) CDDDDR D-PDL
100 (MISC) CADDDR D-PDL
101 BR 103
102 PUSH 'NIL
103 POP LOCAL|8
104 MOVE D-IGNORE LOCAL|0
105 BR-NOT-NIL 109
106 PUSH LOCAL|7
107 (MISC) NOT D-PDL
108 POP LOCAL|8
109 MOVE D-IGNORE LOCAL|6
110 BR-NOT-NIL 114
111 CALL D-PDL FEF|7  ;'NIL
112 MOVE D-LAST LOCAL|1
113 POP LOCAL|6
114 BR-NOT-ATOM 157
115 CALL D-PDL FEF|8  ;'NIL
116 MOVE D-LAST LOCAL|6
117 POP LOCAL|9
118 PUSH LOCAL|6
119 PUSH 1- LOCAL|9
120 (MISC) AR-1 D-PDL
121 PUSH-NUMBER 101
122 (MISC) INTERNAL-CHAR-EQUAL D-PDL
123 POP LOCAL|10
124 PUSH LOCAL|6
125 AR-1 (0) D-PDL
126 (MISC) CHAR-UPCASE D-PDL
127 POP LOCAL|11
128 CALL D-PDL FEF|9  ;'NIL
129 PUSH LOCAL|6
130 MOVE D-LAST '1
131 POP LOCAL|12
132 MOVE D-IGNORE LOCAL|10
133 BR-NIL 140
134 CALL D-PDL FEF|9  ;'NIL
135 PUSH LOCAL|6
136 PUSH-NUMBER 1
137 PUSH LOCAL|9
138 (MISC) 1- D-LAST
139 BR 141
140 PUSH LOCAL|12
141 POP LOCAL|13
142 CALL D-PDL FEF|10  ;'NIL
143 PUSH LOCAL|11
144 MOVE D-LAST LOCAL|12
145 CALL D-PDL FEF|10  ;'NIL
146 PUSH LOCAL|11
147 PUSH LOCAL|13
148 MOVE D-LAST FEF|11  ;'"ing"
149 CALL D-PDL FEF|10  ;'NIL
150 PUSH LOCAL|6
151 AR-1 (0) D-PDL
152 PUSH LOCAL|13
153 MOVE D-LAST FEF|12  ;'"ed"
154 PUSH-NUMBER 3
155 (MISC) %INTERNAL-LIST D-PDL
156 POP LOCAL|6
157 PUSH FEF|13  ;'<PROGN>
158 PUSH FEF|14  ;'(<GLOBAL:QUOTE> <COMPILE>)
159 PUSH FEF|15  ;'<ADD-SIMPLE-TRANSFORMATION>
160 PUSH FEF|16  ;'<GLOBAL:QUOTE>
161 PUSH LOCAL|1
162 PUSH-NUMBER 2
163 (MISC) %INTERNAL-LIST D-PDL
164 PUSH FEF|16  ;'<GLOBAL:QUOTE>
165 PUSH LOCAL|2
166 PUSH-NUMBER 2
167 (MISC) %INTERNAL-LIST D-PDL
168 PUSH FEF|16  ;'<GLOBAL:QUOTE>
169 PUSH LOCAL|4
170 PUSH-NUMBER 2
171 (MISC) %INTERNAL-LIST D-PDL
172 PUSH FEF|16  ;'<GLOBAL:QUOTE>
173 PUSH LOCAL|5
174 PUSH-NUMBER 2
175 (MISC) %INTERNAL-LIST D-PDL
176 PUSH FEF|16  ;'<GLOBAL:QUOTE>
177 PUSH LOCAL|6
178 PUSH-NUMBER 2
179 (MISC) %INTERNAL-LIST D-PDL
180 PUSH FEF|16  ;'<GLOBAL:QUOTE>
181 PUSH LOCAL|7
182 PUSH-NUMBER 2
183 (MISC) %INTERNAL-LIST D-PDL
184 PUSH FEF|16  ;'<GLOBAL:QUOTE>
185 PUSH LOCAL|8
186 PUSH-NUMBER 2
187 (MISC) %INTERNAL-LIST D-PDL
188 PUSH-NUMBER 8
189 (MISC) %INTERNAL-LIST D-PDL
190 PUSH FEF|17  ;'<DEFMACRO>
191 PUSH LOCAL|1
192 PUSH FEF|18  ;'(<DEFSYSTEM-MACRO>)
193 PUSH-NUMBER 2
194 (MISC) %INTERNAL-LIST* D-PDL
195 PUSH FEF|19  ;'(<INPUT> <&OPTIONAL> <DEPENDENCIES> <CONDITION>)
196 PUSH FEF|20  ;'<PARSE-TRANSFORMATION>
197 PUSH FEF|16  ;'<GLOBAL:QUOTE>
198 PUSH LOCAL|1
199 PUSH-NUMBER 2
200 (MISC) %INTERNAL-LIST D-PDL
201 PUSH FEF|21  ;'<INPUT>
202 PUSH FEF|22  ;'<DEPENDENCIES>
203 PUSH FEF|23  ;'<OR>
204 PUSH FEF|24  ;'<CONDITION>
205 PUSH FEF|16  ;'<GLOBAL:QUOTE>
206 PUSH LOCAL|3
207 PUSH-NUMBER 2
208 (MISC) %INTERNAL-LIST D-PDL
209 PUSH-NUMBER 3
210 (MISC) %INTERNAL-LIST D-PDL
211 PUSH-NUMBER 5
212 (MISC) %INTERNAL-LIST D-PDL
213 PUSH-NUMBER 4
214 (MISC) %INTERNAL-LIST D-PDL
215 PUSH-NUMBER 4
216 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [3679] {#<DTP-FEF-POINTER <DEFINE-SIMPLE-TRANSFORMATION> 52160130>})
 => (<MACRO> . #<DTP-FEF-POINTER <DEFINE-SIMPLE-TRANSFORMATION> 52160130>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3680] {(<MACRO> . #<DTP-FEF-POINTER <DEFINE-SIMPLE-TRANSFORMATION> 52160130>)}
  (SYSTEM:FASL-OP-INDEX [3624] {<DEFINE-SIMPLE-TRANSFORMATION>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*TRANSFORMATION-TYPE-ALIST*>)
    (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
   => (<DEFVAR-1> <*TRANSFORMATION-TYPE-ALIST*> <NIL>))
  (EVAL '(<DEFVAR-1> <*TRANSFORMATION-TYPE-ALIST*> <NIL>)))

(SYSTEM:FASL-OP-FRAME
<ADD-SIMPLE-TRANSFORMATION>
 24 PUSH ARG|0
 25 PUSH ARG|4
 26 PUSH ARG|1
 27 PUSH ARG|2
 28 PUSH ARG|3
 29 PUSH-NUMBER 5
 30 (MISC) %INTERNAL-LIST D-PDL
 31 MOVEM LOCAL|0
 32 CALL D-PDL FEF|9  ;'NIL
 33 PUSH FEF|10  ;'(<:INTERNAL> <ADD-SIMPLE-TRANSFORMATION> 0)
 34 PUSH LOCAL|0
 35 MOVE D-LAST FEF|8  ;':*TRANSFORMATION-TYPE-ALIST*
 36 (MISC) CONS D-PDL
 37 POP FEF|8  ;':*TRANSFORMATION-TYPE-ALIST*
 38 MOVE D-IGNORE ARG|5
 39 BR-NIL 48
 40 PUSH ARG|0
 41 PUSH FEF|7  ;':*COMPILE-TYPE-TRANSFORMATIONS*
 42 (MISC) MEMQ D-IGNORE
 43 BR-NOT-NIL 48
 44 PUSH ARG|0
 45 PUSH FEF|7  ;':*COMPILE-TYPE-TRANSFORMATIONS*
 46 (MISC) CONS D-PDL
 47 POP FEF|7  ;':*COMPILE-TYPE-TRANSFORMATIONS*
 48 PUSH ARG|6
 49 BR-NIL-POP 60
 50 PUSH ARG|0
 51 PUSH FEF|6  ;':*LOAD-TYPE-TRANSFORMATIONS*
 52 (MISC) MEMQ D-PDL
 53 BR-NOT-NIL-POP 59
 54 PUSH ARG|0
 55 PUSH FEF|6  ;':*LOAD-TYPE-TRANSFORMATIONS*
 56 (MISC) CONS D-PDL
 57 MOVEM FEF|6  ;':*LOAD-TYPE-TRANSFORMATIONS*
 58 MOVE D-RETURN PDL-POP
 59 MOVE D-RETURN PDL-POP
 60 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3712] {#<DTP-FEF-POINTER <ADD-SIMPLE-TRANSFORMATION> 52164765>}
  (SYSTEM:FASL-OP-INDEX [3634] {<ADD-SIMPLE-TRANSFORMATION>}))

(SYSTEM:FASL-OP-FRAME
(<:INTERNAL> <ADD-SIMPLE-TRANSFORMATION> 0)
 14 CAR D-PDL ARG|0
 15 CAR D-PDL ARG|1
 16 (MISC) M-EQ D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3728] {#<DTP-FEF-POINTER (<:INTERNAL> <ADD-SIMPLE-TRANSFORMATION> 0) 52167511>}
  (SYSTEM:FASL-OP-INDEX [3690] {(<:INTERNAL> <ADD-SIMPLE-TRANSFORMATION> 0)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [3634] {<ADD-SIMPLE-TRANSFORMATION>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "FASLOAD")
        <:FASLOAD>)
     => (<GLOBAL:QUOTE> <:FASLOAD>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <FASLOAD-1>)
     => (<GLOBAL:QUOTE> <FASLOAD-1>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [2130] {<*SYSTEM-DEFAULT-BINARY-FILE-TYPE*>})
        (SYSTEM:FASL-OP-INDEX [2658] {<*SYSTEM-LOAD-BINARY-FILE-TYPE*>})
       => (<*SYSTEM-DEFAULT-BINARY-FILE-TYPE*> <*SYSTEM-LOAD-BINARY-FILE-TYPE*>))
     => (<GLOBAL:QUOTE> (<*SYSTEM-DEFAULT-BINARY-FILE-TYPE*> <*SYSTEM-LOAD-BINARY-FILE-TYPE*>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-STRING "Load")
        (SYSTEM:FASL-OP-STRING "Loading")
        (SYSTEM:FASL-OP-STRING "loaded")
       => ("Load" "Loading" "loaded"))
     => (<GLOBAL:QUOTE> ("Load" "Loading" "loaded")))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
     => (<GLOBAL:QUOTE> <GLOBAL:T>))
   => (<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <:FASLOAD>) (<GLOBAL:QUOTE> <FASLOAD-1>) (<GLOBAL:QUOTE> (<*SYSTEM-DEFAULT-BINARY-FILE-TYPE*> <*SYSTEM-LOAD-BINARY-FILE-TYPE*>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> ("Load" "Loading" "loaded")) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <GLOBAL:T>)))
  (EVAL '(<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <:FASLOAD>) (<GLOBAL:QUOTE> <FASLOAD-1>) (<GLOBAL:QUOTE> (<*SYSTEM-DEFAULT-BINARY-FILE-TYPE*> <*SYSTEM-LOAD-BINARY-FILE-TYPE*>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> ("Load" "Loading" "loaded")) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <GLOBAL:T>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:FASLOAD> <DEFSYSTEM-MACRO>)
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '4
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '3
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH ARG|0
 37 (MISC) CADDR D-PDL
 38 POP LOCAL|1
 39 PUSH ARG|0
 40 (MISC) CADDDR D-PDL
 41 POP LOCAL|2
 42 CALL D-RETURN FEF|7  ;'NIL
 43 PUSH FEF|8  ;'<:FASLOAD>
 44 PUSH LOCAL|0
 45 PUSH LOCAL|1
 46 PUSH LOCAL|2
 47 BR-NOT-NIL-POP 49
 48 PUSH FEF|9  ;'<FILE-NEWER-THAN-INSTALLED-P>
 49 MOVE D-LAST PDL-POP
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [3768] {#<DTP-FEF-POINTER (<:PROPERTY> <:FASLOAD> <DEFSYSTEM-MACRO>) 52171231>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:FASLOAD> <DEFSYSTEM-MACRO>) 52171231>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3769] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:FASLOAD> <DEFSYSTEM-MACRO>) 52171231>)}
  (SYSTEM:FASL-OP-INDEX [3748] {(<:PROPERTY> <:FASLOAD> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [3634] {<ADD-SIMPLE-TRANSFORMATION>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2608] {<:COMPILE>})
     => (<GLOBAL:QUOTE> <:COMPILE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <QC-FILE-1>)
     => (<GLOBAL:QUOTE> <QC-FILE-1>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [2811] {<:LISP>})
       => (<:LISP>))
     => (<GLOBAL:QUOTE> (<:LISP>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [2130] {<*SYSTEM-DEFAULT-BINARY-FILE-TYPE*>})
        (SYSTEM:FASL-OP-INDEX [2658] {<*SYSTEM-LOAD-BINARY-FILE-TYPE*>})
       => (<*SYSTEM-DEFAULT-BINARY-FILE-TYPE*> <*SYSTEM-LOAD-BINARY-FILE-TYPE*>))
     => (<GLOBAL:QUOTE> (<*SYSTEM-DEFAULT-BINARY-FILE-TYPE*> <*SYSTEM-LOAD-BINARY-FILE-TYPE*>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-STRING "Compile")
        (SYSTEM:FASL-OP-STRING "Compiling")
        (SYSTEM:FASL-OP-STRING "compiled")
       => ("Compile" "Compiling" "compiled"))
     => (<GLOBAL:QUOTE> ("Compile" "Compiling" "compiled")))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
     => (<GLOBAL:QUOTE> <GLOBAL:T>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <:COMPILE>) (<GLOBAL:QUOTE> <QC-FILE-1>) (<GLOBAL:QUOTE> (<:LISP>)) (<GLOBAL:QUOTE> (<*SYSTEM-DEFAULT-BINARY-FILE-TYPE*> <*SYSTEM-LOAD-BINARY-FILE-TYPE*>)) (<GLOBAL:QUOTE> ("Compile" "Compiling" "compiled")) (<GLOBAL:QUOTE> <GLOBAL:T>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <:COMPILE>) (<GLOBAL:QUOTE> <QC-FILE-1>) (<GLOBAL:QUOTE> (<:LISP>)) (<GLOBAL:QUOTE> (<*SYSTEM-DEFAULT-BINARY-FILE-TYPE*> <*SYSTEM-LOAD-BINARY-FILE-TYPE*>)) (<GLOBAL:QUOTE> ("Compile" "Compiling" "compiled")) (<GLOBAL:QUOTE> <GLOBAL:T>) (<GLOBAL:QUOTE> <NIL>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:COMPILE> <DEFSYSTEM-MACRO>)
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '4
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '3
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH ARG|0
 37 (MISC) CADDR D-PDL
 38 POP LOCAL|1
 39 PUSH ARG|0
 40 (MISC) CADDDR D-PDL
 41 POP LOCAL|2
 42 CALL D-RETURN FEF|7  ;'NIL
 43 PUSH FEF|8  ;'<:COMPILE>
 44 PUSH LOCAL|0
 45 PUSH LOCAL|1
 46 PUSH LOCAL|2
 47 BR-NOT-NIL-POP 49
 48 PUSH FEF|9  ;'<FILE-NEWER-THAN-FILE-P>
 49 MOVE D-LAST PDL-POP
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [3808] {#<DTP-FEF-POINTER (<:PROPERTY> <:COMPILE> <DEFSYSTEM-MACRO>) 52201610>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:COMPILE> <DEFSYSTEM-MACRO>) 52201610>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3809] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:COMPILE> <DEFSYSTEM-MACRO>) 52201610>)}
  (SYSTEM:FASL-OP-INDEX [3788] {(<:PROPERTY> <:COMPILE> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [3634] {<ADD-SIMPLE-TRANSFORMATION>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "CROSS-COMPILE")
        <:CROSS-COMPILE>)
     => (<GLOBAL:QUOTE> <:CROSS-COMPILE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <QC-FILE-CROSS-1>)
     => (<GLOBAL:QUOTE> <QC-FILE-CROSS-1>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [2811] {<:LISP>})
       => (<:LISP>))
     => (<GLOBAL:QUOTE> (<:LISP>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [110] {<:FBIN>})
        (SYSTEM:FASL-OP-INDEX [112] {<:FDEF>})
       => (<:FBIN> <:FDEF>))
     => (<GLOBAL:QUOTE> (<:FBIN> <:FDEF>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-STRING "Cross-compile")
        (SYSTEM:FASL-OP-STRING "Cross-compiling")
        (SYSTEM:FASL-OP-STRING "cross-compiled")
       => ("Cross-compile" "Cross-compiling" "cross-compiled"))
     => (<GLOBAL:QUOTE> ("Cross-compile" "Cross-compiling" "cross-compiled")))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
     => (<GLOBAL:QUOTE> <GLOBAL:T>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <:CROSS-COMPILE>) (<GLOBAL:QUOTE> <QC-FILE-CROSS-1>) (<GLOBAL:QUOTE> (<:LISP>)) (<GLOBAL:QUOTE> (<:FBIN> <:FDEF>)) (<GLOBAL:QUOTE> ("Cross-compile" "Cross-compiling" "cross-compiled")) (<GLOBAL:QUOTE> <GLOBAL:T>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <:CROSS-COMPILE>) (<GLOBAL:QUOTE> <QC-FILE-CROSS-1>) (<GLOBAL:QUOTE> (<:LISP>)) (<GLOBAL:QUOTE> (<:FBIN> <:FDEF>)) (<GLOBAL:QUOTE> ("Cross-compile" "Cross-compiling" "cross-compiled")) (<GLOBAL:QUOTE> <GLOBAL:T>) (<GLOBAL:QUOTE> <NIL>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:CROSS-COMPILE> <DEFSYSTEM-MACRO>)
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '4
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '3
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH ARG|0
 37 (MISC) CADDR D-PDL
 38 POP LOCAL|1
 39 PUSH ARG|0
 40 (MISC) CADDDR D-PDL
 41 POP LOCAL|2
 42 CALL D-RETURN FEF|7  ;'NIL
 43 PUSH FEF|8  ;'<:CROSS-COMPILE>
 44 PUSH LOCAL|0
 45 PUSH LOCAL|1
 46 PUSH LOCAL|2
 47 BR-NOT-NIL-POP 49
 48 PUSH FEF|9  ;'<FILE-NEWER-THAN-FILE-P>
 49 MOVE D-LAST PDL-POP
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [3849] {#<DTP-FEF-POINTER (<:PROPERTY> <:CROSS-COMPILE> <DEFSYSTEM-MACRO>) 52205671>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:CROSS-COMPILE> <DEFSYSTEM-MACRO>) 52205671>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3850] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:CROSS-COMPILE> <DEFSYSTEM-MACRO>) 52205671>)}
  (SYSTEM:FASL-OP-INDEX [3830] {(<:PROPERTY> <:CROSS-COMPILE> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [3634] {<ADD-SIMPLE-TRANSFORMATION>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "READFILE")
        <:READFILE>)
     => (<GLOBAL:QUOTE> <:READFILE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <READFILE-1>)
     => (<GLOBAL:QUOTE> <READFILE-1>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [2811] {<:LISP>})
       => (<:LISP>))
     => (<GLOBAL:QUOTE> (<:LISP>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-STRING "Read")
        (SYSTEM:FASL-OP-STRING "Reading")
        (SYSTEM:FASL-OP-STRING "read")
       => ("Read" "Reading" "read"))
     => (<GLOBAL:QUOTE> ("Read" "Reading" "read")))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
     => (<GLOBAL:QUOTE> <GLOBAL:T>))
   => (<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <:READFILE>) (<GLOBAL:QUOTE> <READFILE-1>) (<GLOBAL:QUOTE> (<:LISP>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> ("Read" "Reading" "read")) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <GLOBAL:T>)))
  (EVAL '(<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <:READFILE>) (<GLOBAL:QUOTE> <READFILE-1>) (<GLOBAL:QUOTE> (<:LISP>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> ("Read" "Reading" "read")) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <GLOBAL:T>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:READFILE> <DEFSYSTEM-MACRO>)
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '4
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '3
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH ARG|0
 37 (MISC) CADDR D-PDL
 38 POP LOCAL|1
 39 PUSH ARG|0
 40 (MISC) CADDDR D-PDL
 41 POP LOCAL|2
 42 CALL D-RETURN FEF|7  ;'NIL
 43 PUSH FEF|8  ;'<:READFILE>
 44 PUSH LOCAL|0
 45 PUSH LOCAL|1
 46 PUSH LOCAL|2
 47 BR-NOT-NIL-POP 49
 48 PUSH FEF|9  ;'<FILE-NEWER-THAN-INSTALLED-P>
 49 MOVE D-LAST PDL-POP
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [3889] {#<DTP-FEF-POINTER (<:PROPERTY> <:READFILE> <DEFSYSTEM-MACRO>) 52210735>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:READFILE> <DEFSYSTEM-MACRO>) 52210735>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3890] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:READFILE> <DEFSYSTEM-MACRO>) 52210735>)}
  (SYSTEM:FASL-OP-INDEX [3870] {(<:PROPERTY> <:READFILE> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [3634] {<ADD-SIMPLE-TRANSFORMATION>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "FASLOAD-FALCON-ENVIRONMENT")
        <:FASLOAD-FALCON-ENVIRONMENT>)
     => (<GLOBAL:QUOTE> <:FASLOAD-FALCON-ENVIRONMENT>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <FASLOAD-FALCON-ENVIRONMENT-1>)
     => (<GLOBAL:QUOTE> <FASLOAD-FALCON-ENVIRONMENT-1>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [110] {<:FBIN>})
        (SYSTEM:FASL-OP-INDEX [112] {<:FDEF>})
       => (<:FBIN> <:FDEF>))
     => (<GLOBAL:QUOTE> (<:FBIN> <:FDEF>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-STRING "Read")
        (SYSTEM:FASL-OP-STRING "Reading")
        (SYSTEM:FASL-OP-STRING "read")
       => ("Read" "Reading" "read"))
     => (<GLOBAL:QUOTE> ("Read" "Reading" "read")))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
     => (<GLOBAL:QUOTE> <GLOBAL:T>))
   => (<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <:FASLOAD-FALCON-ENVIRONMENT>) (<GLOBAL:QUOTE> <FASLOAD-FALCON-ENVIRONMENT-1>) (<GLOBAL:QUOTE> (<:FBIN> <:FDEF>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> ("Read" "Reading" "read")) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <GLOBAL:T>)))
  (EVAL '(<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <:FASLOAD-FALCON-ENVIRONMENT>) (<GLOBAL:QUOTE> <FASLOAD-FALCON-ENVIRONMENT-1>) (<GLOBAL:QUOTE> (<:FBIN> <:FDEF>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> ("Read" "Reading" "read")) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <GLOBAL:T>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:FASLOAD-FALCON-ENVIRONMENT> <DEFSYSTEM-MACRO>)
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '4
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '3
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH ARG|0
 37 (MISC) CADDR D-PDL
 38 POP LOCAL|1
 39 PUSH ARG|0
 40 (MISC) CADDDR D-PDL
 41 POP LOCAL|2
 42 CALL D-RETURN FEF|7  ;'NIL
 43 PUSH FEF|8  ;'<:FASLOAD-FALCON-ENVIRONMENT>
 44 PUSH LOCAL|0
 45 PUSH LOCAL|1
 46 PUSH LOCAL|2
 47 BR-NOT-NIL-POP 49
 48 PUSH FEF|9  ;'<FILE-NEWER-THAN-INSTALLED-P>
 49 MOVE D-LAST PDL-POP
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [3929] {#<DTP-FEF-POINTER (<:PROPERTY> <:FASLOAD-FALCON-ENVIRONMENT> <DEFSYSTEM-MACRO>) 52212525>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:FASLOAD-FALCON-ENVIRONMENT> <DEFSYSTEM-MACRO>) 52212525>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3930] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:FASLOAD-FALCON-ENVIRONMENT> <DEFSYSTEM-MACRO>) 52212525>)}
  (SYSTEM:FASL-OP-INDEX [3910] {(<:PROPERTY> <:FASLOAD-FALCON-ENVIRONMENT> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [3634] {<ADD-SIMPLE-TRANSFORMATION>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "COMPAT-COMPILE")
        <:COMPAT-COMPILE>)
     => (<GLOBAL:QUOTE> <:COMPAT-COMPILE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [3771] {<QC-FILE-1>})
     => (<GLOBAL:QUOTE> <QC-FILE-1>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [2811] {<:LISP>})
       => (<:LISP>))
     => (<GLOBAL:QUOTE> (<:LISP>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [2130] {<*SYSTEM-DEFAULT-BINARY-FILE-TYPE*>})
       => (<*SYSTEM-DEFAULT-BINARY-FILE-TYPE*>))
     => (<GLOBAL:QUOTE> (<*SYSTEM-DEFAULT-BINARY-FILE-TYPE*>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-STRING "Compat-compile")
        (SYSTEM:FASL-OP-STRING "Compat-compiling")
        (SYSTEM:FASL-OP-STRING "compat-compiled")
       => ("Compat-compile" "Compat-compiling" "compat-compiled"))
     => (<GLOBAL:QUOTE> ("Compat-compile" "Compat-compiling" "compat-compiled")))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
     => (<GLOBAL:QUOTE> <GLOBAL:T>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <:COMPAT-COMPILE>) (<GLOBAL:QUOTE> <QC-FILE-1>) (<GLOBAL:QUOTE> (<:LISP>)) (<GLOBAL:QUOTE> (<*SYSTEM-DEFAULT-BINARY-FILE-TYPE*>)) (<GLOBAL:QUOTE> ("Compat-compile" "Compat-compiling" "compat-compiled")) (<GLOBAL:QUOTE> <GLOBAL:T>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <:COMPAT-COMPILE>) (<GLOBAL:QUOTE> <QC-FILE-1>) (<GLOBAL:QUOTE> (<:LISP>)) (<GLOBAL:QUOTE> (<*SYSTEM-DEFAULT-BINARY-FILE-TYPE*>)) (<GLOBAL:QUOTE> ("Compat-compile" "Compat-compiling" "compat-compiled")) (<GLOBAL:QUOTE> <GLOBAL:T>) (<GLOBAL:QUOTE> <NIL>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:COMPAT-COMPILE> <DEFSYSTEM-MACRO>)
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '4
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '3
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH ARG|0
 37 (MISC) CADDR D-PDL
 38 POP LOCAL|1
 39 PUSH ARG|0
 40 (MISC) CADDDR D-PDL
 41 POP LOCAL|2
 42 CALL D-RETURN FEF|7  ;'NIL
 43 PUSH FEF|8  ;'<:COMPAT-COMPILE>
 44 PUSH LOCAL|0
 45 PUSH LOCAL|1
 46 PUSH LOCAL|2
 47 BR-NOT-NIL-POP 49
 48 PUSH FEF|9  ;'<FILE-NEWER-THAN-FILE-P>
 49 MOVE D-LAST PDL-POP
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [3969] {#<DTP-FEF-POINTER (<:PROPERTY> <:COMPAT-COMPILE> <DEFSYSTEM-MACRO>) 52214303>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:COMPAT-COMPILE> <DEFSYSTEM-MACRO>) 52214303>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [3970] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:COMPAT-COMPILE> <DEFSYSTEM-MACRO>) 52214303>)}
  (SYSTEM:FASL-OP-INDEX [3950] {(<:PROPERTY> <:COMPAT-COMPILE> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [3634] {<ADD-SIMPLE-TRANSFORMATION>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [1618] {<DO-COMPONENTS-INTERNAL>})
     => (<GLOBAL:QUOTE> <DO-COMPONENTS-INTERNAL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [475] {<IGNORE>})
     => (<GLOBAL:QUOTE> <IGNORE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-STRING "Do-components-internal")
        (SYSTEM:FASL-OP-STRING "Do-components-internaling")
        (SYSTEM:FASL-OP-STRING "do-components-internaled")
       => ("Do-components-internal" "Do-components-internaling" "do-components-internaled"))
     => (<GLOBAL:QUOTE> ("Do-components-internal" "Do-components-internaling" "do-components-internaled")))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <DO-COMPONENTS-INTERNAL>) (<GLOBAL:QUOTE> <IGNORE>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> ("Do-components-internal" "Do-components-internaling" "do-components-internaled")) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <DO-COMPONENTS-INTERNAL>) (<GLOBAL:QUOTE> <IGNORE>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> ("Do-components-internal" "Do-components-internaling" "do-components-internaled")) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <NIL>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <DO-COMPONENTS-INTERNAL> <DEFSYSTEM-MACRO>)
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '4
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '3
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH ARG|0
 37 (MISC) CADDR D-PDL
 38 POP LOCAL|1
 39 PUSH ARG|0
 40 (MISC) CADDDR D-PDL
 41 POP LOCAL|2
 42 CALL D-RETURN FEF|7  ;'NIL
 43 PUSH FEF|8  ;'<DO-COMPONENTS-INTERNAL>
 44 PUSH LOCAL|0
 45 PUSH LOCAL|1
 46 PUSH LOCAL|2
 47 BR-NOT-NIL-POP 49
 48 PUSH FEF|9  ;'<TRUE>
 49 MOVE D-LAST PDL-POP
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [4006] {#<DTP-FEF-POINTER (<:PROPERTY> <DO-COMPONENTS-INTERNAL> <DEFSYSTEM-MACRO>) 52217775>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <DO-COMPONENTS-INTERNAL> <DEFSYSTEM-MACRO>) 52217775>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4007] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <DO-COMPONENTS-INTERNAL> <DEFSYSTEM-MACRO>) 52217775>)}
  (SYSTEM:FASL-OP-INDEX [3986] {(<:PROPERTY> <DO-COMPONENTS-INTERNAL> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:COMPILE-LOAD> <DEFSYSTEM-MACRO>)
 20 PUSH ARG|0
 21 (MISC) LENGTH D-PDL
 22 < '2
 23 BR-NOT-NIL 28
 24 PUSH ARG|0
 25 (MISC) LENGTH D-PDL
 26 > '6
 27 BR-NIL 32
 28 CALL D-IGNORE FEF|6  ;'NIL
 29 PUSH ARG|0
 30 PUSH-NUMBER 1
 31 MOVE D-LAST '5
 32 CADR D-PDL ARG|0
 33 POP LOCAL|0
 34 PUSH ARG|0
 35 (MISC) CADDR D-PDL
 36 POP LOCAL|1
 37 PUSH ARG|0
 38 (MISC) CADDDR D-PDL
 39 POP LOCAL|2
 40 CDR D-PDL ARG|0
 41 (MISC) CADDDR D-PDL
 42 POP LOCAL|3
 43 CDDR D-PDL ARG|0
 44 (MISC) CADDDR D-PDL
 45 POP LOCAL|4
 46 PUSH FEF|7  ;'<:FASLOAD>
 47 PUSH FEF|8  ;'<:COMPILE>
 48 PUSH LOCAL|0
 49 PUSH LOCAL|1
 50 PUSH LOCAL|3
 51 PUSH-NUMBER 4
 52 (MISC) %INTERNAL-LIST D-PDL
 53 PUSH LOCAL|2
 54 PUSH LOCAL|4
 55 PUSH-NUMBER 4
 56 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [4038] {#<DTP-FEF-POINTER (<:PROPERTY> <:COMPILE-LOAD> <DEFSYSTEM-MACRO>) 52220457>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:COMPILE-LOAD> <DEFSYSTEM-MACRO>) 52220457>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4039] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:COMPILE-LOAD> <DEFSYSTEM-MACRO>) 52220457>)}
  (SYSTEM:FASL-OP-INDEX [4012] {(<:PROPERTY> <:COMPILE-LOAD> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:CROSS-COMPILE-LOAD-FALCON-ENVIRONMENT> <DEFSYSTEM-MACRO>)
 20 PUSH ARG|0
 21 (MISC) LENGTH D-PDL
 22 < '2
 23 BR-NOT-NIL 28
 24 PUSH ARG|0
 25 (MISC) LENGTH D-PDL
 26 > '6
 27 BR-NIL 32
 28 CALL D-IGNORE FEF|6  ;'NIL
 29 PUSH ARG|0
 30 PUSH-NUMBER 1
 31 MOVE D-LAST '5
 32 CADR D-PDL ARG|0
 33 POP LOCAL|0
 34 PUSH ARG|0
 35 (MISC) CADDR D-PDL
 36 POP LOCAL|1
 37 PUSH ARG|0
 38 (MISC) CADDDR D-PDL
 39 POP LOCAL|2
 40 CDR D-PDL ARG|0
 41 (MISC) CADDDR D-PDL
 42 POP LOCAL|3
 43 CDDR D-PDL ARG|0
 44 (MISC) CADDDR D-PDL
 45 POP LOCAL|4
 46 PUSH FEF|7  ;'<:FASLOAD-FALCON-ENVIRONMENT>
 47 PUSH FEF|8  ;'<:CROSS-COMPILE>
 48 PUSH LOCAL|0
 49 PUSH LOCAL|1
 50 PUSH LOCAL|3
 51 PUSH-NUMBER 4
 52 (MISC) %INTERNAL-LIST D-PDL
 53 PUSH LOCAL|2
 54 PUSH LOCAL|4
 55 PUSH-NUMBER 4
 56 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [4066] {#<DTP-FEF-POINTER (<:PROPERTY> <:CROSS-COMPILE-LOAD-FALCON-ENVIRONMENT> <DEFSYSTEM-MACRO>) 52221242>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:CROSS-COMPILE-LOAD-FALCON-ENVIRONMENT> <DEFSYSTEM-MACRO>) 52221242>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4067] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:CROSS-COMPILE-LOAD-FALCON-ENVIRONMENT> <DEFSYSTEM-MACRO>) 52221242>)}
  (SYSTEM:FASL-OP-INDEX [4044] {(<:PROPERTY> <:CROSS-COMPILE-LOAD-FALCON-ENVIRONMENT> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:COMPAT-COMPILE-LOAD> <DEFSYSTEM-MACRO>)
 20 PUSH ARG|0
 21 (MISC) LENGTH D-PDL
 22 < '2
 23 BR-NOT-NIL 28
 24 PUSH ARG|0
 25 (MISC) LENGTH D-PDL
 26 > '6
 27 BR-NIL 32
 28 CALL D-IGNORE FEF|6  ;'NIL
 29 PUSH ARG|0
 30 PUSH-NUMBER 1
 31 MOVE D-LAST '5
 32 CADR D-PDL ARG|0
 33 POP LOCAL|0
 34 PUSH ARG|0
 35 (MISC) CADDR D-PDL
 36 POP LOCAL|1
 37 PUSH ARG|0
 38 (MISC) CADDDR D-PDL
 39 POP LOCAL|2
 40 CDR D-PDL ARG|0
 41 (MISC) CADDDR D-PDL
 42 POP LOCAL|3
 43 CDDR D-PDL ARG|0
 44 (MISC) CADDDR D-PDL
 45 POP LOCAL|4
 46 PUSH FEF|7  ;'<:FASLOAD>
 47 PUSH FEF|8  ;'<:COMPAT-COMPILE>
 48 PUSH LOCAL|0
 49 PUSH LOCAL|1
 50 PUSH LOCAL|3
 51 PUSH-NUMBER 4
 52 (MISC) %INTERNAL-LIST D-PDL
 53 PUSH LOCAL|2
 54 PUSH LOCAL|4
 55 PUSH-NUMBER 4
 56 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [4094] {#<DTP-FEF-POINTER (<:PROPERTY> <:COMPAT-COMPILE-LOAD> <DEFSYSTEM-MACRO>) 52221731>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:COMPAT-COMPILE-LOAD> <DEFSYSTEM-MACRO>) 52221731>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4095] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:COMPAT-COMPILE-LOAD> <DEFSYSTEM-MACRO>) 52221731>)}
  (SYSTEM:FASL-OP-INDEX [4072] {(<:PROPERTY> <:COMPAT-COMPILE-LOAD> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*ADD-TRANSFORMATION-TO-SYSTEM*>)
   => (<DEFVAR-1> <*ADD-TRANSFORMATION-TO-SYSTEM*>))
  (EVAL '(<DEFVAR-1> <*ADD-TRANSFORMATION-TO-SYSTEM*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [4096] {<*ADD-TRANSFORMATION-TO-SYSTEM*>})
     => (<GLOBAL:QUOTE> <*ADD-TRANSFORMATION-TO-SYSTEM*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
     => (<GLOBAL:QUOTE> <GLOBAL:T>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [1497] {<*DEFSYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*DEFSYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*ADD-TRANSFORMATION-TO-SYSTEM*>) (<GLOBAL:QUOTE> <GLOBAL:T>) (<GLOBAL:QUOTE> <*DEFSYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*ADD-TRANSFORMATION-TO-SYSTEM*>) (<GLOBAL:QUOTE> <GLOBAL:T>) (<GLOBAL:QUOTE> <*DEFSYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-FRAME
<PARSE-TRANSFORMATION>
 44 PUSH ARG|0
 45 PUSH FEF|8  ;':*TRANSFORMATION-TYPE-ALIST*
 46 (MISC) ASSQ D-PDL
 47 POP LOCAL|0
 48 BR-NOT-NIL 53
 49 CALL D-IGNORE FEF|9  ;'NIL
 50 PUSH 'NIL
 51 PUSH FEF|10  ;'"~S is not a known transformation type"
 52 MOVE D-LAST ARG|0
 53 PUSH FEF|6  ;':*ADD-TRANSFORMATION-TO-SYSTEM*
 54 EQ FEF|11  ;'<:SKIP>
 55 BR-NIL 58
 56 PUSH 'T
 57 BR 59
 58 PUSH 'NIL
 59 BIND-POP FEF|6  ;':*ADD-TRANSFORMATION-TO-SYSTEM*
 60 MOVE D-IGNORE ARG|1
 61 BR-NOT-NIL 64
 62 PUSH 'NIL
 63 BR 84
 64 PUSH ARG|1
 65 (MISC) NLISTP D-IGNORE
 66 BR-NIL 71
 67 CALL D-PDL FEF|12  ;'NIL
 68 PUSH ARG|1
 69 MOVE D-LAST FEF|7  ;':*SYSTEM-BEING-DEFINED*
 70 BR 84
 71 CAR D-PDL ARG|1
 72 (MISC) SYMBOLP D-IGNORE
 73 BR-NIL 80
 74 CAR D-PDL ARG|1
 75 PUSH FEF|13  ;'<DEFSYSTEM-MACRO>
 76 (MISC) INTERNAL-GET-2 D-IGNORE
 77 BR-NIL 80
 78 CALL D-PDL FEF|14  ;'NIL
 79 BR 83
 80 CALL D-PDL FEF|15  ;'NIL
 81 CALL0 D-PDL FEF|16  ;'NIL
 82 PUSH FEF|7  ;':*SYSTEM-BEING-DEFINED*
 83 MOVE D-LAST ARG|1
 84 POP ARG|1
 85 (MISC) UNBIND 1 binding 
 86 BIND-NIL FEF|6  ;':*ADD-TRANSFORMATION-TO-SYSTEM*
 87 CAR D-IGNORE ARG|2
 88 BR-NOT-ATOM 92
 89 PUSH ARG|2
 90 (MISC) NCONS D-PDL
 91 POP ARG|2
 92 PUSH-ADDRESS LOCAL|2
 93 POP LOCAL|3
 94 PUSH ARG|2
 95 POP LOCAL|5
 96 MOVE D-IGNORE LOCAL|5
 97 BR-NIL 112
 98 CAR D-PDL LOCAL|5
 99 POP LOCAL|4
100 SETE-CDR LOCAL|5
101 PUSH LOCAL|3
102 CALL D-PDL FEF|17  ;'NIL
103 PUSH LOCAL|4
104 MOVE D-LAST FEF|7  ;':*SYSTEM-BEING-DEFINED*
105 (MISC) RPLACD D-PDL
106 CDR D-IGNORE PDL-POP
107 BR-NIL 96
108 CDR D-PDL LOCAL|3
109 (MISC) LAST D-PDL
110 POP LOCAL|3
111 BR 96
112 PUSH LOCAL|2
113 POP ARG|2
114 (MISC) UNBIND 1 binding 
115 CALL D-PDL FEF|18  ;'NIL
116 MOVE D-LAST '6
117 POP LOCAL|5
118 CALL D-IGNORE FEF|19  ;'NIL
119 PUSH LOCAL|5
120 MOVE D-LAST FEF|20  ;'<TRANSFORMATION>
121 PUSH LOCAL|5
122 POP LOCAL|5
123 PUSH FEF|7  ;':*SYSTEM-BEING-DEFINED*
124 PUSH LOCAL|5
125 (MISC) AS-1 (5) D-IGNORE
126 PUSH ARG|3
127 PUSH LOCAL|5
128 (MISC) AS-1 (4) D-IGNORE
129 PUSH ARG|2
130 PUSH LOCAL|5
131 (MISC) AS-1 (3) D-IGNORE
132 PUSH ARG|1
133 PUSH LOCAL|5
134 (MISC) AS-1 (2) D-IGNORE
135 PUSH LOCAL|0
136 PUSH LOCAL|5
137 (MISC) AS-1 (1) D-IGNORE
138 PUSH LOCAL|5
139 POP LOCAL|1
140 PUSH FEF|6  ;':*ADD-TRANSFORMATION-TO-SYSTEM*
141 EQ 'T
142 BR-NIL 150
143 PUSH FEF|7  ;':*SYSTEM-BEING-DEFINED*
144 PUSH FEF|7  ;':*SYSTEM-BEING-DEFINED*
145 AR-1 (4) D-PDL
146 PUSH LOCAL|1
147 (MISC) NCONS D-PDL
148 (MISC) %INTERNAL-NCONC-2 D-PDL
149 SET-AR-1 (4) D-IGNORE
150 PUSH FEF|7  ;':*SYSTEM-BEING-DEFINED*
151 PUSH FEF|7  ;':*SYSTEM-BEING-DEFINED*
152 AR-1 (5) D-PDL
153 PUSH LOCAL|1
154 (MISC) NCONS D-PDL
155 (MISC) %INTERNAL-NCONC-2 D-PDL
156 SET-AR-1 (5) D-IGNORE
157 PUSH 'NIL
158 PUSH LOCAL|1
159 (MISC) %RETURN-2 D-IGNORE
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4129] {#<DTP-FEF-POINTER <PARSE-TRANSFORMATION> 52224126>}
  (SYSTEM:FASL-OP-INDEX [3639] {<PARSE-TRANSFORMATION>}))

(SYSTEM:FASL-OP-FRAME
<BUILD-DEPENDENCIES>
 24 PUSH ARG|0
 25 BR-NIL-POP 59
 26 PUSH-ADDRESS LOCAL|0
 27 POP LOCAL|1
 28 CDR D-PDL ARG|0
 29 BR-NOT-NIL-POP 31
 30 PUSH FEF|7  ;'(<NIL>)
 31 POP LOCAL|3
 32 CAR D-PDL ARG|0
 33 PUSH FEF|6  ;':*TRANSFORMATION-TYPE-ALIST*
 34 (MISC) ASSQ D-PDL
 35 BR-NOT-NIL-POP 40
 36 CALL D-PDL FEF|8  ;'NIL
 37 PUSH 'NIL
 38 PUSH FEF|9  ;'"Unknown transformation type ~S"
 39 CAR D-LAST ARG|0
 40 POP LOCAL|4
 41 MOVE D-IGNORE LOCAL|3
 42 BR-NIL 58
 43 CAR D-PDL LOCAL|3
 44 POP LOCAL|2
 45 SETE-CDR LOCAL|3
 46 PUSH LOCAL|1
 47 CALL D-PDL FEF|10  ;'NIL
 48 PUSH LOCAL|4
 49 PUSH ARG|1
 50 MOVE D-LAST LOCAL|2
 51 (MISC) RPLACD D-PDL
 52 CDR D-IGNORE PDL-POP
 53 BR-NIL 41
 54 CDR D-PDL LOCAL|1
 55 (MISC) LAST D-PDL
 56 POP LOCAL|1
 57 BR 41
 58 MOVE D-RETURN LOCAL|0
 59 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4150] {#<DTP-FEF-POINTER <BUILD-DEPENDENCIES> 52225443>}
  (SYSTEM:FASL-OP-INDEX [4113] {<BUILD-DEPENDENCIES>}))

(SYSTEM:FASL-OP-FRAME
<BUILD-DEPENDENCY>
 16 MOVE D-IGNORE ARG|2
 17 BR-ATOM 40
 18 PUSH-ADDRESS LOCAL|0
 19 POP LOCAL|1
 20 CDR D-PDL ARG|2
 21 POP LOCAL|3
 22 CAR D-PDL ARG|2
 23 POP LOCAL|4
 24 MOVE D-IGNORE LOCAL|3
 25 BR-NIL 39
 26 CAR D-PDL LOCAL|3
 27 POP LOCAL|2
 28 SETE-CDR LOCAL|3
 29 PUSH LOCAL|1
 30 PUSH ARG|0
 31 PUSH LOCAL|4
 32 PUSH LOCAL|2
 33 PUSH-NUMBER 3
 34 (MISC) %INTERNAL-LIST D-PDL
 35 (MISC) NCONS D-PDL
 36 MOVEM LOCAL|1
 37 (MISC) RPLACD D-IGNORE
 38 BR 24
 39 MOVE D-RETURN LOCAL|0
 40 CALL D-PDL FEF|6  ;'NIL
 41 PUSH ARG|0
 42 PUSH ARG|1
 43 MOVE D-LAST ARG|2
 44 (MISC) NCONS D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4170] {#<DTP-FEF-POINTER <BUILD-DEPENDENCY> 52226051>}
  (SYSTEM:FASL-OP-INDEX [4137] {<BUILD-DEPENDENCY>}))

(SYSTEM:FASL-OP-FRAME
<FIND-DEPENDENCY>
 18 PUSH ARG|0
 19 PUSH FEF|6  ;'<TRANSFORMATION>
 20 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 21 BR-NIL 23
 22 MOVE D-RETURN ARG|0
 23 PUSH FEF|7  ;'NIL
 24 PUSH ARG|0
 25 (MISC) INTERNAL-APPLY D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4181] {#<DTP-FEF-POINTER <FIND-DEPENDENCY> 52226337>}
  (SYSTEM:FASL-OP-INDEX [3385] {<FIND-DEPENDENCY>}))

(SYSTEM:FASL-OP-FRAME
<FIND-DEPENDENCY-1>
 24 CALL D-PDL FEF|6  ;'NIL
 25 MOVE D-LAST ARG|1
 26 POP ARG|1
 27 PUSH ARG|2
 28 BR-NIL-POP 32
 29 CALL D-PDL FEF|7  ;'NIL
 30 PUSH ARG|2
 31 MOVE D-LAST ARG|1
 32 POP ARG|2
 33 CALL D-PDL FEF|6  ;'NIL
 34 MOVE D-LAST ARG|1
 35 AR-1 (5) D-PDL
 36 POP LOCAL|0
 37 BR-NIL 61
 38 CAR D-PDL LOCAL|0
 39 POP LOCAL|1
 40 PUSH ARG|0
 41 PUSH LOCAL|1
 42 AR-1 (1) D-PDL
 43 EQ PDL-POP
 44 BR-NIL 59
 45 PUSH ARG|2
 46 PUSH LOCAL|1
 47 BR 50
 48 PUSH LOCAL|2
 49 AR-1 (2) D-PDL
 50 MOVEM LOCAL|2
 51 PUSH FEF|8  ;'<TRANSFORMATION>
 52 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 53 BR-NOT-NIL 48
 54 PUSH LOCAL|2
 55 EQ PDL-POP
 56 BR-NIL 59
 57 PUSH LOCAL|1
 58 BR 62
 59 SETE-CDR LOCAL|0
 60 BR-NOT-NIL 38
 61 PUSH 'NIL
 62 BR-NOT-NIL-POP 69
 63 CALL D-RETURN FEF|9  ;'NIL
 64 PUSH 'NIL
 65 PUSH FEF|10  ;'"Transformation ~S not found on ~S in ~S"
 66 PUSH ARG|0
 67 PUSH ARG|2
 68 MOVE D-LAST ARG|1
 69 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4201] {#<DTP-FEF-POINTER <FIND-DEPENDENCY-1> 52226504>}
  (SYSTEM:FASL-OP-INDEX [4156] {<FIND-DEPENDENCY-1>}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:COMPILE-LOAD-INIT> <DEFSYSTEM-MACRO>)
 30 PUSH ARG|0
 31 (MISC) LENGTH D-PDL
 32 < '3
 33 BR-NOT-NIL 38
 34 PUSH ARG|0
 35 (MISC) LENGTH D-PDL
 36 > '5
 37 BR-NIL 42
 38 CALL D-IGNORE FEF|8  ;'NIL
 39 PUSH ARG|0
 40 PUSH-NUMBER 2
 41 MOVE D-LAST '4
 42 CADR D-PDL ARG|0
 43 POP LOCAL|0
 44 PUSH ARG|0
 45 (MISC) CADDR D-PDL
 46 POP LOCAL|1
 47 PUSH ARG|0
 48 (MISC) CADDDR D-PDL
 49 POP LOCAL|2
 50 CDR D-PDL ARG|0
 51 (MISC) CADDDR D-PDL
 52 POP LOCAL|3
 53 CALL D-PDL FEF|9  ;'NIL
 54 PUSH LOCAL|1
 55 MOVE D-LAST FEF|7  ;':*SYSTEM-BEING-DEFINED*
 56 BIND-POP FEF|6  ;':*ADDITIONAL-DEPENDENT-MODULES*
 57 PUSH FEF|10  ;'(<*ADDITIONAL-DEPENDENT-MODULES*>)
 58 PUSH FEF|11  ;'<COMPILE-LOAD-INIT-CONDITION>
 59 (MISC) CLOSURE D-PDL
 60 (MISC) UNBIND 1 binding 
 61 POP LOCAL|4
 62 PUSH FEF|12  ;'<:FASLOAD>
 63 PUSH FEF|13  ;'<:COMPILE>
 64 PUSH LOCAL|0
 65 PUSH LOCAL|2
 66 PUSH LOCAL|4
 67 PUSH-NUMBER 4
 68 (MISC) %INTERNAL-LIST D-PDL
 69 PUSH LOCAL|3
 70 PUSH-NUMBER 3
 71 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [4232] {#<DTP-FEF-POINTER (<:PROPERTY> <:COMPILE-LOAD-INIT> <DEFSYSTEM-MACRO>) 52227112>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:COMPILE-LOAD-INIT> <DEFSYSTEM-MACRO>) 52227112>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4233] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:COMPILE-LOAD-INIT> <DEFSYSTEM-MACRO>) 52227112>)}
  (SYSTEM:FASL-OP-INDEX [4206] {(<:PROPERTY> <:COMPILE-LOAD-INIT> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:COMPAT-COMPILE-LOAD-INIT> <DEFSYSTEM-MACRO>)
 30 PUSH ARG|0
 31 (MISC) LENGTH D-PDL
 32 < '3
 33 BR-NOT-NIL 38
 34 PUSH ARG|0
 35 (MISC) LENGTH D-PDL
 36 > '5
 37 BR-NIL 42
 38 CALL D-IGNORE FEF|8  ;'NIL
 39 PUSH ARG|0
 40 PUSH-NUMBER 2
 41 MOVE D-LAST '4
 42 CADR D-PDL ARG|0
 43 POP LOCAL|0
 44 PUSH ARG|0
 45 (MISC) CADDR D-PDL
 46 POP LOCAL|1
 47 PUSH ARG|0
 48 (MISC) CADDDR D-PDL
 49 POP LOCAL|2
 50 CDR D-PDL ARG|0
 51 (MISC) CADDDR D-PDL
 52 POP LOCAL|3
 53 CALL D-PDL FEF|9  ;'NIL
 54 PUSH LOCAL|1
 55 MOVE D-LAST FEF|7  ;':*SYSTEM-BEING-DEFINED*
 56 BIND-POP FEF|6  ;':*ADDITIONAL-DEPENDENT-MODULES*
 57 PUSH FEF|10  ;'(<*ADDITIONAL-DEPENDENT-MODULES*>)
 58 PUSH FEF|11  ;'<COMPILE-LOAD-INIT-CONDITION>
 59 (MISC) CLOSURE D-PDL
 60 (MISC) UNBIND 1 binding 
 61 POP LOCAL|4
 62 PUSH FEF|12  ;'<:FASLOAD>
 63 PUSH FEF|13  ;'<:COMPAT-COMPILE>
 64 PUSH LOCAL|0
 65 PUSH LOCAL|2
 66 PUSH LOCAL|4
 67 PUSH-NUMBER 4
 68 (MISC) %INTERNAL-LIST D-PDL
 69 PUSH LOCAL|3
 70 PUSH-NUMBER 3
 71 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [4261] {#<DTP-FEF-POINTER (<:PROPERTY> <:COMPAT-COMPILE-LOAD-INIT> <DEFSYSTEM-MACRO>) 52230755>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:COMPAT-COMPILE-LOAD-INIT> <DEFSYSTEM-MACRO>) 52230755>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4262] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:COMPAT-COMPILE-LOAD-INIT> <DEFSYSTEM-MACRO>) 52230755>)}
  (SYSTEM:FASL-OP-INDEX [4238] {(<:PROPERTY> <:COMPAT-COMPILE-LOAD-INIT> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
<COMPILE-LOAD-INIT-CONDITION>
 20 CALL D-PDL FEF|7  ;'NIL
 21 PUSH ARG|0
 22 MOVE D-LAST ARG|1
 23 BR-NOT-NIL-POP 27
 24 CALL D-RETURN FEF|8  ;'NIL
 25 PUSH FEF|6  ;':*ADDITIONAL-DEPENDENT-MODULES*
 26 MOVE D-LAST ARG|1
 27 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4282] {#<DTP-FEF-POINTER <COMPILE-LOAD-INIT-CONDITION> 52231530>}
  (SYSTEM:FASL-OP-INDEX [4212] {<COMPILE-LOAD-INIT-CONDITION>}))

(SYSTEM:FASL-OP-FRAME
<OTHER-FILES-NEWER-THAN-FILE-P>
 26 CALL D-PDL FEF|6  ;'NIL
 27 MOVE D-LAST ARG|1
 28 POP LOCAL|0
 29 PUSH ARG|0
 30 POP LOCAL|2
 31 BR-NIL 76
 32 CAR D-PDL LOCAL|2
 33 MOVEM LOCAL|3
 34 AR-1 (2) D-PDL
 35 AR-1 (5) D-PDL
 36 SET-NIL LOCAL|5
 37 POP LOCAL|4
 38 BR-NIL 52
 39 CAR D-PDL LOCAL|4
 40 MOVEM LOCAL|5
 41 AR-1 (2) D-PDL
 42 EQ LOCAL|3
 43 BR-NIL 50
 44 PUSH LOCAL|5
 45 AR-1 (1) D-PDL
 46 CDR D-PDL PDL-POP
 47 (MISC) CAADDR D-PDL
 48 POP LOCAL|1
 49 BR 56
 50 SETE-CDR LOCAL|4
 51 BR-NOT-NIL 39
 52 CALL D-IGNORE FEF|7  ;'NIL
 53 PUSH 'NIL
 54 PUSH FEF|8  ;'"Module ~S not found in any transformation"
 55 MOVE D-LAST LOCAL|3
 56 CALL D-PDL FEF|9  ;'NIL
 57 MOVE D-LAST LOCAL|3
 58 SET-NIL LOCAL|6
 59 POP LOCAL|4
 60 BR-NIL 74
 61 CAR D-PDL LOCAL|4
 62 POP LOCAL|6
 63 CALL D-PDL FEF|6  ;'NIL
 64 CALL D-LAST FEF|10  ;'NIL
 65 CADR D-PDL LOCAL|6
 66 CALL D-LAST FEF|11  ;'NIL
 67 MOVE D-LAST LOCAL|1
 68 > LOCAL|0
 69 BR-NOT-NIL 73
 70 SETE-CDR LOCAL|4
 71 BR-NOT-NIL 61
 72 BR 74
 73 MOVE D-RETURN 'T
 74 SETE-CDR LOCAL|2
 75 BR-NOT-NIL 32
 76 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4307] {#<DTP-FEF-POINTER <OTHER-FILES-NEWER-THAN-FILE-P> 52232060>}
  (SYSTEM:FASL-OP-INDEX [4268] {<OTHER-FILES-NEWER-THAN-FILE-P>}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:SKIP> <DEFSYSTEM-MACRO>)
 20 CDR D-PDL ARG|0
 21 POP LOCAL|0
 22 PUSH FEF|7  ;'<:SKIP>
 23 BIND-POP FEF|6  ;':*ADD-TRANSFORMATION-TO-SYSTEM*
 24 PUSH FEF|8  ;'NIL
 25 PUSH-NUMBER 2
 26 (MISC) %CALL-MULT-VALUE D-IGNORE
 27 MOVE D-LAST LOCAL|0
 28 POP LOCAL|2
 29 POP LOCAL|1
 30 PUSH 'NIL
 31 PUSH LOCAL|1
 32 PUSH LOCAL|2
 33 (MISC) %RETURN-3 D-IGNORE
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [4328] {#<DTP-FEF-POINTER (<:PROPERTY> <:SKIP> <DEFSYSTEM-MACRO>) 52232701>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:SKIP> <DEFSYSTEM-MACRO>) 52232701>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4329] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:SKIP> <DEFSYSTEM-MACRO>) 52232701>)}
  (SYSTEM:FASL-OP-INDEX [4310] {(<:PROPERTY> <:SKIP> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [3634] {<ADD-SIMPLE-TRANSFORMATION>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "READ-FOR-COMPILATION")
        <:READ-FOR-COMPILATION>)
     => (<GLOBAL:QUOTE> <:READ-FOR-COMPILATION>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <READFORCOMPILATION>)
     => (<GLOBAL:QUOTE> <READFORCOMPILATION>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-STRING "")
       => (""))
     => (<GLOBAL:QUOTE> ("")))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-STRING "Read for compilation")
        (SYSTEM:FASL-OP-STRING "Reading for compilation")
        (SYSTEM:FASL-OP-STRING "read for compilation")
       => ("Read for compilation" "Reading for compilation" "read for compilation"))
     => (<GLOBAL:QUOTE> ("Read for compilation" "Reading for compilation" "read for compilation")))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
     => (<GLOBAL:QUOTE> <GLOBAL:T>))
   => (<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <:READ-FOR-COMPILATION>) (<GLOBAL:QUOTE> <READFORCOMPILATION>) (<GLOBAL:QUOTE> ("")) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> ("Read for compilation" "Reading for compilation" "read for compilation")) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <GLOBAL:T>)))
  (EVAL '(<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <:READ-FOR-COMPILATION>) (<GLOBAL:QUOTE> <READFORCOMPILATION>) (<GLOBAL:QUOTE> ("")) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> ("Read for compilation" "Reading for compilation" "read for compilation")) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <GLOBAL:T>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:READ-FOR-COMPILATION> <DEFSYSTEM-MACRO>)
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '4
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '3
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH ARG|0
 37 (MISC) CADDR D-PDL
 38 POP LOCAL|1
 39 PUSH ARG|0
 40 (MISC) CADDDR D-PDL
 41 POP LOCAL|2
 42 CALL D-RETURN FEF|7  ;'NIL
 43 PUSH FEF|8  ;'<:READ-FOR-COMPILATION>
 44 PUSH LOCAL|0
 45 PUSH LOCAL|1
 46 PUSH LOCAL|2
 47 BR-NOT-NIL-POP 49
 48 PUSH FEF|9  ;'<READFORCOMPILATION?>
 49 MOVE D-LAST PDL-POP
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [4370] {#<DTP-FEF-POINTER (<:PROPERTY> <:READ-FOR-COMPILATION> <DEFSYSTEM-MACRO>) 52235332>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:READ-FOR-COMPILATION> <DEFSYSTEM-MACRO>) 52235332>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4371] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:READ-FOR-COMPILATION> <DEFSYSTEM-MACRO>) 52235332>)}
  (SYSTEM:FASL-OP-INDEX [4350] {(<:PROPERTY> <:READ-FOR-COMPILATION> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
<READFORCOMPILATION?>
 26 CALL D-PDL ARG|0
 27 PUSH FEF|8  ;'<:NEW-TYPE>
 28 MOVE D-LAST FEF|9  ;'"LISP"
 29 POP LOCAL|0
 30 CALL D-PDL ARG|0
 31 PUSH FEF|8  ;'<:NEW-TYPE>
 32 PUSH FEF|7  ;':*SYSTEM-LOAD-BINARY-FILE-TYPE*
 33 BR-NOT-NIL-POP 35
 34 PUSH FEF|6  ;':*SYSTEM-DEFAULT-BINARY-FILE-TYPE*
 35 MOVE D-LAST PDL-POP
 36 POP LOCAL|1
 37 CALL D-IGNORE FEF|10  ;'NIL
 38 PUSH LOCAL|0
 39 MOVE D-LAST LOCAL|1
 40 BR-NIL 43
 41 CALL D-RETURN FEF|11  ;'NIL
 42 MOVE D-LAST LOCAL|0
 43 CALL D-RETURN FEF|11  ;'NIL
 44 MOVE D-LAST LOCAL|1
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4389] {#<DTP-FEF-POINTER <READFORCOMPILATION?> 52236023>}
  (SYSTEM:FASL-OP-INDEX [4354] {<READFORCOMPILATION?>}))

(SYSTEM:FASL-OP-FRAME
<READFORCOMPILATION>
 26 CALL D-PDL ARG|0
 27 PUSH FEF|7  ;'<:NEW-TYPE>
 28 MOVE D-LAST FEF|8  ;'"LISP"
 29 POP LOCAL|0
 30 CALL D-PDL ARG|0
 31 PUSH FEF|7  ;'<:NEW-TYPE>
 32 MOVE D-LAST FEF|6  ;':*SYSTEM-DEFAULT-BINARY-FILE-TYPE*
 33 POP LOCAL|1
 34 CALL D-IGNORE FEF|9  ;'NIL
 35 PUSH LOCAL|0
 36 MOVE D-LAST LOCAL|1
 37 BR-NIL 40
 38 CALL D-RETURN FEF|10  ;'NIL
 39 MOVE D-LAST LOCAL|0
 40 CALL D-RETURN FEF|11  ;'NIL
 41 MOVE D-LAST LOCAL|1
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4405] {#<DTP-FEF-POINTER <READFORCOMPILATION> 52240465>}
  (SYSTEM:FASL-OP-INDEX [4333] {<READFORCOMPILATION>}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:PROGN> <DEFSYSTEM-MACRO>)
 16 CDR D-PDL ARG|0
 17 MOVEM LOCAL|0
 18 POP LOCAL|2
 19 BR-NIL 28
 20 CAR D-PDL LOCAL|2
 21 POP LOCAL|3
 22 PUSH FEF|6  ;'NIL
 23 (MISC) %CALL-MULT-VALUE-LIST D-IGNORE
 24 MOVE D-LAST LOCAL|3
 25 POP LOCAL|1
 26 SETE-CDR LOCAL|2
 27 BR-NOT-NIL 20
 28 PUSH 'NIL
 29 PUSH LOCAL|1
 30 PUSH-NUMBER 2
 31 (MISC) %INTERNAL-LIST* D-PDL
 32 (MISC) RETURN-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [4431] {#<DTP-FEF-POINTER (<:PROPERTY> <:PROGN> <DEFSYSTEM-MACRO>) 52240756>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:PROGN> <DEFSYSTEM-MACRO>) 52240756>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4432] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:PROGN> <DEFSYSTEM-MACRO>) 52240756>)}
  (SYSTEM:FASL-OP-INDEX [4410] {(<:PROPERTY> <:PROGN> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:READ-COMPILE-LOAD> <DEFSYSTEM-MACRO>)
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 < '2
 29 BR-NOT-NIL 34
 30 PUSH ARG|0
 31 (MISC) LENGTH D-PDL
 32 > '8
 33 BR-NIL 38
 34 CALL D-IGNORE FEF|6  ;'NIL
 35 PUSH ARG|0
 36 PUSH-NUMBER 1
 37 MOVE D-LAST '7
 38 CADR D-PDL ARG|0
 39 POP LOCAL|0
 40 PUSH ARG|0
 41 (MISC) CADDR D-PDL
 42 POP LOCAL|1
 43 PUSH ARG|0
 44 (MISC) CADDDR D-PDL
 45 POP LOCAL|2
 46 CDR D-PDL ARG|0
 47 (MISC) CADDDR D-PDL
 48 POP LOCAL|3
 49 CDDR D-PDL ARG|0
 50 (MISC) CADDDR D-PDL
 51 POP LOCAL|4
 52 PUSH ARG|0
 53 (MISC) CDDDR D-PDL
 54 (MISC) CADDDR D-PDL
 55 POP LOCAL|5
 56 PUSH ARG|0
 57 (MISC) CDDDDR D-PDL
 58 (MISC) CADDDR D-PDL
 59 POP LOCAL|6
 60 PUSH FEF|7  ;'<:PROGN>
 61 PUSH FEF|8  ;'<:SKIP>
 62 PUSH FEF|9  ;'<:READ-FOR-COMPILATION>
 63 PUSH LOCAL|0
 64 PUSH LOCAL|1
 65 PUSH LOCAL|4
 66 PUSH-NUMBER 5
 67 (MISC) %INTERNAL-LIST D-PDL
 68 PUSH FEF|10  ;'<:FASLOAD>
 69 PUSH FEF|11  ;'<:COMPILE>
 70 PUSH LOCAL|0
 71 PUSH FEF|9  ;'<:READ-FOR-COMPILATION>
 72 PUSH LOCAL|0
 73 PUSH-NUMBER 2
 74 (MISC) %INTERNAL-LIST D-PDL
 75 PUSH LOCAL|2
 76 PUSH-NUMBER 2
 77 (MISC) %INTERNAL-LIST* D-PDL
 78 PUSH LOCAL|5
 79 PUSH-NUMBER 4
 80 (MISC) %INTERNAL-LIST D-PDL
 81 PUSH LOCAL|3
 82 PUSH LOCAL|6
 83 PUSH-NUMBER 4
 84 (MISC) %INTERNAL-LIST D-PDL
 85 PUSH-NUMBER 3
 86 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [4467] {#<DTP-FEF-POINTER (<:PROPERTY> <:READ-COMPILE-LOAD> <DEFSYSTEM-MACRO>) 52241451>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:READ-COMPILE-LOAD> <DEFSYSTEM-MACRO>) 52241451>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4468] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:READ-COMPILE-LOAD> <DEFSYSTEM-MACRO>) 52241451>)}
  (SYSTEM:FASL-OP-INDEX [4437] {(<:PROPERTY> <:READ-COMPILE-LOAD> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
<FASLOAD-1>
 20 PUSH 'T
 21 POP FEF|7  ;':*SOMETHING-LOADED*
 22 CALL D-RETURN FEF|8  ;'NIL
 23 PUSH ARG|1
 24 BR-NOT-NIL-POP 26
 25 PUSH ARG|0
 26 PUSH FEF|6  ;':*FORCE-PACKAGE*
 27 MOVE D-LAST 'T
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4483] {#<DTP-FEF-POINTER <FASLOAD-1> 52242427>}
  (SYSTEM:FASL-OP-INDEX [3732] {<FASLOAD-1>}))

(SYSTEM:FASL-OP-FRAME
<READFILE-1>
 20 PUSH 'T
 21 POP FEF|7  ;':*SOMETHING-LOADED*
 22 CALL D-RETURN FEF|8  ;'NIL
 23 PUSH ARG|0
 24 PUSH FEF|6  ;':*FORCE-PACKAGE*
 25 MOVE D-LAST 'T
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4495] {#<DTP-FEF-POINTER <READFILE-1> 52243656>}
  (SYSTEM:FASL-OP-INDEX [3854] {<READFILE-1>}))

(SYSTEM:FASL-OP-FRAME
<QC-FILE-1>
 48 PUSH FEF|11  ;':*TARGET-COMPUTER*
 49 PUSH FEF|12  ;'<MAKE-SYSTEM>
 50 (MISC) INTERNAL-GET-2 D-PDL
 51 PUSH-NUMBER 3
 52 (MISC) %SPREAD-N D-PDL
 53 POP LOCAL|0
 54 BIND-POP FEF|7  ;':*SYSTEM-LOAD-BINARY-FILE-TYPE*
 55 BIND-POP FEF|6  ;':*SYSTEM-DEFAULT-BINARY-FILE-TYPE*
 56 PUSH FEF|6  ;':*SYSTEM-DEFAULT-BINARY-FILE-TYPE*
 57 MOVEM LOCAL|1
 58 PUSH FEF|10  ;':*KNOWN-BINARY-FILE-PRODUCERS*
 59 (MISC) ASSQ D-PDL
 60 POP LOCAL|2
 61 BR-NIL 67
 62 CADR D-PDL LOCAL|2
 63 CALL D-IGNORE PDL-POP
 64 PUSH ARG|0
 65 MOVE D-LAST ARG|1
 66 BR 96
 67 CALL D-IGNORE LOCAL|0
 68 PUSH ARG|0
 69 PUSH FEF|13  ;'<:OUTPUT-FILE>
 70 CALL D-PDL ARG|1
 71 PUSH FEF|14  ;'<:NEW-VERSION>
 72 MOVE D-LAST 'NIL
 73 PUSH FEF|15  ;'<:PACKAGE>
 74 PUSH FEF|9  ;':*FORCE-PACKAGE*
 75 MOVE D-IGNORE ARG|2
 76 BR-NIL 80
 77 PUSH FEF|16  ;'<:ENVIRONMENT-PATHNAME>
 78 PUSH ARG|2
 79 BR 93
 80 MOVE D-IGNORE FEF|7  ;':*SYSTEM-LOAD-BINARY-FILE-TYPE*
 81 BR-NOT-NIL 84
 82 PUSH 'NIL
 83 BR 95
 84 PUSH FEF|16  ;'<:ENVIRONMENT-PATHNAME>
 85 CALL D-PDL FEF|17  ;'NIL
 86 PUSH ARG|1
 87 BR-NOT-NIL-POP 89
 88 PUSH ARG|0
 89 MOVE D-LAST PDL-POP
 90 CALL D-PDL PDL-POP
 91 PUSH FEF|18  ;'<:NEW-TYPE>
 92 MOVE D-LAST FEF|7  ;':*SYSTEM-LOAD-BINARY-FILE-TYPE*
 93 PUSH-NUMBER 2
 94 (MISC) %INTERNAL-LIST D-PDL
 95 (MISC) %SPREAD D-LAST
 96 PUSH FEF|8  ;':*WARNINGS-STREAM*
 97 BR-NIL-POP 111
 98 CALL D-IGNORE FEF|19  ;'NIL
 99 PUSH ARG|0
100 MOVE D-LAST FEF|8  ;':*WARNINGS-STREAM*
101 CALL D-IGNORE FEF|8  ;':*WARNINGS-STREAM*
102 PUSH FEF|20  ;'<:SEND-IF-HANDLES>
103 PUSH FEF|21  ;'<:FORCE-OUTPUT>
104 PUSH 'NIL
105 (MISC) %SPREAD D-LAST
106 CALL D-RETURN FEF|8  ;':*WARNINGS-STREAM*
107 PUSH FEF|20  ;'<:SEND-IF-HANDLES>
108 PUSH FEF|22  ;'<:FINISH>
109 PUSH 'NIL
110 (MISC) %SPREAD D-LAST
111 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4531] {#<DTP-FEF-POINTER <QC-FILE-1> 52244104>}
  (SYSTEM:FASL-OP-INDEX [3771] {<QC-FILE-1>}))

(SYSTEM:FASL-OP-FRAME
<QC-FILE-CROSS-1>
 44 MOVE D-IGNORE ARG|2
 45 BR-NOT-NIL 51
 46 CALL D-PDL ARG|1
 47 PUSH FEF|11  ;'<:NEW-PATHNAME>
 48 PUSH FEF|12  ;'<:TYPE>
 49 MOVE D-LAST FEF|13  ;'<:FDEF>
 50 POP ARG|2
 51 PUSH FEF|14  ;'<COMPILER:K>
 52 PUSH FEF|15  ;'<:FBIN>
 53 PUSH FEF|13  ;'<:FDEF>
 54 CALL D-PDL FEF|16  ;':COMPILER
 55 PUSH FEF|17  ;'<:TARGET>
 56 PUSH FEF|18  ;'<COMPILER:FALCON>
 57 PUSH FEF|19  ;'<:NEXT>
 58 MOVE D-LAST FEF|10  ;':*FALCON-ENVIRONMENT*
 59 BIND-POP FEF|9  ;':*COMPILATION-ENVIRONMENT*
 60 BIND-POP FEF|8  ;':*SYSTEM-LOAD-BINARY-FILE-TYPE*
 61 BIND-POP FEF|7  ;':*SYSTEM-DEFAULT-BINARY-FILE-TYPE*
 62 BIND-POP FEF|6  ;':*TARGET-COMPUTER*
 63 CALL D-RETURN FEF|20  ;'NIL
 64 PUSH ARG|0
 65 PUSH ARG|1
 66 MOVE D-LAST ARG|2
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4546] {#<DTP-FEF-POINTER <QC-FILE-CROSS-1> 52246263>}
  (SYSTEM:FASL-OP-INDEX [3813] {<QC-FILE-CROSS-1>}))

(SYSTEM:FASL-OP-FRAME
<FASLOAD-FALCON-ENVIRONMENT-1>
 24 PUSH 'T
 25 POP FEF|6  ;':*SOMETHING-LOADED*
 26 MOVE D-IGNORE ARG|1
 27 BR-NOT-NIL 33
 28 CALL D-PDL ARG|0
 29 PUSH FEF|7  ;'<:NEW-PATHNAME>
 30 PUSH FEF|8  ;'<:TYPE>
 31 MOVE D-LAST FEF|9  ;'<:FDEF>
 32 POP ARG|1
 33 CALL D-RETURN FEF|10  ;':COMPILER
 34 MOVE D-LAST ARG|1
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4562] {#<DTP-FEF-POINTER <FASLOAD-FALCON-ENVIRONMENT-1> 52246654>}
  (SYSTEM:FASL-OP-INDEX [3894] {<FASLOAD-FALCON-ENVIRONMENT-1>}))

(SYSTEM:FASL-OP-FRAME
<LOAD-FONT-WIDTHS-1>
 26 PUSH 'T
 27 POP FEF|8  ;':*SOMETHING-LOADED*
 28 CALL D-PDL FEF|9  ;'NIL
 29 MOVE D-LAST FEF|7  ;':*FORCE-PACKAGE*
 30 BIND-POP FEF|6  ;':*PACKAGE*
 31 PUSH FEF|10  ;'<PRESS:LOAD-FONT-WIDTHS>
 32 (MISC) FBOUNDP D-IGNORE
 33 BR-NIL 38
 34 CALL D-RETURN FEF|11  ;':PRESS
 35 PUSH ARG|0
 36 PUSH 'NIL
 37 MOVE D-LAST 'T
 38 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4582] {#<DTP-FEF-POINTER <LOAD-FONT-WIDTHS-1> 52247165>}
  (SYSTEM:FASL-OP-INDEX [4565] {<LOAD-FONT-WIDTHS-1>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <MAKSYS-BREAKPOINT-FLAG>)
    (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
   => (<DEFVAR-1> <MAKSYS-BREAKPOINT-FLAG> <NIL>))
  (EVAL '(<DEFVAR-1> <MAKSYS-BREAKPOINT-FLAG> <NIL>)))

(SYSTEM:FASL-OP-FRAME
<FILE-NEWER-THAN-INSTALLED-P>
 28 CALL D-PDL FEF|9  ;'NIL
 29 PUSH ARG|0
 30 MOVE D-LAST FEF|8  ;':*FORCE-PACKAGE*
 31 POP LOCAL|0
 32 MOVE D-IGNORE FEF|7  ;':*JUST-ACCUMULATING-FILES*
 33 BR-NOT-NIL 48
 34 MOVE D-IGNORE FEF|6  ;':MAKSYS-BREAKPOINT-FLAG
 35 BR-NIL 48
 36 MOVE D-IGNORE LOCAL|0
 37 BR-NIL 58
 38 PUSH LOCAL|0
 39 CALL D-PDL FEF|10  ;'NIL
 40 PUSH ARG|1
 41 BR-NOT-NIL-POP 43
 42 PUSH ARG|0
 43 MOVE D-LAST PDL-POP
 44 (MISC) EQUAL D-IGNORE
 45 BR-NOT-NIL 48
 46 CALL D-IGNORE FEF|11  ;'NIL
 47 MOVE D-LAST FEF|12  ;'"TESTING MAKSYS"
 48 MOVE D-IGNORE LOCAL|0
 49 BR-NIL 58
 50 PUSH LOCAL|0
 51 CALL D-PDL FEF|10  ;'NIL
 52 PUSH ARG|1
 53 BR-NOT-NIL-POP 55
 54 PUSH ARG|0
 55 MOVE D-LAST PDL-POP
 56 (MISC) EQUAL D-PDL
 57 (MISC) NOT D-RETURN
 58 MOVE D-RETURN 'T
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4605] {#<DTP-FEF-POINTER <FILE-NEWER-THAN-INSTALLED-P> 52252635>}
  (SYSTEM:FASL-OP-INDEX [3752] {<FILE-NEWER-THAN-INSTALLED-P>}))

(SYSTEM:FASL-OP-FRAME
<FILE-NEWER-THAN-FILE-P>
 18 PUSH ARG|2
 19 BR-NOT-NIL-POP 21
 20 PUSH ARG|1
 21 POP LOCAL|0
 22 CALL D-IGNORE FEF|6  ;'NIL
 23 MOVE D-LAST LOCAL|0
 24 BR-NIL 31
 25 CALL D-PDL FEF|7  ;'NIL
 26 MOVE D-LAST ARG|0
 27 CALL D-PDL FEF|7  ;'NIL
 28 PUSH LOCAL|0
 29 MOVE D-LAST 'T
 30 (MISC) M-> D-RETURN
 31 MOVE D-RETURN 'T
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4625] {#<DTP-FEF-POINTER <FILE-NEWER-THAN-FILE-P> 52254344>}
  (SYSTEM:FASL-OP-INDEX [3792] {<FILE-NEWER-THAN-FILE-P>}))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-GET-FILE-INFO>
 22 CALL D-PDL FEF|6  ;'NIL
 23 MOVE D-LAST ARG|0
 24 POP LOCAL|0
 25 CDR D-PDL LOCAL|0
 26 BR-NIL-POP 39
 27 PUSH LOCAL|0
 28 PUSH FEF|7  ;'<:INFO>
 29 (MISC) INTERNAL-GET-2 D-PDL
 30 BR-NOT-NIL-POP 38
 31 PUSH LOCAL|0
 32 PUSH FEF|8  ;'<:TRUENAME>
 33 (MISC) INTERNAL-GET-2 D-PDL
 34 PUSH LOCAL|0
 35 PUSH FEF|9  ;'<:CREATION-DATE>
 36 (MISC) INTERNAL-GET-2 D-PDL
 37 (MISC) CONS D-RETURN
 38 MOVE D-RETURN PDL-POP
 39 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4646] {#<DTP-FEF-POINTER <SYSTEM-GET-FILE-INFO> 52254722>}
  (SYSTEM:FASL-OP-INDEX [4593] {<SYSTEM-GET-FILE-INFO>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-INDEX [4591] {<*JUST-ACCUMULATING-FILES*>})
   => (<DEFVAR-1> <*JUST-ACCUMULATING-FILES*>))
  (EVAL '(<DEFVAR-1> <*JUST-ACCUMULATING-FILES*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [4591] {<*JUST-ACCUMULATING-FILES*>})
     => (<GLOBAL:QUOTE> <*JUST-ACCUMULATING-FILES*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*JUST-ACCUMULATING-FILES*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*JUST-ACCUMULATING-FILES*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-GET-CREATION-DATE>
 24 CALL D-PDL FEF|7  ;'NIL
 25 MOVE D-LAST ARG|0
 26 MOVEM LOCAL|0
 27 PUSH FEF|8  ;'<:CREATION-DATE>
 28 (MISC) INTERNAL-GET-2 D-PDL
 29 BR-NOT-NIL-POP 39
 30 MOVE D-IGNORE ARG|1
 31 BR-NOT-NIL 34
 32 MOVE D-IGNORE FEF|6  ;':*JUST-ACCUMULATING-FILES*
 33 BR-NIL 35
 34 MOVE D-RETURN '-1
 35 CALL D-RETURN FEF|9  ;'NIL
 36 PUSH 'NIL
 37 PUSH FEF|10  ;'"File ~A does not exist"
 38 MOVE D-LAST ARG|0
 39 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4669] {#<DTP-FEF-POINTER <SYSTEM-GET-CREATION-DATE> 52261462>}
  (SYSTEM:FASL-OP-INDEX [4288] {<SYSTEM-GET-CREATION-DATE>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*INTERESTING-FILES*>)
   => (<DEFVAR-1> <*INTERESTING-FILES*>))
  (EVAL '(<DEFVAR-1> <*INTERESTING-FILES*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [4670] {<*INTERESTING-FILES*>})
     => (<GLOBAL:QUOTE> <*INTERESTING-FILES*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*INTERESTING-FILES*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*INTERESTING-FILES*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*INTERESTING-FILES-INFO*>)
   => (<DEFVAR-1> <*INTERESTING-FILES-INFO*>))
  (EVAL '(<DEFVAR-1> <*INTERESTING-FILES-INFO*>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [174] {<DEFINE-SPECIAL-VARIABLE-1>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [4678] {<*INTERESTING-FILES-INFO*>})
     => (<GLOBAL:QUOTE> <*INTERESTING-FILES-INFO*>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2461] {<*MAKE-SYSTEM-SPECIAL-VARIABLES*>})
     => (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))
   => (<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*INTERESTING-FILES-INFO*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>)))
  (EVAL '(<DEFINE-SPECIAL-VARIABLE-1> (<GLOBAL:QUOTE> <*INTERESTING-FILES-INFO*>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <*MAKE-SYSTEM-SPECIAL-VARIABLES*>))))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-GET-FILE-PROPERTY-LIST>
 38 PUSH ARG|0
 39 PUSH FEF|10  ;':*INTERESTING-FILES-INFO*
 40 (MISC) ASSQ D-PDL
 41 PUSH 'T
 42 POP LOCAL|1
 43 BR 104
 44 MOVE D-IGNORE FEF|9  ;':*JUST-ACCUMULATING-FILES*
 45 BR-NIL 51
 46 PUSH ARG|0
 47 PUSH FEF|8  ;':*INTERESTING-FILES*
 48 (MISC) CONS D-PDL
 49 POP FEF|8  ;':*INTERESTING-FILES*
 50 MOVE D-RETURN 'NIL
 51 MOVE D-IGNORE LOCAL|1
 52 BR-NOT-NIL 57
 53 CALL D-IGNORE FEF|11  ;'NIL
 54 PUSH FEF|12  ;'"Look again for the file."
 55 PUSH FEF|13  ;'"File ~A not found."
 56 MOVE D-LAST ARG|0
 57 CALL D-IGNORE FEF|14  ;'NIL
 58 PUSH FEF|7  ;':*FILE-TRANSFORMATION-LIST*
 59 MOVE D-LAST FEF|15  ;'(<:PROBABLY>)
 60 CALL D-IGNORE FEF|14  ;'NIL
 61 PUSH FEF|6  ;':*ADDED-FILE-TRANSFORMATIONS*
 62 MOVE D-LAST FEF|16  ;'(<NIL> <:PROBABLY>)
 63 CALL D-PDL FEF|17  ;':FS
 64 MOVE D-LAST FEF|8  ;':*INTERESTING-FILES*
 65 SET-NIL LOCAL|3
 66 POP LOCAL|2
 67 SET-NIL LOCAL|5
 68 SET-NIL LOCAL|4
 69 PUSH-ADDRESS LOCAL|4
 70 POP LOCAL|5
 71 PUSH LOCAL|2
 72 POP LOCAL|7
 73 SET-NIL LOCAL|6
 74 MOVE D-IGNORE LOCAL|7
 75 BR-NIL 92
 76 CAR D-PDL LOCAL|7
 77 POP LOCAL|6
 78 SETE-CDR LOCAL|7
 79 CDR D-IGNORE LOCAL|6
 80 BR-NOT-NIL 86
 81 CAR D-PDL LOCAL|6
 82 PUSH LOCAL|3
 83 (MISC) CONS D-PDL
 84 POP LOCAL|3
 85 BR 74
 86 PUSH LOCAL|5
 87 PUSH LOCAL|6
 88 (MISC) NCONS D-PDL
 89 MOVEM LOCAL|5
 90 (MISC) RPLACD D-IGNORE
 91 BR 74
 92 PUSH LOCAL|4
 93 MOVEM LOCAL|2
 94 PUSH FEF|10  ;':*INTERESTING-FILES-INFO*
 95 (MISC) %INTERNAL-NCONC-2 D-PDL
 96 POP FEF|10  ;':*INTERESTING-FILES-INFO*
 97 PUSH LOCAL|3
 98 POP FEF|8  ;':*INTERESTING-FILES*
 99 PUSH ARG|0
100 PUSH FEF|10  ;':*INTERESTING-FILES-INFO*
101 (MISC) ASSQ D-PDL
102 SET-NIL LOCAL|1
103 SET-NIL LOCAL|1
104 POP LOCAL|0
105 BR-NIL 44
106 MOVE D-RETURN LOCAL|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4717] {#<DTP-FEF-POINTER <SYSTEM-GET-FILE-PROPERTY-LIST> 52264164>}
  (SYSTEM:FASL-OP-INDEX [4631] {<SYSTEM-GET-FILE-PROPERTY-LIST>}))

(SYSTEM:FASL-OP-FRAME
<ACCUMULATE-INTERESTING-FILES>
 18 PUSH 'T
 19 BIND-POP FEF|6  ;':*JUST-ACCUMULATING-FILES*
 20 PUSH ARG|0
 21 POP LOCAL|0
 22 BR-NIL 42
 23 CAR D-PDL LOCAL|0
 24 POP LOCAL|1
 25 CAR D-PDL LOCAL|1
 26 PUSH ARG|1
 27 (MISC) MEMQ D-IGNORE
 28 BR-NIL 40
 29 PUSH LOCAL|1
 30 (MISC) CADDR D-PDL
 31 BIND-POP FEF|7  ;':*FORCE-PACKAGE*
 32 PUSH-NUMBER 4
 33 PUSH LOCAL|1
 34 (MISC) NTH D-PDL
 35 PUSH-NUMBER 6
 36 PUSH LOCAL|1
 37 (MISC) NTHCDR D-PDL
 38 (MISC) INTERNAL-APPLY D-IGNORE
 39 (MISC) UNBIND 1 binding 
 40 SETE-CDR LOCAL|0
 41 BR-NOT-NIL 23
 42 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4735] {#<DTP-FEF-POINTER <ACCUMULATE-INTERESTING-FILES> 52265304>}
  (SYSTEM:FASL-OP-INDEX [4694] {<ACCUMULATE-INTERESTING-FILES>}))

(SYSTEM:FASL-OP-FRAME
<INVALIDATE-PATHNAME-INFO>
 22 CALL D-PDL FEF|7  ;'NIL
 23 PUSH FEF|8  ;'(<:INTERNAL> <INVALIDATE-PATHNAME-INFO> 0)
 24 MAKE-LEXICAL-CLOSURE-TOP-LEVEL local slot 0
 25 MOVE D-LAST FEF|6  ;':*INTERESTING-FILES-INFO*
 26 MOVEM FEF|6  ;':*INTERESTING-FILES-INFO*
 27 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4755] {#<DTP-FEF-POINTER <INVALIDATE-PATHNAME-INFO> 52266606>}
  (SYSTEM:FASL-OP-INDEX [3104] {<INVALIDATE-PATHNAME-INFO>}))

(SYSTEM:FASL-OP-FRAME
(<:INTERNAL> <INVALIDATE-PATHNAME-INFO> 0)
 14 CAR D-PDL ARG|0
 15 PUSH-NUMBER 0
 16 (MISC) %LOAD-FROM-HIGHER-CONTEXT D-PDL
 17 (MISC) M-EQ D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4773] {#<DTP-FEF-POINTER (<:INTERNAL> <INVALIDATE-PATHNAME-INFO> 0) 52267050>}
  (SYSTEM:FASL-OP-INDEX [4742] {(<:INTERNAL> <INVALIDATE-PATHNAME-INFO> 0)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <QUERY-USER-SELECTIVE-OPTIONS>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [3147] {<:CHOICES>})
        (SYSTEM:FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-PACKAGE-SYMBOL
                (SYSTEM:FASL-OP-INDEX [32] {""})
                (SYSTEM:FASL-OP-STRING "YES")
                <:YES>)
              (SYSTEM:FASL-OP-STRING "Yes.")
             => (<:YES> "Yes."))
            (SYSTEM:FASL-OP-FIXED 89)
            (SYSTEM:FASL-OP-FIXED 32)
           => ((<:YES> "Yes.") 89 32))
          (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-PACKAGE-SYMBOL
                (SYSTEM:FASL-OP-INDEX [32] {""})
                (SYSTEM:FASL-OP-STRING "NO")
                <:NO>)
              (SYSTEM:FASL-OP-STRING "No.")
             => (<:NO> "No."))
            (SYSTEM:FASL-OP-FIXED 78)
            (SYSTEM:FASL-OP-FIXED 135)
           => ((<:NO> "No.") 78 135))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-PACKAGE-SYMBOL
                (SYSTEM:FASL-OP-INDEX [32] {""})
                (SYSTEM:FASL-OP-STRING "DIRECTORY")
                <:DIRECTORY>)
              (SYSTEM:FASL-OP-STRING "Directory.")
             => (<:DIRECTORY> "Directory."))
            (SYSTEM:FASL-OP-FIXED 68)
           => ((<:DIRECTORY> "Directory.") 68))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-PACKAGE-SYMBOL
                (SYSTEM:FASL-OP-INDEX [32] {""})
                (SYSTEM:FASL-OP-STRING "EDIT")
                <:EDIT>)
              (SYSTEM:FASL-OP-STRING "Edit.")
             => (<:EDIT> "Edit."))
            (SYSTEM:FASL-OP-FIXED 69)
           => ((<:EDIT> "Edit.") 69))
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
              (SYSTEM:FASL-OP-PACKAGE-SYMBOL
                (SYSTEM:FASL-OP-INDEX [32] {""})
                (SYSTEM:FASL-OP-STRING "SRCCOM")
                <:SRCCOM>)
              (SYSTEM:FASL-OP-STRING "Srccom.")
             => (<:SRCCOM> "Srccom."))
            (SYSTEM:FASL-OP-FIXED 83)
           => ((<:SRCCOM> "Srccom.") 83))
         => (((<:YES> "Yes.") 89 32) ((<:NO> "No.") 78 135) ((<:DIRECTORY> "Directory.") 68) ((<:EDIT> "Edit.") 69) ((<:SRCCOM> "Srccom.") 83)))
       => (<:CHOICES> (((<:YES> "Yes.") 89 32) ((<:NO> "No.") 78 135) ((<:DIRECTORY> "Directory.") 68) ((<:EDIT> "Edit.") 69) ((<:SRCCOM> "Srccom.") 83))))
     => (<GLOBAL:QUOTE> (<:CHOICES> (((<:YES> "Yes.") 89 32) ((<:NO> "No.") 78 135) ((<:DIRECTORY> "Directory.") 68) ((<:EDIT> "Edit.") 69) ((<:SRCCOM> "Srccom.") 83)))))
   => (<DEFVAR-1> <QUERY-USER-SELECTIVE-OPTIONS> (<GLOBAL:QUOTE> (<:CHOICES> (((<:YES> "Yes.") 89 32) ((<:NO> "No.") 78 135) ((<:DIRECTORY> "Directory.") 68) ((<:EDIT> "Edit.") 69) ((<:SRCCOM> "Srccom.") 83))))))
  (EVAL '(<DEFVAR-1> <QUERY-USER-SELECTIVE-OPTIONS> (<GLOBAL:QUOTE> (<:CHOICES> (((<:YES> "Yes.") 89 32) ((<:NO> "No.") 78 135) ((<:DIRECTORY> "Directory.") 68) ((<:EDIT> "Edit.") 69) ((<:SRCCOM> "Srccom.") 83)))))))

(SYSTEM:FASL-OP-FRAME
<QUERY-USER-SELECTIVE>
 44 PUSH FEF|7  ;':*QUERY-TYPE*
 45 EQ FEF|8  ;'<:SELECTIVE>
 46 BR-NOT-NIL 48
 47 MOVE D-RETURN 'T
 48 CALL D-PDL FEF|9  ;'NIL
 49 PUSH FEF|6  ;':QUERY-USER-SELECTIVE-OPTIONS
 50 PUSH FEF|10  ;'"~&~:[~A ~;~*~]~\SI::FILE-XFORM-ARGS\? "
 51 PUSH-NUMBER 6
 52 PUSH ARG|0
 53 (MISC) NTHCDR D-PDL
 54 (MISC) NOT D-PDL
 55 CADR D-PDL ARG|0
 56 (MISC) CAADR D-PDL
 57 MOVE D-LAST ARG|0
 58 MOVEM LOCAL|0
 59 EQ FEF|11  ;'<:YES>
 60 BR-NIL 62
 61 MOVE D-RETURN 'T
 62 PUSH LOCAL|0
 63 EQ FEF|12  ;'<:NO>
 64 BR-NIL 66
 65 MOVE D-RETURN 'NIL
 66 PUSH LOCAL|0
 67 EQ FEF|13  ;'<:DIRECTORY>
 68 BR-NIL 72
 69 CALL D-IGNORE FEF|14  ;'NIL
 70 MOVE D-LAST ARG|0
 71 BR 48
 72 PUSH LOCAL|0
 73 EQ FEF|15  ;'<:EDIT>
 74 BR-NIL 81
 75 CALL D-IGNORE FEF|16  ;'NIL
 76 PUSH-NUMBER 6
 77 PUSH ARG|0
 78 (MISC) NTHCDR D-PDL
 79 CAR D-LAST PDL-POP
 80 BR 48
 81 PUSH LOCAL|0
 82 EQ FEF|17  ;'<:SRCCOM>
 83 BR-NIL 48
 84 CALL D-PDL FEF|14  ;'NIL
 85 MOVE D-LAST ARG|0
 86 POP LOCAL|1
 87 PUSH-NUMBER 4
 88 PUSH ARG|0
 89 (MISC) NTH D-PDL
 90 PUSH FEF|18  ;'<FILE-TRANSFORMATION-SRCCOM-FILES-FUNCTION>
 91 (MISC) INTERNAL-GET-2 D-PDL
 92 BR-NOT-NIL-POP 94
 93 PUSH FEF|19  ;'<DEFAULT-FILE-TRANSFORMATION-SRCCOM-FILES-FUNCTION>
 94 PUSH PDL-POP
 95 PUSH-NUMBER 2
 96 (MISC) %CALL-MULT-VALUE D-IGNORE
 97 PUSH ARG|0
 98 MOVE D-LAST LOCAL|1
 99 POP LOCAL|3
100 POP LOCAL|2
101 CALL D-IGNORE FEF|20  ;':SRCCOM
102 PUSH LOCAL|2
103 MOVE D-LAST LOCAL|3
104 BR 48
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4839] {#<DTP-FEF-POINTER <QUERY-USER-SELECTIVE> 52271064>}
  (SYSTEM:FASL-OP-INDEX [3187] {<QUERY-USER-SELECTIVE>}))

(SYSTEM:FASL-OP-FRAME
<PRINT-FILE-TRANSFORMATION-DIRECTORY>
 18 PUSH-NUMBER 6
 19 PUSH ARG|0
 20 (MISC) NTHCDR D-PDL
 21 POP LOCAL|1
 22 BR-NIL 38
 23 CAR D-PDL LOCAL|1
 24 POP LOCAL|2
 25 CALL D-PDL LOCAL|2
 26 MOVE D-LAST FEF|6  ;'<:GENERIC-PATHNAME>
 27 MOVEM LOCAL|2
 28 PUSH LOCAL|0
 29 (MISC) ASSQ D-IGNORE
 30 BR-NOT-NIL 36
 31 CALL D-PDL FEF|7  ;'NIL
 32 MOVE D-LAST LOCAL|2
 33 PUSH LOCAL|0
 34 (MISC) CONS D-PDL
 35 POP LOCAL|0
 36 SETE-CDR LOCAL|1
 37 BR-NOT-NIL 23
 38 MOVE D-RETURN LOCAL|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4857] {#<DTP-FEF-POINTER <PRINT-FILE-TRANSFORMATION-DIRECTORY> 52272075>}
  (SYSTEM:FASL-OP-INDEX [4818] {<PRINT-FILE-TRANSFORMATION-DIRECTORY>}))

(SYSTEM:FASL-OP-FRAME
<PRINT-FILE-TRANSFORMATION-DIRECTORY-1>
 50 CALL D-IGNORE FEF|6  ;':*STANDARD-OUTPUT*
 51 MOVE D-LAST FEF|7  ;'<:FRESH-LINE>
 52 CALL D-PDL FEF|8  ;':FS
 53 CALL D-PDL ARG|0
 54 PUSH FEF|9  ;'<:NEW-PATHNAME>
 55 PUSH FEF|10  ;'<:TYPE>
 56 PUSH FEF|11  ;'<:WILD>
 57 PUSH FEF|12  ;'<:VERSION>
 58 MOVE D-LAST FEF|11  ;'<:WILD>
 59 MOVE D-LAST FEF|13  ;'<:SORTED>
 60 POP LOCAL|0
 61 PUSH 'NIL
 62 PUSH LOCAL|0
 63 (MISC) ASSQ D-PDL
 64 PUSH LOCAL|0
 65 PUSH '-1
 66 (MISC) %INTERNAL-DELQ D-PDL
 67 MOVEM LOCAL|0
 68 POP LOCAL|1
 69 BR-NIL 99
 70 CAR D-PDL LOCAL|1
 71 POP LOCAL|2
 72 CALL D-IGNORE FEF|14  ;'NIL
 73 PUSH 'T
 74 PUSH FEF|15  ;'"~&~A~15T~D ~D(~D)~30T"
 75 CAR D-PDL LOCAL|2
 76 CALL D-PDL PDL-POP
 77 MOVE D-LAST FEF|16  ;'<:STRING-FOR-DIRED>
 78 PUSH LOCAL|2
 79 PUSH FEF|17  ;'<:LENGTH-IN-BLOCKS>
 80 (MISC) INTERNAL-GET-2 D-PDL
 81 PUSH LOCAL|2
 82 PUSH FEF|18  ;'<:LENGTH-IN-BYTES>
 83 (MISC) INTERNAL-GET-2 D-PDL
 84 PUSH LOCAL|2
 85 PUSH FEF|19  ;'<:BYTE-SIZE>
 86 (MISC) INTERNAL-GET-2 D-LAST
 87 CALL D-IGNORE FEF|20  ;':TIME
 88 PUSH LOCAL|2
 89 PUSH FEF|21  ;'<:CREATION-DATE>
 90 (MISC) INTERNAL-GET-2 D-LAST
 91 CALL D-IGNORE FEF|14  ;'NIL
 92 PUSH 'T
 93 PUSH FEF|22  ;'"~@[ ~A~]~%"
 94 PUSH LOCAL|2
 95 PUSH FEF|23  ;'<:AUTHOR>
 96 (MISC) INTERNAL-GET-2 D-LAST
 97 SETE-CDR LOCAL|1
 98 BR-NOT-NIL 70
 99 PUSH ARG|0
100 PUSH LOCAL|0
101 (MISC) CONS D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4895] {#<DTP-FEF-POINTER <PRINT-FILE-TRANSFORMATION-DIRECTORY-1> 52272422>}
  (SYSTEM:FASL-OP-INDEX [4845] {<PRINT-FILE-TRANSFORMATION-DIRECTORY-1>}))

(SYSTEM:FASL-OP-FRAME
<DEFAULT-FILE-TRANSFORMATION-SRCCOM-FILES-FUNCTION>
 20 PUSH-NUMBER 6
 21 PUSH ARG|0
 22 (MISC) NTHCDR D-PDL
 23 CAR D-PDL PDL-POP
 24 POP LOCAL|0
 25 CALL D-PDL LOCAL|0
 26 PUSH FEF|6  ;'<:NEW-VERSION>
 27 MOVE D-LAST FEF|7  ;'<:OLDEST>
 28 CALL D-PDL LOCAL|0
 29 PUSH FEF|6  ;'<:NEW-VERSION>
 30 MOVE D-LAST FEF|8  ;'<:NEWEST>
 31 (MISC) %RETURN-2 D-IGNORE
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4914] {#<DTP-FEF-POINTER <DEFAULT-FILE-TRANSFORMATION-SRCCOM-FILES-FUNCTION> 52273404>}
  (SYSTEM:FASL-OP-INDEX [4821] {<DEFAULT-FILE-TRANSFORMATION-SRCCOM-FILES-FUNCTION>}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <FILE-NEWER-THAN-FILE-P> <FILE-TRANSFORMATION-SRCCOM-FILES-FUNCTION>)
 18 CALL D-RETURN FEF|6  ;'NIL
 19 PUSH ARG|0
 20 PUSH ARG|1
 21 CALL D-LAST FEF|7  ;'NIL
 22 PUSH-NUMBER 6
 23 PUSH ARG|0
 24 (MISC) NTHCDR D-PDL
 25 CADR D-LAST PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4930] {#<DTP-FEF-POINTER (<:PROPERTY> <FILE-NEWER-THAN-FILE-P> <FILE-TRANSFORMATION-SRCCOM-FILES-FUNCTION>) 52275543>}
  (SYSTEM:FASL-OP-INDEX [4917] {(<:PROPERTY> <FILE-NEWER-THAN-FILE-P> <FILE-TRANSFORMATION-SRCCOM-FILES-FUNCTION>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <FILE-NEWER-THAN-INSTALLED-P> <FILE-TRANSFORMATION-SRCCOM-FILES-FUNCTION>)
 20 CALL D-RETURN FEF|7  ;'NIL
 21 PUSH ARG|0
 22 PUSH ARG|1
 23 CALL D-PDL FEF|8  ;'NIL
 24 PUSH-NUMBER 6
 25 PUSH ARG|0
 26 (MISC) NTHCDR D-PDL
 27 CAR D-PDL PDL-POP
 28 MOVE D-LAST FEF|6  ;':*FORCE-PACKAGE*
 29 CDR D-PDL PDL-POP
 30 BR-NOT-NIL-POP 32
 31 PUSH '-1
 32 MOVE D-LAST PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4945] {#<DTP-FEF-POINTER (<:PROPERTY> <FILE-NEWER-THAN-INSTALLED-P> <FILE-TRANSFORMATION-SRCCOM-FILES-FUNCTION>) 52276051>}
  (SYSTEM:FASL-OP-INDEX [4933] {(<:PROPERTY> <FILE-NEWER-THAN-INSTALLED-P> <FILE-TRANSFORMATION-SRCCOM-FILES-FUNCTION>)}))

(SYSTEM:FASL-OP-FRAME
<SRCCOM-FILES-FUNCTION-NEWEST-FILE-OLDER-THAN-DATE>
 28 PUSH-NUMBER 6
 29 PUSH ARG|0
 30 (MISC) NTHCDR D-PDL
 31 CAR D-PDL PDL-POP
 32 POP LOCAL|0
 33 CALL D-PDL LOCAL|0
 34 MOVE D-LAST FEF|6  ;'<:GENERIC-PATHNAME>
 35 MOVEM LOCAL|1
 36 PUSH ARG|1
 37 (MISC) ASSQ D-PDL
 38 CDR D-PDL PDL-POP
 39 POP LOCAL|2
 40 CALL D-PDL LOCAL|0
 41 PUSH FEF|7  ;'<:NEW-VERSION>
 42 MOVE D-LAST FEF|8  ;'<:OLDEST>
 43 POP LOCAL|3
 44 PUSH LOCAL|2
 45 POP LOCAL|4
 46 BR-NIL 65
 47 CAR D-PDL LOCAL|4
 48 POP LOCAL|5
 49 CAR D-PDL LOCAL|5
 50 POP LOCAL|6
 51 CALL D-PDL LOCAL|6
 52 MOVE D-LAST FEF|9  ;'<:CANONICAL-TYPE>
 53 PUSH FEF|10  ;'(<:LISP> <NIL> <:UNSPECIFIC>)
 54 (MISC) MEMBER D-IGNORE
 55 BR-NIL 63
 56 PUSH LOCAL|5
 57 PUSH FEF|11  ;'<:CREATION-DATE>
 58 (MISC) INTERNAL-GET-2 D-PDL
 59 < ARG|2
 60 BR-NIL 63
 61 PUSH LOCAL|6
 62 POP LOCAL|3
 63 SETE-CDR LOCAL|4
 64 BR-NOT-NIL 47
 65 CALL D-PDL LOCAL|0
 66 MOVE D-LAST FEF|9  ;'<:CANONICAL-TYPE>
 67 PUSH FEF|10  ;'(<:LISP> <NIL> <:UNSPECIFIC>)
 68 (MISC) MEMQ D-IGNORE
 69 BR-NOT-NIL 78
 70 CAAR D-PDL LOCAL|2
 71 CALL D-PDL PDL-POP
 72 MOVE D-LAST FEF|9  ;'<:CANONICAL-TYPE>
 73 PUSH FEF|10  ;'(<:LISP> <NIL> <:UNSPECIFIC>)
 74 (MISC) MEMQ D-IGNORE
 75 BR-NIL 78
 76 CAAR D-PDL LOCAL|2
 77 POP LOCAL|0
 78 PUSH LOCAL|3
 79 CALL D-PDL LOCAL|0
 80 PUSH FEF|7  ;'<:NEW-VERSION>
 81 MOVE D-LAST FEF|12  ;'<:NEWEST>
 82 (MISC) %RETURN-2 D-IGNORE
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4971] {#<DTP-FEF-POINTER <SRCCOM-FILES-FUNCTION-NEWEST-FILE-OLDER-THAN-DATE> 52276312>}
  (SYSTEM:FASL-OP-INDEX [4921] {<SRCCOM-FILES-FUNCTION-NEWEST-FILE-OLDER-THAN-DATE>}))

(SYSTEM:FASL-OP-FRAME
<ALL-SYSTEMS-NAME-ALIST>
 24 PUSH-ADDRESS LOCAL|0
 25 POP LOCAL|1
 26 PUSH FEF|6  ;':*SYSTEMS-LIST*
 27 POP LOCAL|3
 28 MOVE D-IGNORE LOCAL|3
 29 BR-NIL 80
 30 CAR D-PDL LOCAL|3
 31 POP LOCAL|2
 32 SETE-CDR LOCAL|3
 33 PUSH LOCAL|1
 34 CALL D-PDL FEF|7  ;'NIL
 35 PUSH LOCAL|2
 36 PUSH FEF|8  ;'<SYSTEM>
 37 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 38 BR-NIL 42
 39 PUSH LOCAL|2
 40 AR-1 (1) D-LAST
 41 BR 43
 42 MOVE D-LAST LOCAL|2
 43 PUSH LOCAL|2
 44 (MISC) CONS D-PDL
 45 SET-NIL LOCAL|4
 46 PUSH-ADDRESS LOCAL|4
 47 PUSH LOCAL|2
 48 PUSH FEF|8  ;'<SYSTEM>
 49 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 50 BR-NIL 56
 51 CALL D-PDL FEF|9  ;'NIL
 52 PUSH LOCAL|2
 53 AR-1 (6) D-PDL
 54 MOVE D-LAST FEF|10  ;'<:NICKNAMES>
 55 BR 57
 56 PUSH 'NIL
 57 POP LOCAL|6
 58 POP LOCAL|5
 59 BR 69
 60 PUSH LOCAL|5
 61 CAR D-PDL LOCAL|6
 62 MOVEM LOCAL|7
 63 PUSH LOCAL|2
 64 (MISC) CONS D-PDL
 65 (MISC) NCONS D-PDL
 66 MOVEM LOCAL|5
 67 (MISC) RPLACD D-IGNORE
 68 SETE-CDR LOCAL|6
 69 MOVE D-IGNORE LOCAL|6
 70 BR-NOT-NIL 60
 71 PUSH LOCAL|4
 72 (MISC) CONS D-PDL
 73 (MISC) RPLACD D-PDL
 74 CDR D-IGNORE PDL-POP
 75 BR-NIL 28
 76 CDR D-PDL LOCAL|1
 77 (MISC) LAST D-PDL
 78 POP LOCAL|1
 79 BR 28
 80 MOVE D-RETURN LOCAL|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [4989] {#<DTP-FEF-POINTER <ALL-SYSTEMS-NAME-ALIST> 52276725>}
  (SYSTEM:FASL-OP-INDEX [4974] {<ALL-SYSTEMS-NAME-ALIST>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*SOURCE-FILE-TYPES*>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [2811] {<:LISP>})
       => (<:LISP>))
     => (<GLOBAL:QUOTE> (<:LISP>)))
   => (<DEFVAR-1> <*SOURCE-FILE-TYPES*> (<GLOBAL:QUOTE> (<:LISP>))))
  (EVAL '(<DEFVAR-1> <*SOURCE-FILE-TYPES*> (<GLOBAL:QUOTE> (<:LISP>)))))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-SOURCE-FILES>
Arg 0 (NIL) is required, local, not initialized.
Arg 1 (NIL) is optional, local, initialized to the contents of #<DTP-LOCATIVE 52277503>.
Arg 2 (NIL) is optional, local, initialized to NIL.
Arg 3 (NIL) is optional, local, initialized to '<GLOBAL:T>.

 32 CALL D-RETURN FEF|13  ;'NIL
 33 CALL D-LAST FEF|14  ;'NIL
 34 PUSH ARG|0
 35 PUSH ARG|1
 36 PUSH ARG|2
 37 MOVE D-LAST ARG|3
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5018] {#<DTP-FEF-POINTER <SYSTEM-SOURCE-FILES> 52277675>}
  (SYSTEM:FASL-OP-INDEX [1557] {<SYSTEM-SOURCE-FILES>}))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-SOURCE-FILES-1>
 52 CALL D-PDL FEF|10  ;'NIL
 53 MOVE D-LAST ARG|0
 54 POP ARG|0
 55 CALL D-PDL FEF|11  ;'NIL
 56 PUSH ARG|0
 57 AR-1 (6) D-PDL
 58 PUSH FEF|12  ;'<DEFAULT-BINARY-FILE-TYPE>
 59 PUSH FEF|9  ;':*TARGET-COMPUTER*
 60 PUSH FEF|13  ;'<MAKE-SYSTEM>
 61 (MISC) INTERNAL-GET-2 D-PDL
 62 CAR D-LAST PDL-POP
 63 POP FEF|6  ;':*SYSTEM-DEFAULT-BINARY-FILE-TYPE*
 64 CALL D-PDL FEF|11  ;'NIL
 65 PUSH ARG|0
 66 AR-1 (6) D-PDL
 67 PUSH FEF|12  ;'<DEFAULT-BINARY-FILE-TYPE>
 68 PUSH FEF|9  ;':*TARGET-COMPUTER*
 69 PUSH FEF|13  ;'<MAKE-SYSTEM>
 70 (MISC) INTERNAL-GET-2 D-PDL
 71 CAR D-LAST PDL-POP
 72 POP FEF|7  ;':*SYSTEM-LOAD-BINARY-FILE-TYPE*
 73 CALL D-RETURN FEF|14  ;'NIL
 74 CALL D-PDL FEF|11  ;'NIL
 75 PUSH ARG|0
 76 AR-1 (6) D-PDL
 77 MOVE D-LAST FEF|15  ;'<:SYMBOLIC-NAME>
 78 MOVEM LOCAL|2
 79 BR-NIL-POP 95
 80 CALL D-PDL FEF|16  ;'NIL
 81 PUSH LOCAL|2
 82 MOVE D-LAST FEF|17  ;'<DEFSYSTEM>
 83 MOVEM LOCAL|3
 84 BR-NIL-POP 95
 85 CALL D-PDL LOCAL|3
 86 PUSH FEF|18  ;'<:GET>
 87 MOVE D-LAST FEF|19  ;'<MAYBE-RELOAD-SYSTEM>
 88 MOVEM LOCAL|4
 89 BR-NIL-POP 95
 90 CALL D-PDL FEF|20  ;'NIL
 91 PUSH LOCAL|4
 92 PUSH ARG|1
 93 PUSH ARG|2
 94 MOVE D-LAST ARG|3
 95 CALL D-PDL FEF|11  ;'NIL
 96 PUSH ARG|0
 97 AR-1 (6) D-PDL
 98 MOVE D-LAST FEF|21  ;'<:PACKAGE>
 99 BIND-POP FEF|8  ;':*FORCE-PACKAGE*
100 PUSH-ADDRESS LOCAL|5
101 POP LOCAL|6
102 CALL D-PDL FEF|22  ;'NIL
103 PUSH ARG|0
104 AR-1 (3) D-LAST
105 POP LOCAL|8
106 MOVE D-IGNORE LOCAL|8
107 BR-NIL 149
108 CAR D-PDL LOCAL|8
109 POP LOCAL|7
110 SETE-CDR LOCAL|8
111 PUSH LOCAL|6
112 SET-NIL LOCAL|10
113 SET-NIL LOCAL|9
114 PUSH-ADDRESS LOCAL|9
115 POP LOCAL|10
116 PUSH ARG|0
117 AR-1 (5) D-PDL
118 POP LOCAL|12
119 SET-NIL LOCAL|11
120 MOVE D-IGNORE LOCAL|12
121 BR-NIL 141
122 CAR D-PDL LOCAL|12
123 POP LOCAL|11
124 SETE-CDR LOCAL|12
125 PUSH LOCAL|11
126 AR-1 (2) D-PDL
127 EQ LOCAL|7
128 BR-NIL 120
129 PUSH LOCAL|10
130 CALL D-PDL FEF|23  ;'NIL
131 PUSH LOCAL|11
132 PUSH ARG|1
133 MOVE D-LAST 'NIL
134 (MISC) RPLACD D-PDL
135 CDR D-IGNORE PDL-POP
136 BR-NIL 120
137 CDR D-PDL LOCAL|10
138 (MISC) LAST D-PDL
139 POP LOCAL|10
140 BR 120
141 PUSH LOCAL|9
142 (MISC) RPLACD D-PDL
143 CDR D-IGNORE PDL-POP
144 BR-NIL 106
145 CDR D-PDL LOCAL|6
146 (MISC) LAST D-PDL
147 POP LOCAL|6
148 BR 106
149 PUSH LOCAL|5
150 (MISC) UNBIND 1 binding 
151 PUSH ARG|2
152 BR-NIL-POP 190
153 CALL D-PDL FEF|11  ;'NIL
154 PUSH ARG|0
155 AR-1 (6) D-PDL
156 MOVE D-LAST FEF|21  ;'<:PACKAGE>
157 BIND-POP FEF|8  ;':*FORCE-PACKAGE*
158 SET-NIL LOCAL|12
159 SET-NIL LOCAL|10
160 PUSH-ADDRESS LOCAL|10
161 POP LOCAL|12
162 PUSH ARG|0
163 AR-1 (5) D-PDL
164 POP LOCAL|9
165 SET-NIL LOCAL|11
166 MOVE D-IGNORE LOCAL|9
167 BR-NIL 188
168 CAR D-PDL LOCAL|9
169 POP LOCAL|11
170 SETE-CDR LOCAL|9
171 PUSH LOCAL|11
172 AR-1 (2) D-PDL
173 PUSH FEF|24  ;'<MODULE>
174 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
175 BR-NOT-NIL 166
176 PUSH LOCAL|12
177 CALL D-PDL FEF|23  ;'NIL
178 PUSH LOCAL|11
179 PUSH ARG|1
180 MOVE D-LAST 'T
181 (MISC) RPLACD D-PDL
182 CDR D-IGNORE PDL-POP
183 BR-NIL 166
184 CDR D-PDL LOCAL|12
185 (MISC) LAST D-PDL
186 POP LOCAL|12
187 BR 166
188 PUSH LOCAL|10
189 (MISC) UNBIND 1 binding 
190 PUSH ARG|3
191 BR-NIL-POP 219
192 SET-NIL LOCAL|12
193 SET-NIL LOCAL|10
194 PUSH-ADDRESS LOCAL|10
195 POP LOCAL|12
196 PUSH ARG|0
197 AR-1 (2) D-PDL
198 POP LOCAL|9
199 SET-NIL LOCAL|13
200 MOVE D-IGNORE LOCAL|9
201 BR-NIL 218
202 CAR D-PDL LOCAL|9
203 POP LOCAL|13
204 SETE-CDR LOCAL|9
205 PUSH LOCAL|12
206 CALL D-PDL FEF|20  ;'NIL
207 PUSH LOCAL|13
208 PUSH ARG|1
209 PUSH ARG|2
210 MOVE D-LAST ARG|3
211 (MISC) RPLACD D-PDL
212 CDR D-IGNORE PDL-POP
213 BR-NIL 200
214 CDR D-PDL LOCAL|12
215 (MISC) LAST D-PDL
216 POP LOCAL|12
217 BR 200
218 PUSH LOCAL|10
219 MOVE D-LAST PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5050] {#<DTP-FEF-POINTER <SYSTEM-SOURCE-FILES-1> 52300246>}
  (SYSTEM:FASL-OP-INDEX [5005] {<SYSTEM-SOURCE-FILES-1>}))

(SYSTEM:FASL-OP-FRAME
<TRANSFORMATION-SOURCE-FILES>
 38 PUSH ARG|0
 39 AR-1 (2) D-PDL
 40 POP LOCAL|0
 41 PUSH ARG|0
 42 AR-1 (1) D-PDL
 43 MOVEM LOCAL|1
 44 (MISC) CADDDR D-PDL
 45 POP LOCAL|2
 46 BIND-NIL FEF|6  ;':*FORCE-PACKAGE*
 47 BIND-NIL FEF|7  ;':*TRANSFORMATION-OUTPUTS*
 48 PUSH LOCAL|2
 49 BR-NIL-POP 133
 50 PUSH ARG|2
 51 BR-NOT-NIL-POP 55
 52 PUSH LOCAL|0
 53 PUSH FEF|8  ;'<MODULE>
 54 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-PDL
 55 BR-NIL-POP 133
 56 CALL D-PDL FEF|9  ;'NIL
 57 MOVE D-LAST LOCAL|0
 58 MOVEM LOCAL|3
 59 EQ FEF|8  ;'<MODULE>
 60 BR-NIL 63
 61 CALL D-PDL FEF|10  ;'NIL
 62 BR 71
 63 PUSH LOCAL|3
 64 EQ FEF|11  ;'<TRANSFORMATION>
 65 BR-NIL 68
 66 CALL D-PDL FEF|12  ;'NIL
 67 BR 71
 68 CALL D-PDL FEF|13  ;'NIL
 69 PUSH 'NIL
 70 PUSH FEF|14  ;'"~S is not a valid transformation input"
 71 MOVE D-LAST LOCAL|0
 72 POP LOCAL|4
 73 PUSH-ADDRESS LOCAL|5
 74 POP LOCAL|6
 75 PUSH LOCAL|4
 76 POP LOCAL|8
 77 MOVE D-IGNORE LOCAL|8
 78 BR-NIL 132
 79 CAR D-PDL LOCAL|8
 80 POP LOCAL|7
 81 SETE-CDR LOCAL|8
 82 CAR D-PDL LOCAL|7
 83 SETE-CDR LOCAL|7
 84 POP LOCAL|9
 85 PUSH LOCAL|6
 86 SET-NIL LOCAL|11
 87 SET-NIL LOCAL|10
 88 PUSH-ADDRESS LOCAL|10
 89 POP LOCAL|11
 90 PUSH LOCAL|2
 91 POP LOCAL|13
 92 SET-NIL LOCAL|12
 93 SET-NIL LOCAL|14
 94 SET-NIL LOCAL|15
 95 MOVE D-IGNORE LOCAL|13
 96 BR-NIL 124
 97 CAR D-PDL LOCAL|13
 98 POP LOCAL|12
 99 SETE-CDR LOCAL|13
100 CAR D-PDL LOCAL|7
101 CDR D-PDL LOCAL|7
102 BR-NOT-NIL-POP 104
103 PUSH LOCAL|7
104 POP LOCAL|7
105 POP LOCAL|14
106 CALL D-PDL FEF|15  ;'NIL
107 MOVE D-LAST LOCAL|12
108 POP LOCAL|15
109 PUSH ARG|1
110 EQ FEF|16  ;'<:ALL>
111 BR-NOT-NIL 116
112 PUSH LOCAL|15
113 PUSH ARG|1
114 (MISC) MEMBER D-IGNORE
115 BR-NIL 95
116 PUSH LOCAL|11
117 CALL D-PDL FEF|17  ;'NIL
118 PUSH LOCAL|14
119 MOVE D-LAST LOCAL|15
120 (MISC) NCONS D-PDL
121 MOVEM LOCAL|11
122 (MISC) RPLACD D-IGNORE
123 BR 95
124 PUSH LOCAL|10
125 (MISC) RPLACD D-PDL
126 CDR D-IGNORE PDL-POP
127 BR-NIL 77
128 CDR D-PDL LOCAL|6
129 (MISC) LAST D-PDL
130 POP LOCAL|6
131 BR 77
132 MOVE D-RETURN LOCAL|5
133 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5081] {#<DTP-FEF-POINTER <TRANSFORMATION-SOURCE-FILES> 52302752>}
  (SYSTEM:FASL-OP-INDEX [5027] {<TRANSFORMATION-SOURCE-FILES>}))

(SYSTEM:FASL-OP-FRAME
<SET-SYSTEM-SOURCE-FILE>
 34 PUSH ARG|0
 35 (MISC) STRINGP D-IGNORE
 36 BR-NIL 42
 37 CALL D-PDL FEF|8  ;'NIL
 38 CALL D-PDL FEF|9  ;'NIL
 39 MOVE D-LAST ARG|0
 40 MOVE D-LAST FEF|7  ;':PKG-KEYWORD-PACKAGE
 41 POP ARG|0
 42 CALL D-PDL FEF|10  ;':FS
 43 MOVE D-LAST ARG|1
 44 CALL D-PDL PDL-POP
 45 MOVE D-LAST FEF|11  ;'<:GENERIC-PATHNAME>
 46 BIND-POP FEF|6  ;':FDEFINE-FILE-PATHNAME
 47 CALL D-IGNORE FEF|12  ;'NIL
 48 PUSH ARG|0
 49 MOVE D-LAST FEF|13  ;'<DEFSYSTEM>
 50 CALL D-PDL FEF|14  ;'NIL
 51 PUSH ARG|0
 52 PUSH 'T
 53 MOVE D-LAST 'T
 54 BR-NOT-NIL-POP 57
 55 CALL D-RETURN FEF|15  ;'NIL
 56 MOVE D-LAST ARG|0
 57 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5099] {#<DTP-FEF-POINTER <SET-SYSTEM-SOURCE-FILE> 52303746>}
  (SYSTEM:FASL-OP-INDEX [5084] {<SET-SYSTEM-SOURCE-FILE>}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:NO-RELOAD-SYSTEM-DECLARATION> <MAKE-SYSTEM-KEYWORD>)
 14 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5110] {#<DTP-FEF-POINTER (<:PROPERTY> <:NO-RELOAD-SYSTEM-DECLARATION> <MAKE-SYSTEM-KEYWORD>) 52304477>}
  (SYSTEM:FASL-OP-INDEX [5104] {(<:PROPERTY> <:NO-RELOAD-SYSTEM-DECLARATION> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-FRAME
<MAYBE-RELOAD-SYSTEM-DECLARATION>
 38 CALL D-PDL FEF|9  ;'NIL
 39 PUSH ARG|0
 40 PUSH 'T
 41 MOVE D-LAST 'T
 42 POP LOCAL|1
 43 BR-NIL 49
 44 CALL D-PDL FEF|10  ;'NIL
 45 PUSH LOCAL|1
 46 AR-1 (6) D-PDL
 47 MOVE D-LAST FEF|11  ;'<:SYMBOLIC-NAME>
 48 POP ARG|0
 49 PUSH FEF|12  ;'<:NO-RELOAD-SYSTEM-DECLARATION>
 50 PUSH ARG|1
 51 (MISC) MEMQ D-PDL
 52 (MISC) NOT D-PDL
 53 BR-NIL-POP 78
 54 PUSH ARG|0
 55 (MISC) STRINGP D-PDL
 56 (MISC) NOT D-PDL
 57 BR-NIL-POP 78
 58 CALL D-PDL FEF|13  ;'NIL
 59 PUSH ARG|0
 60 MOVE D-LAST FEF|14  ;'<DEFSYSTEM>
 61 MOVEM LOCAL|0
 62 BR-NIL-POP 78
 63 CALL D-PDL LOCAL|0
 64 MOVE D-LAST FEF|15  ;'<:TYPE>
 65 PUSH FEF|16  ;'<:UNSPECIFIC>
 66 (MISC) M-EQ D-PDL
 67 BR-NIL-POP 78
 68 PUSH LOCAL|0
 69 PUSH FEF|8  ;':FDEFINE-FILE-PATHNAME
 70 (MISC) M-EQ D-PDL
 71 (MISC) NOT D-PDL
 72 BR-NIL-POP 78
 73 PUSH FEF|7  ;':*QUERY-IO*
 74 BIND-POP FEF|6  ;':*STANDARD-OUTPUT*
 75 CALL D-RETURN FEF|17  ;'NIL
 76 PUSH LOCAL|0
 77 MOVE D-LAST ARG|1
 78 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5129] {#<DTP-FEF-POINTER <MAYBE-RELOAD-SYSTEM-DECLARATION> 52304641>}
  (SYSTEM:FASL-OP-INDEX [2393] {<MAYBE-RELOAD-SYSTEM-DECLARATION>}))

(SYSTEM:FASL-OP-FRAME
<MAYBE-RELOAD-FILE>
 56 CALL D-PDL ARG|0
 57 PUSH FEF|6  ;'<:GET>
 58 MOVE D-LAST FEF|7  ;'<MAYBE-RELOAD-SYSTEM>
 59 POP LOCAL|0
 60 BR-NOT-NIL 111
 61 CALL D-PDL ARG|0
 62 MOVE D-LAST FEF|8  ;'<:SOURCE-PATHNAME>
 63 POP LOCAL|1
 64 CALL D-PDL ARG|0
 65 PUSH FEF|9  ;'<:NEW-PATHNAME>
 66 PUSH FEF|10  ;'<:TYPE>
 67 PUSH FEF|11  ;'<:QFASL>
 68 PUSH FEF|12  ;'<:VERSION>
 69 MOVE D-LAST FEF|13  ;'<:NEWEST>
 70 POP LOCAL|2
 71 CALL D-IGNORE LOCAL|2
 72 PUSH FEF|6  ;'<:GET>
 73 MOVE D-LAST FEF|14  ;'<:FILE-ID-PACKAGE-ALIST>
 74 BR-NIL 77
 75 PUSH 'T
 76 BR 87
 77 CALL D-IGNORE LOCAL|1
 78 PUSH FEF|6  ;'<:GET>
 79 MOVE D-LAST FEF|14  ;'<:FILE-ID-PACKAGE-ALIST>
 80 BR-NOT-NIL 86
 81 CALL D-IGNORE FEF|15  ;'NIL
 82 MOVE D-LAST LOCAL|2
 83 BR-NIL 86
 84 PUSH 'T
 85 BR 87
 86 PUSH 'NIL
 87 POP LOCAL|3
 88 CALL0 D-PDL FEF|16  ;'NIL
 89 POP LOCAL|0
 90 CALL D-IGNORE FEF|17  ;'NIL
 91 PUSH LOCAL|0
 92 MOVE D-IGNORE LOCAL|3
 93 BR-NIL 96
 94 PUSH FEF|18  ;'<:COMPILE-LOAD>
 95 BR 97
 96 PUSH FEF|19  ;'<:READFILE>
 97 CALL D-PDL FEF|20  ;'NIL
 98 MOVE D-LAST ARG|0
 99 PUSH-NUMBER 1
100 (MISC) %INTERNAL-LIST D-PDL
101 PUSH-NUMBER 2
102 (MISC) %INTERNAL-LIST D-PDL
103 PUSH-NUMBER 1
104 (MISC) %INTERNAL-LIST D-PDL
105 PUSH 'T
106 MOVE D-LAST 'NIL
107 CALL D-IGNORE ARG|0
108 PUSH FEF|21  ;'<:PUTPROP>
109 PUSH LOCAL|0
110 MOVE D-LAST FEF|7  ;'<MAYBE-RELOAD-SYSTEM>
111 CALL D-RETURN FEF|22  ;'<MAKE-SYSTEM>
112 PUSH LOCAL|0
113 PUSH-ADDRESS LOCAL|4
114 POP LOCAL|5
115 PUSH ARG|1
116 POP LOCAL|7
117 MOVE D-IGNORE LOCAL|7
118 BR-NIL 139
119 CAR D-PDL LOCAL|7
120 POP LOCAL|6
121 SETE-CDR LOCAL|7
122 PUSH LOCAL|6
123 PUSH FEF|23  ;'(<:BATCH> <:DEFAULTED-BATCH>)
124 (MISC) MEMQ D-IGNORE
125 BR-NIL 129
126 PUSH LOCAL|5
127 PUSH FEF|24  ;'<:NOWARN>
128 BR 135
129 PUSH LOCAL|6
130 PUSH FEF|25  ;'(<:NOLOAD> <:RELOAD> <:RECOMPILE> <:PRINT-ONLY>)
131 (MISC) MEMQ D-IGNORE
132 BR-NOT-NIL 117
133 PUSH LOCAL|5
134 PUSH LOCAL|6
135 (MISC) NCONS D-PDL
136 MOVEM LOCAL|5
137 (MISC) RPLACD D-IGNORE
138 BR 117
139 PUSH LOCAL|4
140 PUSH FEF|26  ;'(<:COMPILE> <:NO-RELOAD-SYSTEM-DECLARATION>)
141 (MISC) %INTERNAL-NCONC-2 D-PDL
142 (MISC) %SPREAD D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5159] {#<DTP-FEF-POINTER <MAYBE-RELOAD-FILE> 52306266>}
  (SYSTEM:FASL-OP-INDEX [5116] {<MAYBE-RELOAD-FILE>}))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-PATCH-DIRECTORY>
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '2
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '1
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH FEF|7  ;'<GETF>
 37 PUSH FEF|8  ;'<SYSTEM-PLIST>
 38 PUSH LOCAL|0
 39 PUSH-NUMBER 2
 40 (MISC) %INTERNAL-LIST D-PDL
 41 PUSH FEF|9  ;'(<:PATCH-DIRECTORY>)
 42 PUSH-NUMBER 3
 43 (MISC) %INTERNAL-LIST* D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [5183] {#<DTP-FEF-POINTER <SYSTEM-PATCH-DIRECTORY> 52307431>})
 => (<MACRO> . #<DTP-FEF-POINTER <SYSTEM-PATCH-DIRECTORY> 52307431>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5184] {(<MACRO> . #<DTP-FEF-POINTER <SYSTEM-PATCH-DIRECTORY> 52307431>)}
  (SYSTEM:FASL-OP-INDEX [1629] {<SYSTEM-PATCH-DIRECTORY>}))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-PATCHABLE-P>
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '2
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '1
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH FEF|7  ;'<NOT>
 37 PUSH FEF|8  ;'<NULL>
 38 PUSH FEF|9  ;'<SYSTEM-PATCH-DIRECTORY>
 39 PUSH LOCAL|0
 40 PUSH-NUMBER 2
 41 (MISC) %INTERNAL-LIST D-PDL
 42 PUSH-NUMBER 2
 43 (MISC) %INTERNAL-LIST D-PDL
 44 PUSH-NUMBER 2
 45 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [5209] {#<DTP-FEF-POINTER <SYSTEM-PATCHABLE-P> 52310016>})
 => (<MACRO> . #<DTP-FEF-POINTER <SYSTEM-PATCHABLE-P> 52310016>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5210] {(<MACRO> . #<DTP-FEF-POINTER <SYSTEM-PATCHABLE-P> 52310016>)}
  (SYSTEM:FASL-OP-INDEX [1630] {<SYSTEM-PATCHABLE-P>}))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-PATCHABLE-SUPERSYSTEM>
 28 CALL D-PDL FEF|7  ;'NIL
 29 MOVE D-LAST ARG|0
 30 CALL D-PDL FEF|7  ;'NIL
 31 MOVE D-LAST FEF|8  ;'<SYSTEM>
 32 POP LOCAL|1
 33 POP LOCAL|0
 34 CALL D-IGNORE FEF|9  ;'NIL
 35 PUSH LOCAL|0
 36 AR-1 (6) D-PDL
 37 MOVE D-LAST FEF|10  ;'<:PATCH-DIRECTORY>
 38 BR-NIL 40
 39 MOVE D-RETURN LOCAL|0
 40 PUSH FEF|6  ;':*SYSTEMS-LIST*
 41 POP LOCAL|2
 42 BR-NIL 67
 43 CAR D-PDL LOCAL|2
 44 POP LOCAL|3
 45 CALL D-PDL FEF|7  ;'NIL
 46 PUSH LOCAL|3
 47 PUSH 'T
 48 MOVE D-LAST 'T
 49 POP LOCAL|4
 50 BR-NIL 65
 51 PUSH LOCAL|4
 52 EQ LOCAL|1
 53 BR-NOT-NIL 65
 54 CALL D-IGNORE FEF|11  ;'NIL
 55 PUSH LOCAL|0
 56 MOVE D-LAST LOCAL|4
 57 BR-NIL 65
 58 CALL D-PDL FEF|12  ;'NIL
 59 MOVE D-LAST LOCAL|4
 60 MOVEM LOCAL|5
 61 EQ LOCAL|1
 62 BR-NOT-NIL 65
 63 PUSH LOCAL|5
 64 BR 68
 65 SETE-CDR LOCAL|2
 66 BR-NOT-NIL 43
 67 PUSH 'NIL
 68 BR-NOT-NIL-POP 70
 69 MOVE D-RETURN LOCAL|1
 70 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5238] {#<DTP-FEF-POINTER <SYSTEM-PATCHABLE-SUPERSYSTEM> 52310521>}
  (SYSTEM:FASL-OP-INDEX [5213] {<SYSTEM-PATCHABLE-SUPERSYSTEM>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <PATCH-DIRECTORY-PATCH-ATOM>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-SYMBOL <PATCH-DIRECTORY>)
      (SYSTEM:FASL-OP-SYMBOL <PATCH-ATOM>)
     => (<PATCH-DIRECTORY> . <PATCH-ATOM>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <PATCH-DIRECTORY-PATCH-ATOM> (<PATCH-DIRECTORY> . <PATCH-ATOM>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <PATCH-DIRECTORY-PATCH-ATOM> (<PATCH-DIRECTORY> . <PATCH-ATOM>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<PATCH-DIRECTORY-PATCH-ATOM>
 14 PUSH ARG|0
 15 (MISC) CADDDR D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5265] {#<DTP-FEF-POINTER <PATCH-DIRECTORY-PATCH-ATOM> 52312650>}
  (SYSTEM:FASL-OP-INDEX [5239] {<PATCH-DIRECTORY-PATCH-ATOM>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <PATCH-DIRECTORY-INITIAL-STATUS>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [5240] {<PATCH-DIRECTORY>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "INITIAL-STATUS")
        <:INITIAL-STATUS>)
     => (<PATCH-DIRECTORY> . <:INITIAL-STATUS>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <PATCH-DIRECTORY-INITIAL-STATUS> (<PATCH-DIRECTORY> . <:INITIAL-STATUS>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <PATCH-DIRECTORY-INITIAL-STATUS> (<PATCH-DIRECTORY> . <:INITIAL-STATUS>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<PATCH-DIRECTORY-INITIAL-STATUS>
 14 PUSH ARG|0
 15 (MISC) CADDR D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5292] {#<DTP-FEF-POINTER <PATCH-DIRECTORY-INITIAL-STATUS> 52313355>}
  (SYSTEM:FASL-OP-INDEX [5266] {<PATCH-DIRECTORY-INITIAL-STATUS>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <PATCH-DIRECTORY-SAME-DIRECTORY-P>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [5240] {<PATCH-DIRECTORY>})
      (SYSTEM:FASL-OP-SYMBOL <SAME-DIRECTORY-P>)
     => (<PATCH-DIRECTORY> . <SAME-DIRECTORY-P>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <PATCH-DIRECTORY-SAME-DIRECTORY-P> (<PATCH-DIRECTORY> . <SAME-DIRECTORY-P>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <PATCH-DIRECTORY-SAME-DIRECTORY-P> (<PATCH-DIRECTORY> . <SAME-DIRECTORY-P>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<PATCH-DIRECTORY-SAME-DIRECTORY-P>
 14 CADR D-RETURN ARG|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5318] {#<DTP-FEF-POINTER <PATCH-DIRECTORY-SAME-DIRECTORY-P> 52314140>}
  (SYSTEM:FASL-OP-INDEX [5293] {<PATCH-DIRECTORY-SAME-DIRECTORY-P>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [96] {<DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <PATCH-DIRECTORY-PATHNAME>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
      (SYSTEM:FASL-OP-INDEX [5240] {<PATCH-DIRECTORY>})
      (SYSTEM:FASL-OP-INDEX [1586] {<PATHNAME>})
     => (<PATCH-DIRECTORY> . <PATHNAME>))
    (SYSTEM:FASL-OP-INDEX [225] {<DEFSTRUCT-SLOT>})
   => (<DEFPROP> <PATCH-DIRECTORY-PATHNAME> (<PATCH-DIRECTORY> . <PATHNAME>) <DEFSTRUCT-SLOT>))
  (EVAL '(<DEFPROP> <PATCH-DIRECTORY-PATHNAME> (<PATCH-DIRECTORY> . <PATHNAME>) <DEFSTRUCT-SLOT>)))

(SYSTEM:FASL-OP-FRAME
<PATCH-DIRECTORY-PATHNAME>
 14 CAR D-RETURN ARG|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5343] {#<DTP-FEF-POINTER <PATCH-DIRECTORY-PATHNAME> 52316624>}
  (SYSTEM:FASL-OP-INDEX [5319] {<PATCH-DIRECTORY-PATHNAME>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [390] {<PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [5240] {<PATCH-DIRECTORY>})
     => (<GLOBAL:QUOTE> <PATCH-DIRECTORY>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [24] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [392] {<ONE>})
        (SYSTEM:FASL-OP-INDEX [1022] {<:LIST>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [1586] {<PATHNAME>})
            (SYSTEM:FASL-OP-FIXED 0)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [400] {<%%DEFSTRUCT-EMPTY%%>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [5319] {<PATCH-DIRECTORY-PATHNAME>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<PATHNAME> 0 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <PATCH-DIRECTORY-PATHNAME> <NIL> <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [5294] {<SAME-DIRECTORY-P>})
            (SYSTEM:FASL-OP-FIXED 1)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [400] {<%%DEFSTRUCT-EMPTY%%>})
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [5293] {<PATCH-DIRECTORY-SAME-DIRECTORY-P>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<SAME-DIRECTORY-P> 1 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <PATCH-DIRECTORY-SAME-DIRECTORY-P> <NIL> <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [5268] {<:INITIAL-STATUS>})
            (SYSTEM:FASL-OP-FIXED 2)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-PACKAGE-SYMBOL
              (SYSTEM:FASL-OP-INDEX [32] {""})
              (SYSTEM:FASL-OP-STRING "EXPERIMENTAL")
              <:EXPERIMENTAL>)
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [5266] {<PATCH-DIRECTORY-INITIAL-STATUS>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<:INITIAL-STATUS> 2 <NIL> <:EXPERIMENTAL> <GLOBAL:T> <NIL> <PATCH-DIRECTORY-INITIAL-STATUS> <NIL> <NIL> <NIL>))
          (SYSTEM:FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [5241] {<PATCH-ATOM>})
            (SYSTEM:FASL-OP-FIXED 3)
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-STRING "PATCH")
            (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [5239] {<PATCH-DIRECTORY-PATCH-ATOM>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
            (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
           => (<PATCH-ATOM> 3 <NIL> "PATCH" <GLOBAL:T> <NIL> <PATCH-DIRECTORY-PATCH-ATOM> <NIL> <NIL> <NIL>))
         => ((<PATHNAME> 0 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <PATCH-DIRECTORY-PATHNAME> <NIL> <NIL> <NIL>) (<SAME-DIRECTORY-P> 1 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <PATCH-DIRECTORY-SAME-DIRECTORY-P> <NIL> <NIL> <NIL>) (<:INITIAL-STATUS> 2 <NIL> <:EXPERIMENTAL> <GLOBAL:T> <NIL> <PATCH-DIRECTORY-INITIAL-STATUS> <NIL> <NIL> <NIL>) (<PATCH-ATOM> 3 <NIL> "PATCH" <GLOBAL:T> <NIL> <PATCH-DIRECTORY-PATCH-ATOM> <NIL> <NIL> <NIL>)))
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-SYMBOL <MAKE-PATCH-DIRECTORY>)
           => (<MAKE-PATCH-DIRECTORY>))
         => ((<MAKE-PATCH-DIRECTORY>)))
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-FIXED 4)
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [5240] {<PATCH-DIRECTORY>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-FIXED 0)
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-SYMBOL <PATCH-DIRECTORY->)
        (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
        (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
       => (<ONE> <:LIST> <NIL> ((<PATHNAME> 0 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <PATCH-DIRECTORY-PATHNAME> <NIL> <NIL> <NIL>) (<SAME-DIRECTORY-P> 1 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <PATCH-DIRECTORY-SAME-DIRECTORY-P> <NIL> <NIL> <NIL>) (<:INITIAL-STATUS> 2 <NIL> <:EXPERIMENTAL> <GLOBAL:T> <NIL> <PATCH-DIRECTORY-INITIAL-STATUS> <NIL> <NIL> <NIL>) (<PATCH-ATOM> 3 <NIL> "PATCH" <GLOBAL:T> <NIL> <PATCH-DIRECTORY-PATCH-ATOM> <NIL> <NIL> <NIL>)) <NIL> ((<MAKE-PATCH-DIRECTORY>)) <NIL> <NIL> 4 <NIL> <PATCH-DIRECTORY> <NIL> 0 <NIL> <NIL> <PATCH-DIRECTORY-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL>))
     => (<GLOBAL:QUOTE> (<ONE> <:LIST> <NIL> ((<PATHNAME> 0 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <PATCH-DIRECTORY-PATHNAME> <NIL> <NIL> <NIL>) (<SAME-DIRECTORY-P> 1 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <PATCH-DIRECTORY-SAME-DIRECTORY-P> <NIL> <NIL> <NIL>) (<:INITIAL-STATUS> 2 <NIL> <:EXPERIMENTAL> <GLOBAL:T> <NIL> <PATCH-DIRECTORY-INITIAL-STATUS> <NIL> <NIL> <NIL>) (<PATCH-ATOM> 3 <NIL> "PATCH" <GLOBAL:T> <NIL> <PATCH-DIRECTORY-PATCH-ATOM> <NIL> <NIL> <NIL>)) <NIL> ((<MAKE-PATCH-DIRECTORY>)) <NIL> <NIL> 4 <NIL> <PATCH-DIRECTORY> <NIL> 0 <NIL> <NIL> <PATCH-DIRECTORY-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [418] {<DEFSTRUCT-DESCRIPTION>})
     => (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>))
   => (<PUTPROP> (<GLOBAL:QUOTE> <PATCH-DIRECTORY>) (<GLOBAL:QUOTE> (<ONE> <:LIST> <NIL> ((<PATHNAME> 0 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <PATCH-DIRECTORY-PATHNAME> <NIL> <NIL> <NIL>) (<SAME-DIRECTORY-P> 1 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <PATCH-DIRECTORY-SAME-DIRECTORY-P> <NIL> <NIL> <NIL>) (<:INITIAL-STATUS> 2 <NIL> <:EXPERIMENTAL> <GLOBAL:T> <NIL> <PATCH-DIRECTORY-INITIAL-STATUS> <NIL> <NIL> <NIL>) (<PATCH-ATOM> 3 <NIL> "PATCH" <GLOBAL:T> <NIL> <PATCH-DIRECTORY-PATCH-ATOM> <NIL> <NIL> <NIL>)) <NIL> ((<MAKE-PATCH-DIRECTORY>)) <NIL> <NIL> 4 <NIL> <PATCH-DIRECTORY> <NIL> 0 <NIL> <NIL> <PATCH-DIRECTORY-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL>)) (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>)))
  (EVAL '(<PUTPROP> (<GLOBAL:QUOTE> <PATCH-DIRECTORY>) (<GLOBAL:QUOTE> (<ONE> <:LIST> <NIL> ((<PATHNAME> 0 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <PATCH-DIRECTORY-PATHNAME> <NIL> <NIL> <NIL>) (<SAME-DIRECTORY-P> 1 <NIL> <%%DEFSTRUCT-EMPTY%%> <GLOBAL:T> <NIL> <PATCH-DIRECTORY-SAME-DIRECTORY-P> <NIL> <NIL> <NIL>) (<:INITIAL-STATUS> 2 <NIL> <:EXPERIMENTAL> <GLOBAL:T> <NIL> <PATCH-DIRECTORY-INITIAL-STATUS> <NIL> <NIL> <NIL>) (<PATCH-ATOM> 3 <NIL> "PATCH" <GLOBAL:T> <NIL> <PATCH-DIRECTORY-PATCH-ATOM> <NIL> <NIL> <NIL>)) <NIL> ((<MAKE-PATCH-DIRECTORY>)) <NIL> <NIL> 4 <NIL> <PATCH-DIRECTORY> <NIL> 0 <NIL> <NIL> <PATCH-DIRECTORY-> <GLOBAL:T> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL> <NIL>)) (<GLOBAL:QUOTE> <DEFSTRUCT-DESCRIPTION>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [390] {<PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [5357] {<MAKE-PATCH-DIRECTORY>})
     => (<GLOBAL:QUOTE> <MAKE-PATCH-DIRECTORY>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [5240] {<PATCH-DIRECTORY>})
     => (<GLOBAL:QUOTE> <PATCH-DIRECTORY>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [424] {<DEFSTRUCT-NAME>})
     => (<GLOBAL:QUOTE> <DEFSTRUCT-NAME>))
   => (<PUTPROP> (<GLOBAL:QUOTE> <MAKE-PATCH-DIRECTORY>) (<GLOBAL:QUOTE> <PATCH-DIRECTORY>) (<GLOBAL:QUOTE> <DEFSTRUCT-NAME>)))
  (EVAL '(<PUTPROP> (<GLOBAL:QUOTE> <MAKE-PATCH-DIRECTORY>) (<GLOBAL:QUOTE> <PATCH-DIRECTORY>) (<GLOBAL:QUOTE> <DEFSTRUCT-NAME>))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [428] {<DEFF-MACRO>})
    (SYSTEM:FASL-OP-INDEX [5357] {<MAKE-PATCH-DIRECTORY>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [430] {(<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>)})
     => (<GLOBAL:QUOTE> (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>)))
   => (<DEFF-MACRO> <MAKE-PATCH-DIRECTORY> (<GLOBAL:QUOTE> (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>))))
  (EVAL '(<DEFF-MACRO> <MAKE-PATCH-DIRECTORY> (<GLOBAL:QUOTE> (<MACRO> . <DEFSTRUCT-EXPAND-CONS-MACRO>)))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [434] {<RECORD-SOURCE-FILE-NAME>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [5240] {<PATCH-DIRECTORY>})
     => (<GLOBAL:QUOTE> <PATCH-DIRECTORY>))
    (SYSTEM:FASL-OP-INDEX [437] {(<GLOBAL:QUOTE> <DEFSTRUCT>)})
   => (<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <PATCH-DIRECTORY>) (<GLOBAL:QUOTE> <DEFSTRUCT>)))
  (EVAL '(<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <PATCH-DIRECTORY>) (<GLOBAL:QUOTE> <DEFSTRUCT>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:PATCHABLE> <DEFSYSTEM-MACRO>)
 52 PUSH ARG|0
 53 (MISC) LENGTH D-PDL
 54 > '3
 55 BR-NIL 60
 56 CALL D-IGNORE FEF|9  ;'NIL
 57 PUSH ARG|0
 58 PUSH-NUMBER 0
 59 MOVE D-LAST '2
 60 CADR D-PDL ARG|0
 61 POP LOCAL|0
 62 PUSH ARG|0
 63 (MISC) CADDR D-PDL
 64 POP LOCAL|1
 65 CALL D-PDL FEF|10  ;':FS
 66 MOVE D-LAST FEF|8  ;':*SYSTEM-PATHNAME-DEFAULT*
 67 POP LOCAL|2
 68 MOVE D-IGNORE LOCAL|0
 69 BR-NIL 74
 70 CALL D-PDL FEF|11  ;':FS
 71 PUSH LOCAL|0
 72 MOVE D-LAST FEF|8  ;':*SYSTEM-PATHNAME-DEFAULT*
 73 BR 79
 74 PUSH LOCAL|2
 75 BR-NOT-NIL-POP 79
 76 CALL D-PDL FEF|12  ;'NIL
 77 PUSH 'NIL
 78 MOVE D-LAST FEF|13  ;'"Patch directory pathname not specified in patchable DEFSYSTEM"
 79 POP LOCAL|0
 80 CALL D-PDL LOCAL|0
 81 PUSH FEF|14  ;'<:NEW-PATHNAME>
 82 PUSH FEF|15  ;'<:NAME>
 83 PUSH FEF|16  ;'<:UNSPECIFIC>
 84 PUSH FEF|17  ;'<:TYPE>
 85 PUSH FEF|16  ;'<:UNSPECIFIC>
 86 PUSH FEF|18  ;'<:VERSION>
 87 MOVE D-LAST FEF|16  ;'<:UNSPECIFIC>
 88 MOVEM LOCAL|0
 89 PUSH FEF|7  ;':*SYSTEM-PATHNAME-DEFAULT-SPECIFIED*
 90 BR-NIL-POP 110
 91 PUSH LOCAL|1
 92 BR-NOT-NIL-POP 110
 93 CALL D-PDL LOCAL|0
 94 MOVE D-LAST FEF|19  ;'<:HOST>
 95 CALL D-PDL LOCAL|2
 96 MOVE D-LAST FEF|19  ;'<:HOST>
 97 (MISC) EQUAL D-PDL
 98 BR-NIL-POP 110
 99 CALL D-PDL LOCAL|0
100 MOVE D-LAST FEF|20  ;'<:DEVICE>
101 CALL D-PDL LOCAL|2
102 MOVE D-LAST FEF|20  ;'<:DEVICE>
103 (MISC) EQUAL D-PDL
104 BR-NIL-POP 110
105 CALL D-PDL LOCAL|0
106 MOVE D-LAST FEF|21  ;'<:DIRECTORY>
107 CALL D-PDL LOCAL|2
108 MOVE D-LAST FEF|21  ;'<:DIRECTORY>
109 (MISC) EQUAL D-PDL
110 PUSH FEF|22  ;'<:EXPERIMENTAL>
111 PUSH FEF|23  ;'"PATCH"
112 PUSH-NUMBER 4
113 (MISC) %INTERNAL-LIST D-PDL
114 POP LOCAL|3
115 MOVE D-IGNORE LOCAL|1
116 BR-NIL 121
117 PUSH LOCAL|3
118 (MISC) CDDDR D-PDL
119 PUSH LOCAL|1
120 (MISC) SETCAR D-IGNORE
121 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
122 AR-1 (6) D-PDL
123 MOVEM LOCAL|4
124 POP LOCAL|5
125 BR-NIL 135
126 CAR D-PDL LOCAL|5
127 EQ FEF|24  ;'<:PATCH-DIRECTORY>
128 BR-NIL 133
129 CDR D-PDL LOCAL|5
130 PUSH LOCAL|3
131 (MISC) SETCAR D-IGNORE
132 MOVE D-RETURN 'NIL
133 SETE-CDDR LOCAL|5
134 BR-NOT-NIL 126
135 PUSH FEF|24  ;'<:PATCH-DIRECTORY>
136 PUSH LOCAL|3
137 PUSH LOCAL|4
138 PUSH-NUMBER 3
139 (MISC) %INTERNAL-LIST* D-PDL
140 POP LOCAL|4
141 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
142 PUSH LOCAL|4
143 SET-AR-1 (6) D-IGNORE
144 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [5412] {#<DTP-FEF-POINTER (<:PROPERTY> <:PATCHABLE> <DEFSYSTEM-MACRO>) 52324624>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:PATCHABLE> <DEFSYSTEM-MACRO>) 52324624>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5413] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:PATCHABLE> <DEFSYSTEM-MACRO>) 52324624>)}
  (SYSTEM:FASL-OP-INDEX [5383] {(<:PROPERTY> <:PATCHABLE> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
<PATCH-SYSTEM-PATHNAME>
 28 CALL D-PDL FEF|6  ;'NIL
 29 CALL D-PDL FEF|7  ;'NIL
 30 MOVE D-LAST ARG|0
 31 AR-1 (6) D-PDL
 32 MOVE D-LAST FEF|8  ;'<:PATCH-DIRECTORY>
 33 POP LOCAL|1
 34 BR-NOT-NIL 39
 35 CALL D-IGNORE FEF|9  ;'NIL
 36 PUSH 'NIL
 37 PUSH FEF|10  ;'"System ~A not patchable"
 38 MOVE D-LAST ARG|0
 39 CAR D-PDL LOCAL|1
 40 CALL D-RETURN PDL-POP
 41 PUSH FEF|11  ;'<:PATCH-FILE-PATHNAME>
 42 CALL D-PDL FEF|12  ;'NIL
 43 MOVE D-LAST ARG|0
 44 CADR D-PDL LOCAL|1
 45 PUSH LOCAL|1
 46 (MISC) CADDDR D-PDL
 47 PUSH ARG|1
 48 PUSH LOCAL|0
 49 (MISC) %SPREAD D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5437] {#<DTP-FEF-POINTER <PATCH-SYSTEM-PATHNAME> 52331644>}
  (SYSTEM:FASL-OP-INDEX [5416] {<PATCH-SYSTEM-PATHNAME>}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <PATCHABLE-INTERNAL> <DEFSYSTEM-MACRO>)
 20 PUSH ARG|0
 21 (MISC) LENGTH D-PDL
 22 > '2
 23 BR-NIL 28
 24 CALL D-IGNORE FEF|6  ;'NIL
 25 PUSH ARG|0
 26 PUSH-NUMBER 0
 27 MOVE D-LAST '1
 28 CADR D-PDL ARG|0
 29 POP LOCAL|0
 30 PUSH FEF|7  ;'<INCREMENT-LOADED-VERSION>
 31 PUSH FEF|8  ;'<INCREMENT-COMPILED-VERSION>
 32 PUSH 'NIL
 33 PUSH LOCAL|0
 34 PUSH-NUMBER 3
 35 (MISC) %INTERNAL-LIST D-PDL
 36 PUSH-NUMBER 2
 37 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [5459] {#<DTP-FEF-POINTER (<:PROPERTY> <PATCHABLE-INTERNAL> <DEFSYSTEM-MACRO>) 52332303>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <PATCHABLE-INTERNAL> <DEFSYSTEM-MACRO>) 52332303>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5460] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <PATCHABLE-INTERNAL> <DEFSYSTEM-MACRO>) 52332303>)}
  (SYSTEM:FASL-OP-INDEX [5440] {(<:PROPERTY> <PATCHABLE-INTERNAL> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:INITIAL-STATUS> <DEFSYSTEM-MACRO>)
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 < '2
 29 BR-NOT-NIL 34
 30 PUSH ARG|0
 31 (MISC) LENGTH D-PDL
 32 > '2
 33 BR-NIL 38
 34 CALL D-IGNORE FEF|7  ;'NIL
 35 PUSH ARG|0
 36 PUSH-NUMBER 1
 37 MOVE D-LAST '1
 38 CADR D-PDL ARG|0
 39 POP LOCAL|0
 40 CALL D-PDL FEF|8  ;'NIL
 41 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 42 AR-1 (6) D-PDL
 43 MOVE D-LAST FEF|9  ;'<:PATCH-DIRECTORY>
 44 POP LOCAL|1
 45 BR-NOT-NIL 50
 46 CALL D-IGNORE FEF|10  ;'NIL
 47 PUSH 'NIL
 48 PUSH FEF|11  ;'"~S not patchable"
 49 MOVE D-LAST FEF|6  ;':*SYSTEM-BEING-DEFINED*
 50 CDDR D-PDL LOCAL|1
 51 PUSH LOCAL|0
 52 (MISC) SETCAR D-IGNORE
 53 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [5484] {#<DTP-FEF-POINTER (<:PROPERTY> <:INITIAL-STATUS> <DEFSYSTEM-MACRO>) 52334567>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:INITIAL-STATUS> <DEFSYSTEM-MACRO>) 52334567>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5485] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:INITIAL-STATUS> <DEFSYSTEM-MACRO>) 52334567>)}
  (SYSTEM:FASL-OP-INDEX [5463] {(<:PROPERTY> <:INITIAL-STATUS> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [3634] {<ADD-SIMPLE-TRANSFORMATION>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [3244] {<INCREMENT-LOADED-VERSION>})
     => (<GLOBAL:QUOTE> <INCREMENT-LOADED-VERSION>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <INCREMENT-LOADED-VERSION-1>)
     => (<GLOBAL:QUOTE> <INCREMENT-LOADED-VERSION-1>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-STRING "Make ~A patchable")
        (SYSTEM:FASL-OP-STRING "Making ~A patchable")
        (SYSTEM:FASL-OP-STRING "~A made patchable")
       => ("Make ~A patchable" "Making ~A patchable" "~A made patchable"))
     => (<GLOBAL:QUOTE> ("Make ~A patchable" "Making ~A patchable" "~A made patchable")))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
     => (<GLOBAL:QUOTE> <GLOBAL:T>))
   => (<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <INCREMENT-LOADED-VERSION>) (<GLOBAL:QUOTE> <INCREMENT-LOADED-VERSION-1>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> ("Make ~A patchable" "Making ~A patchable" "~A made patchable")) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <GLOBAL:T>)))
  (EVAL '(<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <INCREMENT-LOADED-VERSION>) (<GLOBAL:QUOTE> <INCREMENT-LOADED-VERSION-1>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> ("Make ~A patchable" "Making ~A patchable" "~A made patchable")) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <GLOBAL:T>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <INCREMENT-LOADED-VERSION> <DEFSYSTEM-MACRO>)
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '4
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '3
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH ARG|0
 37 (MISC) CADDR D-PDL
 38 POP LOCAL|1
 39 PUSH ARG|0
 40 (MISC) CADDDR D-PDL
 41 POP LOCAL|2
 42 CALL D-RETURN FEF|7  ;'NIL
 43 PUSH FEF|8  ;'<INCREMENT-LOADED-VERSION>
 44 PUSH LOCAL|0
 45 PUSH LOCAL|1
 46 PUSH LOCAL|2
 47 BR-NOT-NIL-POP 49
 48 PUSH FEF|9  ;'<PATCH-VERSION-NEWER-THAN-LOADED>
 49 MOVE D-LAST PDL-POP
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [5522] {#<DTP-FEF-POINTER (<:PROPERTY> <INCREMENT-LOADED-VERSION> <DEFSYSTEM-MACRO>) 52341237>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <INCREMENT-LOADED-VERSION> <DEFSYSTEM-MACRO>) 52341237>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5523] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <INCREMENT-LOADED-VERSION> <DEFSYSTEM-MACRO>) 52341237>)}
  (SYSTEM:FASL-OP-INDEX [5502] {(<:PROPERTY> <INCREMENT-LOADED-VERSION> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
<INCREMENT-LOADED-VERSION-1>
 42 CALL D-PDL FEF|11  ;'NIL
 43 PUSH FEF|10  ;':*SYSTEM-BEING-MADE*
 44 AR-1 (1) D-LAST
 45 POP LOCAL|0
 46 PUSH FEF|12  ;'NIL
 47 PUSH-NUMBER 2
 48 (MISC) %CALL-MULT-VALUE D-IGNORE
 49 MOVE D-LAST LOCAL|0
 50 POP LOCAL|2
 51 POP LOCAL|1
 52 PUSH LOCAL|2
 53 PUSH FEF|9  ;':SYSTEM-STATUS-ALIST
 54 (MISC) ASSQ D-PDL
 55 CADR D-PDL PDL-POP
 56 POP LOCAL|2
 57 MOVE D-IGNORE FEF|8  ;':*SILENT-P*
 58 BR-NOT-NIL 68
 59 CALL D-IGNORE FEF|13  ;'NIL
 60 PUSH 'T
 61 PUSH FEF|14  ;'"~&~A~:[ ~]~A version ~D. loaded~%"
 62 PUSH LOCAL|2
 63 PUSH LOCAL|2
 64 (MISC) ARRAY-ACTIVE-LENGTH D-PDL
 65 (MISC) ZEROP D-PDL
 66 PUSH LOCAL|0
 67 MOVE D-LAST LOCAL|1
 68 PUSH FEF|7  ;':*LOAD-PATCHES*
 69 BR-NIL-POP 95
 70 MOVE D-IGNORE FEF|8  ;':*SILENT-P*
 71 BR-NIL 79
 72 CALL D-RETURN FEF|15  ;'NIL
 73 PUSH FEF|16  ;'<:SYSTEMS>
 74 PUSH FEF|10  ;':*SYSTEM-BEING-MADE*
 75 AR-1 (1) D-PDL
 76 PUSH-NUMBER 1
 77 (MISC) %INTERNAL-LIST D-PDL
 78 MOVE D-LAST FEF|17  ;'<:SILENT>
 79 PUSH FEF|6  ;':*QUERY-TYPE*
 80 EQ FEF|18  ;'<:SELECTIVE>
 81 BR-NIL 88
 82 CALL D-RETURN FEF|15  ;'NIL
 83 PUSH FEF|16  ;'<:SYSTEMS>
 84 PUSH FEF|10  ;':*SYSTEM-BEING-MADE*
 85 AR-1 (1) D-PDL
 86 PUSH-NUMBER 1
 87 (MISC) %INTERNAL-LIST D-LAST
 88 CALL D-RETURN FEF|15  ;'NIL
 89 PUSH FEF|16  ;'<:SYSTEMS>
 90 PUSH FEF|10  ;':*SYSTEM-BEING-MADE*
 91 AR-1 (1) D-PDL
 92 PUSH-NUMBER 1
 93 (MISC) %INTERNAL-LIST D-PDL
 94 MOVE D-LAST FEF|19  ;'<:NOSELECTIVE>
 95 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5545] {#<DTP-FEF-POINTER <INCREMENT-LOADED-VERSION-1> 52342050>}
  (SYSTEM:FASL-OP-INDEX [5487] {<INCREMENT-LOADED-VERSION-1>}))

(SYSTEM:FASL-OP-FRAME
<PATCH-VERSION-NEWER-THAN-LOADED>
 20 PUSH FEF|6  ;':*SYSTEM-BEING-MADE*
 21 AR-1 (1) D-PDL
 22 POP LOCAL|0
 23 CALL D-PDL FEF|7  ;'NIL
 24 MOVE D-LAST LOCAL|0
 25 CALL D-PDL FEF|8  ;'NIL
 26 MOVE D-LAST LOCAL|0
 27 (MISC) M-EQ D-PDL
 28 (MISC) NOT D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5560] {#<DTP-FEF-POINTER <PATCH-VERSION-NEWER-THAN-LOADED> 52342771>}
  (SYSTEM:FASL-OP-INDEX [5506] {<PATCH-VERSION-NEWER-THAN-LOADED>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [3634] {<ADD-SIMPLE-TRANSFORMATION>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [2719] {<INCREMENT-COMPILED-VERSION>})
     => (<GLOBAL:QUOTE> <INCREMENT-COMPILED-VERSION>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <INCREMENT-COMPILED-VERSION-1>)
     => (<GLOBAL:QUOTE> <INCREMENT-COMPILED-VERSION-1>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-STRING "Increment ~A patch version")
        (SYSTEM:FASL-OP-STRING "Incrementing ~A patch version")
        (SYSTEM:FASL-OP-STRING "~A patch version incremented")
       => ("Increment ~A patch version" "Incrementing ~A patch version" "~A patch version incremented"))
     => (<GLOBAL:QUOTE> ("Increment ~A patch version" "Incrementing ~A patch version" "~A patch version incremented")))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
     => (<GLOBAL:QUOTE> <GLOBAL:T>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <INCREMENT-COMPILED-VERSION>) (<GLOBAL:QUOTE> <INCREMENT-COMPILED-VERSION-1>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> ("Increment ~A patch version" "Incrementing ~A patch version" "~A patch version incremented")) (<GLOBAL:QUOTE> <GLOBAL:T>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <INCREMENT-COMPILED-VERSION>) (<GLOBAL:QUOTE> <INCREMENT-COMPILED-VERSION-1>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> ("Increment ~A patch version" "Incrementing ~A patch version" "~A patch version incremented")) (<GLOBAL:QUOTE> <GLOBAL:T>) (<GLOBAL:QUOTE> <NIL>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <INCREMENT-COMPILED-VERSION> <DEFSYSTEM-MACRO>)
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '4
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '3
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH ARG|0
 37 (MISC) CADDR D-PDL
 38 POP LOCAL|1
 39 PUSH ARG|0
 40 (MISC) CADDDR D-PDL
 41 POP LOCAL|2
 42 CALL D-RETURN FEF|7  ;'NIL
 43 PUSH FEF|8  ;'<INCREMENT-COMPILED-VERSION>
 44 PUSH LOCAL|0
 45 PUSH LOCAL|1
 46 PUSH LOCAL|2
 47 BR-NOT-NIL-POP 49
 48 PUSH FEF|9  ;'<TRUE>
 49 MOVE D-LAST PDL-POP
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [5596] {#<DTP-FEF-POINTER (<:PROPERTY> <INCREMENT-COMPILED-VERSION> <DEFSYSTEM-MACRO>) 52345653>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <INCREMENT-COMPILED-VERSION> <DEFSYSTEM-MACRO>) 52345653>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5597] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <INCREMENT-COMPILED-VERSION> <DEFSYSTEM-MACRO>) 52345653>)}
  (SYSTEM:FASL-OP-INDEX [5577] {(<:PROPERTY> <INCREMENT-COMPILED-VERSION> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
<INCREMENT-COMPILED-VERSION-1>
 30 CALL D-PDL FEF|8  ;'NIL
 31 PUSH FEF|7  ;':*SYSTEM-BEING-MADE*
 32 AR-1 (1) D-LAST
 33 POP LOCAL|0
 34 CALL D-PDL FEF|9  ;'NIL
 35 PUSH FEF|7  ;':*SYSTEM-BEING-MADE*
 36 AR-1 (1) D-PDL
 37 CALL D-PDL FEF|10  ;'NIL
 38 PUSH FEF|7  ;':*SYSTEM-BEING-MADE*
 39 AR-1 (6) D-PDL
 40 MOVE D-LAST FEF|11  ;'<:PATCH-DIRECTORY>
 41 (MISC) CADDR D-LAST
 42 POP LOCAL|1
 43 PUSH FEF|6  ;':*SILENT-P*
 44 BR-NOT-NIL-POP 50
 45 CALL D-RETURN FEF|12  ;'NIL
 46 PUSH 'T
 47 PUSH FEF|13  ;'"~&~A version ~D. created~%"
 48 PUSH LOCAL|0
 49 MOVE D-LAST LOCAL|1
 50 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5613] {#<DTP-FEF-POINTER <INCREMENT-COMPILED-VERSION-1> 52346331>}
  (SYSTEM:FASL-OP-INDEX [5562] {<INCREMENT-COMPILED-VERSION-1>}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:NOT-IN-DISK-LABEL> <DEFSYSTEM-MACRO>)
 20 PUSH ARG|0
 21 (MISC) LENGTH D-PDL
 22 > '1
 23 BR-NIL 28
 24 CALL D-IGNORE FEF|7  ;'NIL
 25 PUSH ARG|0
 26 PUSH-NUMBER 0
 27 MOVE D-LAST '0
 28 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 29 AR-1 (6) D-PDL
 30 MOVEM LOCAL|0
 31 POP LOCAL|1
 32 BR-NIL 42
 33 CAR D-PDL LOCAL|1
 34 EQ FEF|8  ;'<:NOT-IN-DISK-LABEL>
 35 BR-NIL 40
 36 CDR D-PDL LOCAL|1
 37 PUSH 'T
 38 (MISC) SETCAR D-IGNORE
 39 MOVE D-RETURN 'NIL
 40 SETE-CDDR LOCAL|1
 41 BR-NOT-NIL 33
 42 PUSH FEF|8  ;'<:NOT-IN-DISK-LABEL>
 43 PUSH 'T
 44 PUSH LOCAL|0
 45 PUSH-NUMBER 3
 46 (MISC) %INTERNAL-LIST* D-PDL
 47 POP LOCAL|0
 48 PUSH FEF|6  ;':*SYSTEM-BEING-DEFINED*
 49 PUSH LOCAL|0
 50 SET-AR-1 (6) D-IGNORE
 51 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [5635] {#<DTP-FEF-POINTER (<:PROPERTY> <:NOT-IN-DISK-LABEL> <DEFSYSTEM-MACRO>) 52351112>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:NOT-IN-DISK-LABEL> <DEFSYSTEM-MACRO>) 52351112>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5636] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:NOT-IN-DISK-LABEL> <DEFSYSTEM-MACRO>) 52351112>)}
  (SYSTEM:FASL-OP-INDEX [5618] {(<:PROPERTY> <:NOT-IN-DISK-LABEL> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-SHOULD-NOT-APPEAR-IN-DISK-LABEL>
 20 CALL D-RETURN FEF|6  ;'NIL
 21 CALL D-PDL FEF|7  ;'NIL
 22 MOVE D-LAST ARG|0
 23 AR-1 (6) D-PDL
 24 MOVE D-LAST FEF|8  ;'<:NOT-IN-DISK-LABEL>
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5650] {#<DTP-FEF-POINTER <SYSTEM-SHOULD-NOT-APPEAR-IN-DISK-LABEL> 52351665>}
  (SYSTEM:FASL-OP-INDEX [5639] {<SYSTEM-SHOULD-NOT-APPEAR-IN-DISK-LABEL>}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:NOOP> <MAKE-SYSTEM-KEYWORD>)
 14 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5661] {#<DTP-FEF-POINTER (<:PROPERTY> <:NOOP> <MAKE-SYSTEM-KEYWORD>) 52352321>}
  (SYSTEM:FASL-OP-INDEX [5655] {(<:PROPERTY> <:NOOP> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-FRAME
<COMPILE-FILE-ALIST>
Arg 0 (NIL) is required, local, not initialized.
Arg 1 (NIL) is optional, local, initialized to '0.
Arg 2 (NIL) is optional, local, initialized to '0.
Arg 3 (NIL) is optional, local, initialized to NIL.
Arg 4 (NIL) is optional, local, initialized to NIL.
Local 0 (NIL) is local, not initialized.

 52 CALL D-PDL FEF|14  ;'NIL
 53 PUSH ARG|0
 54 PUSH ARG|4
 55 PUSH 'NIL
 56 MOVE D-LAST 'T
 57 POP LOCAL|0
 58 PUSH ARG|1
 59 (MISC) NUMBERP D-IGNORE
 60 BR-NIL 65
 61 CALL D-PDL FEF|15  ;'NIL
 62 MOVE D-LAST FEF|16  ;'"Should I ask you about each file? "
 63 (MISC) NOT D-PDL
 64 POP ARG|1
 65 PUSH ARG|2
 66 (MISC) NUMBERP D-IGNORE
 67 BR-NIL 71
 68 CALL D-PDL FEF|15  ;'NIL
 69 MOVE D-LAST FEF|17  ;'"Should I compile even if the file is unchanged? "
 70 POP ARG|2
 71 CALL D-RETURN FEF|18  ;'NIL
 72 PUSH LOCAL|0
 73 PUSH FEF|19  ;'<:COMPILE>
 74 PUSH FEF|20  ;'<:NOLOAD>
 75 MOVE D-IGNORE ARG|1
 76 BR-NOT-NIL 79
 77 PUSH FEF|21  ;'<:SELECTIVE>
 78 BR 84
 79 MOVE D-IGNORE ARG|3
 80 BR-NIL 83
 81 PUSH FEF|22  ;'<:NOCONFIRM>
 82 BR 84
 83 PUSH FEF|23  ;'<:NOOP>
 84 MOVE D-IGNORE ARG|2
 85 BR-NIL 88
 86 MOVE D-LAST FEF|24  ;'<:RELOAD>
 87 BR 89
 88 MOVE D-LAST FEF|23  ;'<:NOOP>
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5699] {#<DTP-FEF-POINTER <COMPILE-FILE-ALIST> 52352453>}
  (SYSTEM:FASL-OP-INDEX [5664] {<COMPILE-FILE-ALIST>}))

(SYSTEM:FASL-OP-FRAME
<LOAD-FILE-ALIST>
Arg 0 (NIL) is required, local, not initialized.
Arg 1 (NIL) is optional, local, initialized to '0.
Arg 2 (NIL) is optional, local, initialized to '0.
Arg 3 (NIL) is optional, local, initialized to NIL.
Arg 4 (NIL) is optional, local, initialized to NIL.
Local 0 (NIL) is local, not initialized.

 48 CALL D-PDL FEF|14  ;'NIL
 49 PUSH ARG|0
 50 PUSH ARG|4
 51 PUSH 'NIL
 52 MOVE D-LAST 'T
 53 POP LOCAL|0
 54 PUSH ARG|1
 55 (MISC) NUMBERP D-IGNORE
 56 BR-NIL 61
 57 CALL D-PDL FEF|15  ;'NIL
 58 MOVE D-LAST FEF|16  ;'"Should I ask you about each file? "
 59 (MISC) NOT D-PDL
 60 POP ARG|1
 61 PUSH ARG|2
 62 (MISC) NUMBERP D-IGNORE
 63 BR-NIL 67
 64 CALL D-PDL FEF|15  ;'NIL
 65 MOVE D-LAST FEF|17  ;'"Should I load even if the file is loaded? "
 66 POP ARG|2
 67 CALL D-RETURN FEF|18  ;'NIL
 68 PUSH LOCAL|0
 69 MOVE D-IGNORE ARG|1
 70 BR-NOT-NIL 73
 71 PUSH FEF|19  ;'<:SELECTIVE>
 72 BR 78
 73 MOVE D-IGNORE ARG|3
 74 BR-NIL 77
 75 PUSH FEF|20  ;'<:NOCONFIRM>
 76 BR 78
 77 PUSH FEF|21  ;'<:NOOP>
 78 MOVE D-IGNORE ARG|2
 79 BR-NIL 82
 80 MOVE D-LAST FEF|22  ;'<:RELOAD>
 81 BR 83
 82 MOVE D-LAST FEF|21  ;'<:NOOP>
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5733] {#<DTP-FEF-POINTER <LOAD-FILE-ALIST> 52353335>}
  (SYSTEM:FASL-OP-INDEX [5702] {<LOAD-FILE-ALIST>}))

(SYSTEM:FASL-OP-FRAME
<LOAD-FILE-LIST>
 18 MOVE D-IGNORE ARG|1
 19 BR-NIL 27
 20 PUSH ARG|1
 21 (MISC) NLISTP D-IGNORE
 22 BR-NIL 27
 23 PUSH ARG|1
 24 PUSH-NUMBER 1
 25 (MISC) %INTERNAL-LIST D-PDL
 26 POP ARG|1
 27 CALL D-PDL FEF|6  ;'NIL
 28 MOVE D-LAST ARG|0
 29 POP LOCAL|0
 30 CALL D-RETURN FEF|7  ;'NIL
 31 PUSH LOCAL|0
 32 PUSH ARG|1
 33 (MISC) %SPREAD D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5752] {#<DTP-FEF-POINTER <LOAD-FILE-LIST> 52355746>}
  (SYSTEM:FASL-OP-INDEX [5736] {<LOAD-FILE-LIST>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [1496] {<DEFVAR-1>})
    (SYSTEM:FASL-OP-SYMBOL <*FILE-LIST-SYSTEM-ALIST*>)
    (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
   => (<DEFVAR-1> <*FILE-LIST-SYSTEM-ALIST*> <NIL>))
  (EVAL '(<DEFVAR-1> <*FILE-LIST-SYSTEM-ALIST*> <NIL>)))

(SYSTEM:FASL-OP-FRAME
<FIND-SYSTEM-FROM-FILE-LIST>
 20 PUSH FEF|6  ;':*FILE-LIST-SYSTEM-ALIST*
 21 POP LOCAL|0
 22 BR-NIL 31
 23 CDAR D-PDL LOCAL|0
 24 PUSH ARG|0
 25 (MISC) EQUAL D-IGNORE
 26 BR-NIL 29
 27 CAAR D-PDL LOCAL|0
 28 BR 32
 29 SETE-CDR LOCAL|0
 30 BR-NOT-NIL 23
 31 PUSH 'NIL
 32 BR-NOT-NIL-POP 40
 33 CALL D-RETURN FEF|7  ;'NIL
 34 PUSH ARG|0
 35 PUSH ARG|1
 36 PUSH ARG|2
 37 BR-NOT-NIL-POP 39
 38 CALL0 D-PDL FEF|8  ;'NIL
 39 MOVE D-LAST ARG|3
 40 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5776] {#<DTP-FEF-POINTER <FIND-SYSTEM-FROM-FILE-LIST> 52356416>}
  (SYSTEM:FASL-OP-INDEX [5676] {<FIND-SYSTEM-FROM-FILE-LIST>}))

(SYSTEM:FASL-OP-FRAME
<MAKE-SYSTEM-FROM-FILE-LIST>
 68 MOVE D-IGNORE ARG|1
 69 BR-NIL 77
 70 PUSH FEF|9  ;'<:PACKAGE>
 71 PUSH ARG|1
 72 PUSH-NUMBER 2
 73 (MISC) %INTERNAL-LIST D-PDL
 74 PUSH LOCAL|0
 75 (MISC) CONS D-PDL
 76 POP LOCAL|0
 77 PUSH ARG|0
 78 PUSH-NUMBER 0
 79 PUSH-NUMBER 0
 80 POP LOCAL|11
 81 POP LOCAL|10
 82 POP LOCAL|1
 83 BR-NIL 220
 84 CAR D-PDL LOCAL|1
 85 POP LOCAL|2
 86 CALL D-PDL FEF|10  ;':FS
 87 CAR D-PDL LOCAL|2
 88 PUSH FEF|8  ;':LOAD-PATHNAME-DEFAULTS
 89 MOVE D-LAST FEF|11  ;'<:LISP>
 90 POP LOCAL|3
 91 CALL D-PDL LOCAL|3
 92 MOVE D-LAST FEF|12  ;'<:CANONICAL-TYPE>
 93 EQ FEF|13  ;'<:QFASL>
 94 BR-NOT-NIL 97
 95 PUSH FEF|14  ;'<:READFILE>
 96 BR 112
 97 PUSH ARG|3
 98 (MISC) NOT D-PDL
 99 BR-NIL-POP 110
100 CALL D-PDL FEF|15  ;'NIL
101 PUSH FEF|16  ;'NIL
102 PUSH FEF|17  ;'<NO-SOURCE-FILE>
103 CDR D-LAST LOCAL|2
104 BR-NOT-NIL-POP 108
105 CALL D-PDL FEF|16  ;'NIL
106 PUSH ARG|2
107 MOVE D-LAST FEF|18  ;'"FONTS"
108 BR-NIL-POP 110
109 PUSH FEF|19  ;'<:FASLOAD>
110 BR-NOT-NIL-POP 112
111 PUSH FEF|20  ;'<:COMPILE-LOAD>
112 POP LOCAL|4
113 CALL D-PDL LOCAL|3
114 PUSH FEF|21  ;'<:NEW-PATHNAME>
115 PUSH FEF|22  ;'<:TYPE>
116 PUSH 'NIL
117 PUSH FEF|23  ;'<:VERSION>
118 MOVE D-LAST 'NIL
119 POP LOCAL|3
120 MOVE D-IGNORE ARG|3
121 BR-NOT-NIL 179
122 CALL D-IGNORE FEF|15  ;'NIL
123 PUSH FEF|16  ;'NIL
124 PUSH FEF|24  ;'<DEFS>
125 CDR D-LAST LOCAL|2
126 BR-NIL 179
127 PUSH LOCAL|6
128 EQ LOCAL|4
129 BR-NIL 138
130 CDDR D-PDL LOCAL|7
131 PUSH LOCAL|7
132 (MISC) CADDR D-PDL
133 PUSH LOCAL|3
134 (MISC) NCONS D-PDL
135 (MISC) %INTERNAL-NCONC-2 D-PDL
136 (MISC) SETCAR D-IGNORE
137 BR 218
138 PUSH LOCAL|4
139 POP LOCAL|6
140 CALL D-PDL FEF|25  ;'NIL
141 CALL D-LAST FEF|26  ;'NIL
142 PUSH 'NIL
143 PUSH FEF|27  ;'"DEFS-~D"
144 PUSH 1+ LOCAL|10
145 MOVEM LOCAL|10
146 MOVE D-LAST PDL-POP
147 POP LOCAL|5
148 PUSH FEF|28  ;'<:MODULE>
149 PUSH LOCAL|5
150 PUSH LOCAL|3
151 PUSH-NUMBER 1
152 (MISC) %INTERNAL-LIST D-PDL
153 PUSH-NUMBER 3
154 (MISC) %INTERNAL-LIST D-PDL
155 MOVEM LOCAL|7
156 PUSH LOCAL|14
157 (MISC) CONS D-PDL
158 POP LOCAL|14
159 PUSH LOCAL|4
160 PUSH LOCAL|5
161 PUSH-NUMBER 2
162 (MISC) %INTERNAL-LIST D-PDL
163 PUSH LOCAL|15
164 (MISC) CONS D-PDL
165 POP LOCAL|15
166 PUSH LOCAL|4
167 EQ FEF|14  ;'<:READFILE>
168 BR-NIL 174
169 PUSH LOCAL|5
170 PUSH LOCAL|13
171 (MISC) CONS D-PDL
172 POP LOCAL|13
173 BR 218
174 PUSH LOCAL|5
175 PUSH LOCAL|12
176 (MISC) CONS D-PDL
177 POP LOCAL|12
178 BR 218
179 PUSH LOCAL|8
180 EQ LOCAL|4
181 BR-NIL 190
182 CDDR D-PDL LOCAL|9
183 PUSH LOCAL|9
184 (MISC) CADDR D-PDL
185 PUSH LOCAL|3
186 (MISC) NCONS D-PDL
187 (MISC) %INTERNAL-NCONC-2 D-PDL
188 (MISC) SETCAR D-IGNORE
189 BR 218
190 PUSH LOCAL|4
191 POP LOCAL|8
192 CALL D-PDL FEF|25  ;'NIL
193 CALL D-LAST FEF|26  ;'NIL
194 PUSH 'NIL
195 PUSH FEF|29  ;'"REGULAR-~D"
196 PUSH 1+ LOCAL|11
197 MOVEM LOCAL|11
198 MOVE D-LAST PDL-POP
199 POP LOCAL|5
200 PUSH FEF|28  ;'<:MODULE>
201 PUSH LOCAL|5
202 PUSH LOCAL|3
203 PUSH-NUMBER 1
204 (MISC) %INTERNAL-LIST D-PDL
205 PUSH-NUMBER 3
206 (MISC) %INTERNAL-LIST D-PDL
207 MOVEM LOCAL|9
208 PUSH LOCAL|16
209 (MISC) CONS D-PDL
210 POP LOCAL|16
211 PUSH LOCAL|4
212 PUSH LOCAL|5
213 PUSH-NUMBER 2
214 (MISC) %INTERNAL-LIST D-PDL
215 PUSH LOCAL|17
216 (MISC) CONS D-PDL
217 POP LOCAL|17
218 SETE-CDR LOCAL|1
219 BR-NOT-NIL 84
220 MOVE D-IGNORE LOCAL|12
221 BR-NOT-NIL 224
222 MOVE D-IGNORE LOCAL|13
223 BR-NIL 268
224 PUSH LOCAL|12
225 BR-NIL-POP 231
226 PUSH FEF|19  ;'<:FASLOAD>
227 CALL D-PDL FEF|30  ;'NIL
228 MOVE D-LAST LOCAL|12
229 PUSH-NUMBER 2
230 (MISC) %INTERNAL-LIST* D-PDL
231 POP LOCAL|18
232 PUSH LOCAL|13
233 BR-NIL-POP 239
234 PUSH FEF|14  ;'<:READFILE>
235 CALL D-PDL FEF|30  ;'NIL
236 MOVE D-LAST LOCAL|13
237 PUSH-NUMBER 2
238 (MISC) %INTERNAL-LIST* D-PDL
239 POP LOCAL|19
240 MOVE D-IGNORE LOCAL|18
241 BR-NIL 249
242 MOVE D-IGNORE LOCAL|19
243 BR-NIL 249
244 PUSH LOCAL|18
245 PUSH LOCAL|19
246 PUSH-NUMBER 2
247 (MISC) %INTERNAL-LIST D-PDL
248 BR 252
249 PUSH LOCAL|18
250 BR-NOT-NIL-POP 252
251 PUSH LOCAL|19
252 POP LOCAL|20
253 PUSH LOCAL|17
254 SET-NIL LOCAL|22
255 POP LOCAL|21
256 BR-NIL 268
257 CAR D-PDL LOCAL|21
258 POP LOCAL|22
259 CAR D-PDL LOCAL|22
260 EQ FEF|20  ;'<:COMPILE-LOAD>
261 BR-NIL 266
262 PUSH LOCAL|22
263 PUSH LOCAL|20
264 (MISC) NCONS D-PDL
265 (MISC) %INTERNAL-NCONC-2 D-IGNORE
266 SETE-CDR LOCAL|21
267 BR-NOT-NIL 257
268 CALL D-PDL FEF|31  ;'NIL
269 PUSH LOCAL|17
270 PUSH LOCAL|15
271 PUSH LOCAL|16
272 PUSH LOCAL|14
273 MOVE D-LAST LOCAL|0
274 POP LOCAL|0
275 PUSH ARG|2
276 PUSH ARG|0
277 (MISC) CONS D-PDL
278 PUSH FEF|7  ;':*FILE-LIST-SYSTEM-ALIST*
279 (MISC) CONS D-PDL
280 POP FEF|7  ;':*FILE-LIST-SYSTEM-ALIST*
281 BIND-NIL FEF|6  ;':FDEFINE-FILE-PATHNAME
282 CALL D-RETURN FEF|32  ;'NIL
283 PUSH ARG|2
284 CALL D-LAST FEF|30  ;'NIL
285 MOVE D-LAST LOCAL|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5838] {#<DTP-FEF-POINTER <MAKE-SYSTEM-FROM-FILE-LIST> 52356764>}
  (SYSTEM:FASL-OP-INDEX [5761] {<MAKE-SYSTEM-FROM-FILE-LIST>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [3634] {<ADD-SIMPLE-TRANSFORMATION>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "GENERATE-HOST-TABLE")
        <:GENERATE-HOST-TABLE>)
     => (<GLOBAL:QUOTE> <:GENERATE-HOST-TABLE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-STRING "NET")
        (SYSTEM:FASL-OP-STRING "GENERATE-FROM-HOSTS2-TABLE-1")
        <NET:GENERATE-FROM-HOSTS2-TABLE-1>)
     => (<GLOBAL:QUOTE> <NET:GENERATE-FROM-HOSTS2-TABLE-1>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-INDEX [32] {""})
          (SYSTEM:FASL-OP-STRING "TEXT")
          <:TEXT>)
       => (<:TEXT>))
     => (<GLOBAL:QUOTE> (<:TEXT>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [2811] {<:LISP>})
       => (<:LISP>))
     => (<GLOBAL:QUOTE> (<:LISP>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-STRING "Generate host table from")
        (SYSTEM:FASL-OP-STRING "Generating host table from")
        (SYSTEM:FASL-OP-STRING "generated into host table")
       => ("Generate host table from" "Generating host table from" "generated into host table"))
     => (<GLOBAL:QUOTE> ("Generate host table from" "Generating host table from" "generated into host table")))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
     => (<GLOBAL:QUOTE> <GLOBAL:T>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <:GENERATE-HOST-TABLE>) (<GLOBAL:QUOTE> <NET:GENERATE-FROM-HOSTS2-TABLE-1>) (<GLOBAL:QUOTE> (<:TEXT>)) (<GLOBAL:QUOTE> (<:LISP>)) (<GLOBAL:QUOTE> ("Generate host table from" "Generating host table from" "generated into host table")) (<GLOBAL:QUOTE> <GLOBAL:T>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <:GENERATE-HOST-TABLE>) (<GLOBAL:QUOTE> <NET:GENERATE-FROM-HOSTS2-TABLE-1>) (<GLOBAL:QUOTE> (<:TEXT>)) (<GLOBAL:QUOTE> (<:LISP>)) (<GLOBAL:QUOTE> ("Generate host table from" "Generating host table from" "generated into host table")) (<GLOBAL:QUOTE> <GLOBAL:T>) (<GLOBAL:QUOTE> <NIL>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:GENERATE-HOST-TABLE> <DEFSYSTEM-MACRO>)
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '4
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '3
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH ARG|0
 37 (MISC) CADDR D-PDL
 38 POP LOCAL|1
 39 PUSH ARG|0
 40 (MISC) CADDDR D-PDL
 41 POP LOCAL|2
 42 CALL D-RETURN FEF|7  ;'NIL
 43 PUSH FEF|8  ;'<:GENERATE-HOST-TABLE>
 44 PUSH LOCAL|0
 45 PUSH LOCAL|1
 46 PUSH LOCAL|2
 47 BR-NOT-NIL-POP 49
 48 PUSH FEF|9  ;'<FILE-NEWER-THAN-FILE-P>
 49 MOVE D-LAST PDL-POP
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [5882] {#<DTP-FEF-POINTER (<:PROPERTY> <:GENERATE-HOST-TABLE> <DEFSYSTEM-MACRO>) 52363602>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:GENERATE-HOST-TABLE> <DEFSYSTEM-MACRO>) 52363602>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5883] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:GENERATE-HOST-TABLE> <DEFSYSTEM-MACRO>) 52363602>)}
  (SYSTEM:FASL-OP-INDEX [5863] {(<:PROPERTY> <:GENERATE-HOST-TABLE> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [3634] {<ADD-SIMPLE-TRANSFORMATION>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "LOAD-FONTS-WIDTHS")
        <:LOAD-FONTS-WIDTHS>)
     => (<GLOBAL:QUOTE> <:LOAD-FONTS-WIDTHS>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [4565] {<LOAD-FONT-WIDTHS-1>})
     => (<GLOBAL:QUOTE> <LOAD-FONT-WIDTHS-1>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-INDEX [32] {""})
          (SYSTEM:FASL-OP-STRING "WIDTHS")
          <:WIDTHS>)
       => (<:WIDTHS>))
     => (<GLOBAL:QUOTE> (<:WIDTHS>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-STRING "Load Fonts Widths from")
        (SYSTEM:FASL-OP-STRING "Loading Fonts Widths from")
        (SYSTEM:FASL-OP-STRING "loaded for fonts widths")
       => ("Load Fonts Widths from" "Loading Fonts Widths from" "loaded for fonts widths"))
     => (<GLOBAL:QUOTE> ("Load Fonts Widths from" "Loading Fonts Widths from" "loaded for fonts widths")))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
     => (<GLOBAL:QUOTE> <GLOBAL:T>))
   => (<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <:LOAD-FONTS-WIDTHS>) (<GLOBAL:QUOTE> <LOAD-FONT-WIDTHS-1>) (<GLOBAL:QUOTE> (<:WIDTHS>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> ("Load Fonts Widths from" "Loading Fonts Widths from" "loaded for fonts widths")) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <GLOBAL:T>)))
  (EVAL '(<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <:LOAD-FONTS-WIDTHS>) (<GLOBAL:QUOTE> <LOAD-FONT-WIDTHS-1>) (<GLOBAL:QUOTE> (<:WIDTHS>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> ("Load Fonts Widths from" "Loading Fonts Widths from" "loaded for fonts widths")) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <GLOBAL:T>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:LOAD-FONTS-WIDTHS> <DEFSYSTEM-MACRO>)
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '4
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '3
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH ARG|0
 37 (MISC) CADDR D-PDL
 38 POP LOCAL|1
 39 PUSH ARG|0
 40 (MISC) CADDDR D-PDL
 41 POP LOCAL|2
 42 CALL D-RETURN FEF|7  ;'NIL
 43 PUSH FEF|8  ;'<:LOAD-FONTS-WIDTHS>
 44 PUSH LOCAL|0
 45 PUSH LOCAL|1
 46 PUSH LOCAL|2
 47 BR-NOT-NIL-POP 49
 48 PUSH FEF|9  ;'<FILE-NEWER-THAN-INSTALLED-P>
 49 MOVE D-LAST PDL-POP
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [5923] {#<DTP-FEF-POINTER (<:PROPERTY> <:LOAD-FONTS-WIDTHS> <DEFSYSTEM-MACRO>) 52365434>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:LOAD-FONTS-WIDTHS> <DEFSYSTEM-MACRO>) 52365434>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5924] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <:LOAD-FONTS-WIDTHS> <DEFSYSTEM-MACRO>) 52365434>)}
  (SYSTEM:FASL-OP-INDEX [5904] {(<:PROPERTY> <:LOAD-FONTS-WIDTHS> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [3634] {<ADD-SIMPLE-TRANSFORMATION>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <LOAD-SITE-FILE>)
     => (<GLOBAL:QUOTE> <LOAD-SITE-FILE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <LOAD-SITE-FILE-1>)
     => (<GLOBAL:QUOTE> <LOAD-SITE-FILE-1>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [100] {<:QFASL>})
       => (<:QFASL>))
     => (<GLOBAL:QUOTE> (<:QFASL>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-STRING "Load site files because of changes in")
        (SYSTEM:FASL-OP-STRING "Loading site files because of")
        (SYSTEM:FASL-OP-STRING "loaded")
       => ("Load site files because of changes in" "Loading site files because of" "loaded"))
     => (<GLOBAL:QUOTE> ("Load site files because of changes in" "Loading site files because of" "loaded")))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [101] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
     => (<GLOBAL:QUOTE> <GLOBAL:T>))
   => (<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <LOAD-SITE-FILE>) (<GLOBAL:QUOTE> <LOAD-SITE-FILE-1>) (<GLOBAL:QUOTE> (<:QFASL>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> ("Load site files because of changes in" "Loading site files because of" "loaded")) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <GLOBAL:T>)))
  (EVAL '(<ADD-SIMPLE-TRANSFORMATION> (<GLOBAL:QUOTE> <LOAD-SITE-FILE>) (<GLOBAL:QUOTE> <LOAD-SITE-FILE-1>) (<GLOBAL:QUOTE> (<:QFASL>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> ("Load site files because of changes in" "Loading site files because of" "loaded")) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <GLOBAL:T>))))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <LOAD-SITE-FILE> <DEFSYSTEM-MACRO>)
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NOT-NIL 30
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 > '4
 29 BR-NIL 34
 30 CALL D-IGNORE FEF|6  ;'NIL
 31 PUSH ARG|0
 32 PUSH-NUMBER 1
 33 MOVE D-LAST '3
 34 CADR D-PDL ARG|0
 35 POP LOCAL|0
 36 PUSH ARG|0
 37 (MISC) CADDR D-PDL
 38 POP LOCAL|1
 39 PUSH ARG|0
 40 (MISC) CADDDR D-PDL
 41 POP LOCAL|2
 42 CALL D-RETURN FEF|7  ;'NIL
 43 PUSH FEF|8  ;'<LOAD-SITE-FILE>
 44 PUSH LOCAL|0
 45 PUSH LOCAL|1
 46 PUSH LOCAL|2
 47 BR-NOT-NIL-POP 49
 48 PUSH FEF|9  ;'<FILE-NEWER-THAN-INSTALLED-P>
 49 MOVE D-LAST PDL-POP
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [162] {<MACRO>})
  (SYSTEM:FASL-OP-INDEX [5962] {#<DTP-FEF-POINTER (<:PROPERTY> <LOAD-SITE-FILE> <DEFSYSTEM-MACRO>) 52370106>})
 => (<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <LOAD-SITE-FILE> <DEFSYSTEM-MACRO>) 52370106>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5963] {(<MACRO> . #<DTP-FEF-POINTER (<:PROPERTY> <LOAD-SITE-FILE> <DEFSYSTEM-MACRO>) 52370106>)}
  (SYSTEM:FASL-OP-INDEX [5943] {(<:PROPERTY> <LOAD-SITE-FILE> <DEFSYSTEM-MACRO>)}))

(SYSTEM:FASL-OP-FRAME
<LOAD-SITE-FILE-1>
 20 PUSH 'T
 21 POP FEF|7  ;':*SOMETHING-LOADED*
 22 PUSH FEF|8  ;'(<UPDATE-SITE-CONFIGURATION-INFO>)
 23 PUSH FEF|6  ;':*MAKE-SYSTEM-FORMS-TO-BE-EVALED-AFTER*
 24 (MISC) MEMQ D-PDL
 25 BR-NOT-NIL-POP 31
 26 PUSH FEF|8  ;'(<UPDATE-SITE-CONFIGURATION-INFO>)
 27 PUSH FEF|6  ;':*MAKE-SYSTEM-FORMS-TO-BE-EVALED-AFTER*
 28 (MISC) CONS D-PDL
 29 MOVEM FEF|6  ;':*MAKE-SYSTEM-FORMS-TO-BE-EVALED-AFTER*
 30 MOVE D-RETURN PDL-POP
 31 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [5978] {#<DTP-FEF-POINTER <LOAD-SITE-FILE-1> 52370571>}
  (SYSTEM:FASL-OP-INDEX [5927] {<LOAD-SITE-FILE-1>}))

(SYSTEM:FASL-OP-FRAME
<DESCRIBE-SYSTEM>
Arg 0 (NIL) is required, local, not initialized.
Rest arg (NIL) is local, not initialized.
Local 1 (NIL) is local, initialized to '<GLOBAL:T>.
Local 2 (NIL) is local, initialized to '<GLOBAL:T>.

146 MOVE D-IGNORE LOCAL|0
147 BR-NIL 153
148 CALL D-IGNORE FEF|24  ;'NIL
149 PUSH-ADDRESS LOCAL|1
150 PUSH LOCAL|0
151 PUSH FEF|25  ;'(<:SHOW-FILES> <:SHOW-TRANSFORMATIONS>)
152 MOVE D-LAST 'NIL
153 CALL D-PDL FEF|26  ;'NIL
154 MOVE D-LAST ARG|0
155 POP LOCAL|3
156 BR-NOT-NIL 162
157 CALL D-IGNORE FEF|27  ;'NIL
158 PUSH 'T
159 PUSH FEF|28  ;'"~&There is no system named ~A.~%"
160 MOVE D-LAST ARG|0
161 MOVE D-RETURN ARG|0
162 PUSH LOCAL|3
163 AR-1 (1) D-PDL
164 POP ARG|0
165 CALL D-PDL FEF|29  ;'NIL
166 CALL D-PDL FEF|30  ;'NIL
167 PUSH LOCAL|3
168 AR-1 (6) D-PDL
169 MOVE D-LAST FEF|31  ;'<:SYMBOLIC-NAME>
170 MOVE D-LAST FEF|32  ;'<DEFSYSTEM>
171 POP LOCAL|4
172 CALL D-PDL FEF|33  ;'NIL
173 PUSH LOCAL|4
174 BR-NIL 177
175 PUSH FEF|34  ;'<:PACKAGE>
176 (MISC) INTERNAL-GET-2 D-PDL
177 BR-NOT-NIL-POP 179
178 PUSH FEF|35  ;'"USER"
179 MOVE D-LAST PDL-POP
180 BIND-POP FEF|6  ;':*FORCE-PACKAGE*
181 MOVE D-IGNORE LOCAL|4
182 BR-NIL 192
183 CALL D-IGNORE FEF|27  ;'NIL
184 PUSH 'T
185 PUSH FEF|36  ;'"~&System ~A~@[ is defined in file ~A~]~%"
186 PUSH ARG|0
187 MOVE D-LAST LOCAL|4
188 CALL D-IGNORE FEF|37  ;'NIL
189 MOVE D-LAST LOCAL|4
190 CALL D-IGNORE FEF|38  ;'NIL
191 MOVE D-LAST LOCAL|4
192 (MISC) UNBIND 1 binding 
193 CALL D-IGNORE FEF|30  ;'NIL
194 PUSH LOCAL|3
195 AR-1 (6) D-PDL
196 MOVE D-LAST FEF|39  ;'<:PATCH-DIRECTORY>
197 BR-NIL 252
198 CALL D-IGNORE FEF|27  ;'NIL
199 PUSH 'T
200 PUSH FEF|40  ;'"~&~%~A is patchable"
201 MOVE D-LAST ARG|0
202 PUSH FEF|41  ;'NIL
203 PUSH-NUMBER 3
204 (MISC) %CALL-MULT-VALUE D-IGNORE
205 MOVE D-LAST LOCAL|3
206 POP LOCAL|7
207 POP LOCAL|6
208 POP LOCAL|5
209 PUSH LOCAL|7
210 PUSH FEF|7  ;':SYSTEM-STATUS-ALIST
211 (MISC) ASSQ D-PDL
212 CADR D-PDL PDL-POP
213 BR-NOT-NIL-POP 215
214 PUSH LOCAL|7
215 MOVEM LOCAL|8
216 PUSH FEF|42  ;'""
217 (MISC) EQUAL D-IGNORE
218 BR-NOT-NIL 223
219 CALL D-IGNORE FEF|27  ;'NIL
220 PUSH 'T
221 PUSH FEF|43  ;'", ~A"
222 MOVE D-LAST LOCAL|8
223 MOVE D-IGNORE LOCAL|5
224 BR-NIL 230
225 CALL D-IGNORE FEF|27  ;'NIL
226 PUSH 'T
227 PUSH FEF|44  ;'", ~D.~D is loaded"
228 PUSH LOCAL|5
229 MOVE D-LAST LOCAL|6
230 CALL D-IGNORE FEF|27  ;'NIL
231 PUSH 'T
232 PUSH FEF|45  ;'";~%  a typical patch file is ~A~%"
233 CALL D-LAST FEF|46  ;'NIL
234 PUSH ARG|0
235 PUSH FEF|47  ;'<:PATCH-FILE>
236 PUSH LOCAL|5
237 BR-NOT-NIL-POP 239
238 PUSH-NUMBER 1
239 PUSH LOCAL|6
240 BR-NOT-NIL-POP 242
241 PUSH-NUMBER 0
242 MOVE D-LAST FEF|48  ;'<:LISP>
243 MOVE D-IGNORE LOCAL|5
244 BR-NIL 252
245 CALL D-IGNORE FEF|49  ;'NIL
246 PUSH 'NIL
247 PUSH FEF|50  ;'"Do you want to see the patches for ~A? "
248 MOVE D-LAST ARG|0
249 BR-NIL 252
250 CALL D-IGNORE FEF|51  ;'NIL
251 MOVE D-LAST LOCAL|3
252 CALL D-IGNORE FEF|30  ;'NIL
253 PUSH LOCAL|3
254 AR-1 (6) D-PDL
255 MOVE D-LAST FEF|34  ;'<:PACKAGE>
256 BR-NIL 265
257 CALL D-IGNORE FEF|27  ;'NIL
258 PUSH 'T
259 PUSH FEF|52  ;'"~& Files in ~A are forcibly read in package ~A.~%"
260 PUSH ARG|0
261 CALL D-LAST FEF|30  ;'NIL
262 PUSH LOCAL|3
263 AR-1 (6) D-PDL
264 MOVE D-LAST FEF|34  ;'<:PACKAGE>
265 MOVE D-IGNORE LOCAL|1
266 BR-NIL 278
267 CALL D-IGNORE FEF|27  ;'NIL
268 PUSH 'T
269 MOVE D-LAST FEF|53  ;'"~%Compilation and loading of files in this system:~2%"
270 CALL D-IGNORE FEF|54  ;'NIL
271 PUSH ARG|0
272 PUSH FEF|55  ;'<:COMPILE>
273 PUSH FEF|56  ;'<:RELOAD>
274 PUSH FEF|57  ;'<:DO-NOT-DO-COMPONENTS>
275 PUSH FEF|58  ;'<:DESCRIBE>
276 PUSH FEF|59  ;'<:NO-INCREMENT-PATCH>
277 MOVE D-LAST FEF|60  ;'<:NO-RELOAD-SYSTEM-DECLARATION>
278 MOVE D-IGNORE LOCAL|2
279 BR-NIL 289
280 CALL D-IGNORE FEF|27  ;'NIL
281 PUSH 'T
282 MOVE D-LAST FEF|61  ;'"~%Transformations required to MAKE-SYSTEM now:~2%"
283 CALL D-IGNORE FEF|54  ;'NIL
284 PUSH ARG|0
285 PUSH FEF|55  ;'<:COMPILE>
286 PUSH FEF|57  ;'<:DO-NOT-DO-COMPONENTS>
287 PUSH FEF|62  ;'<:PRINT-ONLY>
288 MOVE D-LAST FEF|60  ;'<:NO-RELOAD-SYSTEM-DECLARATION>
289 PUSH LOCAL|3
290 AR-1 (2) D-PDL
291 POP LOCAL|9
292 BR-NIL 324
293 CALL D-IGNORE FEF|27  ;'NIL
294 PUSH 'T
295 PUSH FEF|63  ;'"~2&~A is made up of component system~P "
296 PUSH ARG|0
297 PUSH LOCAL|9
298 (MISC) LENGTH D-LAST
299 CALL D-IGNORE FEF|64  ;':FORMAT
300 PUSH 'T
301 PUSH FEF|65  ;'"~A"
302 MOVE D-LAST LOCAL|9
303 CALL D-IGNORE FEF|66  ;'NIL
304 PUSH FEF|67  ;'"Describe the component system~P?"
305 PUSH LOCAL|9
306 (MISC) LENGTH D-LAST
307 BR-NIL 324
308 PUSH LOCAL|9
309 POP LOCAL|10
310 BR-NIL 324
311 CAR D-PDL LOCAL|10
312 POP LOCAL|11
313 CALL D-IGNORE FEF|27  ;'NIL
314 PUSH 'T
315 MOVE D-LAST FEF|68  ;'"~2&"
316 CALL D-IGNORE FEF|69  ;'NIL
317 PUSH LOCAL|11
318 PUSH FEF|70  ;'<:SHOW-FILES>
319 PUSH LOCAL|1
320 PUSH FEF|71  ;'<:SHOW-TRANSFORMATIONS>
321 MOVE D-LAST LOCAL|2
322 SETE-CDR LOCAL|10
323 BR-NOT-NIL 311
324 MOVE D-RETURN ARG|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [6063] {#<DTP-FEF-POINTER <DESCRIBE-SYSTEM> 52371130>}
  (SYSTEM:FASL-OP-INDEX [5981] {<DESCRIBE-SYSTEM>}))

(SYSTEM:FASL-OP-FRAME
(<:PROPERTY> <:DESCRIBE> <MAKE-SYSTEM-KEYWORD>)
 18 PUSH FEF|7  ;'<DESCRIBE-FILE-TRANSFORMATIONS>
 19 MOVEM FEF|6  ;':*FILE-TRANSFORMATION-FUNCTION*
 20 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [6073] {#<DTP-FEF-POINTER (<:PROPERTY> <:DESCRIBE> <MAKE-SYSTEM-KEYWORD>) 52375007>}
  (SYSTEM:FASL-OP-INDEX [6066] {(<:PROPERTY> <:DESCRIBE> <MAKE-SYSTEM-KEYWORD>)}))

(SYSTEM:FASL-OP-FRAME
<DESCRIBE-FILE-TRANSFORMATIONS>
 42 PUSH FEF|9  ;':*FILE-TRANSFORMATION-LIST*
 43 POP LOCAL|0
 44 BR-NIL 119
 45 CAR D-PDL LOCAL|0
 46 POP LOCAL|1
 47 CAR D-PDL LOCAL|1
 48 MOVEM LOCAL|2
 49 PUSH FEF|10  ;'(<:DONE> <:REFUSED> <:NOT-NEEDED> <NIL>)
 50 (MISC) MEMQ D-IGNORE
 51 BR-NOT-NIL 117
 52 PUSH LOCAL|2
 53 PUSH FEF|11  ;'(<:PENDING> <:PROBABLY>)
 54 (MISC) MEMQ D-IGNORE
 55 BR-NIL 113
 56 CADR D-PDL LOCAL|1
 57 PUSH-NUMBER 6
 58 PUSH LOCAL|1
 59 (MISC) NTHCDR D-PDL
 60 PUSH-NUMBER 5
 61 PUSH LOCAL|1
 62 (MISC) NTH D-PDL
 63 PUSH LOCAL|1
 64 (MISC) CADDR D-PDL
 65 PUSH LOCAL|1
 66 (MISC) CADDDR D-PDL
 67 BIND-POP FEF|7  ;':*SYSTEM-BEING-MADE*
 68 BIND-POP FEF|6  ;':*FORCE-PACKAGE*
 69 POP LOCAL|5
 70 POP LOCAL|4
 71 POP LOCAL|3
 72 CALL D-IGNORE FEF|12  ;'NIL
 73 PUSH 'T
 74 PUSH FEF|13  ;'"~&~\SI::FILE-XFORM-ARGS\~:[ ~:[are~;is~] ~A~
			         ~:[~; in~:[to~] package ~A~]~]"
 75 PUSH LOCAL|1
 76 PUSH LOCAL|4
 77 (MISC) NOT D-PDL
 78 CDR D-PDL LOCAL|4
 79 PUSH LOCAL|5
 80 (MISC) M-EQ D-PDL
 81 CDR D-PDL LOCAL|3
 82 (MISC) CADDAR D-PDL
 83 PUSH FEF|6  ;':*FORCE-PACKAGE*
 84 PUSH-NUMBER 5
 85 PUSH LOCAL|1
 86 (MISC) NTH D-PDL
 87 MOVE D-LAST FEF|6  ;':*FORCE-PACKAGE*
 88 CAR D-PDL LOCAL|3
 89 PUSH FEF|8  ;':*LOAD-TYPE-TRANSFORMATIONS*
 90 (MISC) MEMQ D-IGNORE
 91 BR-NIL 102
 92 PUSH LOCAL|4
 93 POP LOCAL|6
 94 BR 98
 95 CALL D-IGNORE FEF|14  ;'NIL
 96 CAR D-LAST LOCAL|6
 97 SETE-CDR LOCAL|6
 98 PUSH LOCAL|6
 99 EQ LOCAL|5
100 BR-NIL 95
101 BR 108
102 PUSH LOCAL|3
103 (MISC) CADDR D-PDL
104 EQ FEF|15  ;'<QC-FILE-1>
105 BR-NIL 108
106 CALL D-IGNORE FEF|16  ;'NIL
107 CAR D-LAST LOCAL|4
108 (MISC) UNBIND 2 bindings 
109 PUSH LOCAL|1
110 PUSH FEF|17  ;'<:DONE>
111 (MISC) SETCAR D-IGNORE
112 BR 117
113 CALL D-IGNORE FEF|18  ;'NIL
114 PUSH 'NIL
115 PUSH FEF|19  ;'"Transformation ~S in bad state"
116 MOVE D-LAST LOCAL|1
117 SETE-CDR LOCAL|0
118 BR-NOT-NIL 45
119 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [6095] {#<DTP-FEF-POINTER <DESCRIBE-FILE-TRANSFORMATIONS> 52375205>}
  (SYSTEM:FASL-OP-INDEX [6070] {<DESCRIBE-FILE-TRANSFORMATIONS>}))

(SYSTEM:FASL-OP-FRAME
<DESCRIBE-FILE-TRANSFORMATION-LOADED-FILE>
 22 CALL D-PDL FEF|7  ;'NIL
 23 PUSH ARG|0
 24 MOVE D-LAST FEF|6  ;':*FORCE-PACKAGE*
 25 MOVEM LOCAL|0
 26 BR-NIL-POP 32
 27 CALL D-RETURN FEF|8  ;'NIL
 28 PUSH 'T
 29 PUSH FEF|9  ;'"~& ~A was created ~\TIME\~%"
 30 CAR D-PDL LOCAL|0
 31 CDR D-LAST LOCAL|0
 32 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [6111] {#<DTP-FEF-POINTER <DESCRIBE-FILE-TRANSFORMATION-LOADED-FILE> 52400110>}
  (SYSTEM:FASL-OP-INDEX [6009] {<DESCRIBE-FILE-TRANSFORMATION-LOADED-FILE>}))

(SYSTEM:FASL-OP-FRAME
<DESCRIBE-FILE-TRANSFORMATION-COMPILED-FILE>
 30 CALL D-PDL ARG|0
 31 MOVE D-LAST FEF|6  ;'<:GENERIC-PATHNAME>
 32 POP LOCAL|2
 33 CALL D-PDL LOCAL|2
 34 PUSH FEF|7  ;'<:GET>
 35 MOVE D-LAST FEF|8  ;'<:QFASL-SOURCE-FILE-UNIQUE-ID>
 36 POP LOCAL|0
 37 CALL D-PDL LOCAL|2
 38 PUSH FEF|7  ;'<:GET>
 39 MOVE D-LAST FEF|9  ;'<:COMPILE-DATA>
 40 POP LOCAL|1
 41 PUSH LOCAL|0
 42 BR-NOT-NIL-POP 44
 43 PUSH LOCAL|1
 44 BR-NIL-POP 60
 45 CALL D-IGNORE FEF|10  ;'NIL
 46 PUSH 'T
 47 PUSH FEF|11  ;'"~& ~A was compiled"
 48 PUSH LOCAL|0
 49 BR-NOT-NIL-POP 51
 50 PUSH ARG|0
 51 MOVE D-LAST PDL-POP
 52 PUSH LOCAL|1
 53 BR-NIL-POP 59
 54 CALL D-RETURN FEF|12  ;'<FORMAT>
 55 PUSH 'T
 56 PUSH FEF|13  ;'" by ~A on ~A at ~\TIME\~%~10@Twith system ~D.~D~%"
 57 PUSH LOCAL|1
 58 (MISC) %SPREAD D-LAST
 59 MOVE D-RETURN PDL-POP
 60 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [6133] {#<DTP-FEF-POINTER <DESCRIBE-FILE-TRANSFORMATION-COMPILED-FILE> 52400406>}
  (SYSTEM:FASL-OP-INDEX [6008] {<DESCRIBE-FILE-TRANSFORMATION-COMPILED-FILE>}))

(SYSTEM:FASL-OP-FRAME
<SYSTEM-SUBSYSTEM-P>
 16 CALL D-PDL FEF|6  ;'NIL
 17 MOVE D-LAST ARG|1
 18 POP LOCAL|0
 19 CALL D-PDL FEF|6  ;'NIL
 20 MOVE D-LAST ARG|0
 21 MOVEM LOCAL|1
 22 AR-1 (1) D-PDL
 23 POP LOCAL|2
 24 PUSH LOCAL|0
 25 AR-1 (2) D-PDL
 26 POP LOCAL|3
 27 BR-NIL 46
 28 CAR D-PDL LOCAL|3
 29 MOVEM LOCAL|4
 30 (MISC) STRINGP D-IGNORE
 31 BR-NOT-NIL 35
 32 PUSH LOCAL|4
 33 (MISC) SYMBOLP D-IGNORE
 34 BR-NIL 44
 35 PUSH LOCAL|4
 36 PUSH LOCAL|2
 37 (MISC) EQUALP D-IGNORE
 38 BR-NIL 44
 39 CALL D-PDL FEF|6  ;'NIL
 40 MOVE D-LAST LOCAL|4
 41 EQ LOCAL|1
 42 BR-NIL 44
 43 MOVE D-RETURN LOCAL|1
 44 SETE-CDR LOCAL|3
 45 BR-NOT-NIL 28
 46 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [6160] {#<DTP-FEF-POINTER <SYSTEM-SUBSYSTEM-P> 52401013>}
  (SYSTEM:FASL-OP-INDEX [5217] {<SYSTEM-SUBSYSTEM-P>}))

(SYSTEM:FASL-OP-FRAME
<TRANSFORMATIONS-THAT-COMPILE>
 16 PUSH ARG|0
 17 POP LOCAL|0
 18 BR-NIL 43
 19 PUSH LOCAL|1
 20 CAR D-PDL LOCAL|0
 21 POP LOCAL|3
 22 CADR D-PDL LOCAL|3
 23 CAR D-PDL PDL-POP
 24 PUSH FEF|6  ;'<:COMPILE>
 25 (MISC) M-EQ D-PDL
 26 BR-NIL-POP 32
 27 PUSH-NUMBER 6
 28 PUSH LOCAL|3
 29 (MISC) NTHCDR D-PDL
 30 PUSH-NUMBER 1
 31 (MISC) %INTERNAL-LIST D-PDL
 32 (MISC) %INTERNAL-NCONC-2 D-PDL
 33 POP LOCAL|1
 34 MOVE D-IGNORE LOCAL|2
 35 BR-NOT-NIL 38
 36 PUSH LOCAL|1
 37 POP LOCAL|2
 38 PUSH LOCAL|1
 39 (MISC) LAST D-PDL
 40 POP LOCAL|1
 41 SETE-CDR LOCAL|0
 42 BR-NOT-NIL 19
 43 MOVE D-RETURN LOCAL|2
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [6177] {#<DTP-FEF-POINTER <TRANSFORMATIONS-THAT-COMPILE> 52402520>}
  (SYSTEM:FASL-OP-INDEX [6163] {<TRANSFORMATIONS-THAT-COMPILE>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-SYMBOL <FASL-RECORD-FILE-MACROS-EXPANDED>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [90] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [5266] {<PATCH-DIRECTORY-INITIAL-STATUS>})
          (SYSTEM:FASL-OP-FIXED 4093774)
         => (<PATCH-DIRECTORY-INITIAL-STATUS> 4093774))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [5319] {<PATCH-DIRECTORY-PATHNAME>})
          (SYSTEM:FASL-OP-FIXED 4093766)
         => (<PATCH-DIRECTORY-PATHNAME> 4093766))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [5293] {<PATCH-DIRECTORY-SAME-DIRECTORY-P>})
          (SYSTEM:FASL-OP-FIXED 4093762)
         => (<PATCH-DIRECTORY-SAME-DIRECTORY-P> 4093762))
        (SYSTEM:FASL-OP-INDEX [5357] {<MAKE-PATCH-DIRECTORY>})
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [5239] {<PATCH-DIRECTORY-PATCH-ATOM>})
          (SYSTEM:FASL-OP-FIXED 4093770)
         => (<PATCH-DIRECTORY-PATCH-ATOM> 4093770))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [4574] {<PKG-BIND>})
          (SYSTEM:FASL-OP-FIXED 606858)
         => (<PKG-BIND> 606858))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [4513] {<SEND-IF-HANDLES>})
          (SYSTEM:FASL-OP-FIXED 8346474)
         => (<SEND-IF-HANDLES> 8346474))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [4512] {<LEXPR-SEND>})
          (SYSTEM:FASL-OP-FIXED 3957399)
         => (<LEXPR-SEND> 3957399))
        (SYSTEM:FASL-OP-INDEX [830] {<MAKE-TRANSFORMATION>})
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [256] {<SYSTEM-TRANSFORMATIONS>})
          (SYSTEM:FASL-OP-FIXED 5165194)
         => (<SYSTEM-TRANSFORMATIONS> 5165194))
        (SYSTEM:FASL-OP-INDEX [1034] {<MAKE-TRANSFORMATION-TYPE>})
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [3589] {<LOCAL-DECLARE>})
          (SYSTEM:FASL-OP-FIXED 2468045)
         => (<LOCAL-DECLARE> 2468045))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [710] {<TRANSFORMATION-CONDITION-FUNCTION>})
          (SYSTEM:FASL-OP-FIXED 7293841)
         => (<TRANSFORMATION-CONDITION-FUNCTION> 7293841))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [3553] {<CLOSUREP>})
          (SYSTEM:FASL-OP-FIXED 384049)
         => (<CLOSUREP> 384049))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [3552] {<LET-CLOSED>})
          (SYSTEM:FASL-OP-FIXED 5392572)
         => (<LET-CLOSED> 5392572))
        (SYSTEM:FASL-OP-INDEX [1429] {<MAKE-FILE-TRANSFORMATION>})
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [3495] {<LOCF>})
          (SYSTEM:FASL-OP-FIXED 7870210)
         => (<LOCF> 7870210))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [515] {<MODULE-PLIST>})
          (SYSTEM:FASL-OP-FIXED 3389335)
         => (<MODULE-PLIST> 3389335))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [541] {<MODULE-COMPONENTS>})
          (SYSTEM:FASL-OP-FIXED 7408763)
         => (<MODULE-COMPONENTS> 7408763))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [3462] {<POP>})
          (SYSTEM:FASL-OP-FIXED 5707025)
         => (<POP> 5707025))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [3431] {<POP-CAREFULLY>})
          (SYSTEM:FASL-OP-FIXED 2507773)
         => (<POP-CAREFULLY> 2507773))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [910] {<TRANSFORMATION-TYPE-INPUT-FILE-TYPES>})
          (SYSTEM:FASL-OP-FIXED 2287390)
         => (<TRANSFORMATION-TYPE-INPUT-FILE-TYPES> 2287390))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [883] {<TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES>})
          (SYSTEM:FASL-OP-FIXED 5818669)
         => (<TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES> 5818669))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [3220] {<CONSP>})
          (SYSTEM:FASL-OP-FIXED 5157358)
         => (<CONSP> 5157358))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1155] {<TRANSFORMATION-TYPE-PRETTY-IMPERATIVE>})
          (SYSTEM:FASL-OP-FIXED 3185594)
         => (<TRANSFORMATION-TYPE-PRETTY-IMPERATIVE> 3185594))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1108] {<TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE>})
          (SYSTEM:FASL-OP-FIXED 6106782)
         => (<TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE> 6106782))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [3219] {<DECF>})
          (SYSTEM:FASL-OP-FIXED 1480564)
         => (<DECF> 1480564))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [3157] {<NEQ>})
          (SYSTEM:FASL-OP-FIXED 7171662)
         => (<NEQ> 7171662))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1201] {<TRANSFORMATION-TYPE-PRETTY-PAST-PARTICIPLE>})
          (SYSTEM:FASL-OP-FIXED 3282331)
         => (<TRANSFORMATION-TYPE-PRETTY-PAST-PARTICIPLE> 3282331))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1056] {<TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE>})
          (SYSTEM:FASL-OP-FIXED 6106774)
         => (<TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE> 6106774))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [3156] {<SELECTQ>})
          (SYSTEM:FASL-OP-FIXED 3812802)
         => (<SELECTQ> 3812802))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [120] {<PUSH*>})
          (SYSTEM:FASL-OP-FIXED 4813483)
         => (<PUSH*> 4813483))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1383] {<FILE-TRANSFORMATION-STATE>})
          (SYSTEM:FASL-OP-FIXED 6510596)
         => (<FILE-TRANSFORMATION-STATE> 6510596))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1358] {<FILE-TRANSFORMATION-TRANSFORMATION-TYPE>})
          (SYSTEM:FASL-OP-FIXED 5403693)
         => (<FILE-TRANSFORMATION-TRANSFORMATION-TYPE> 5403693))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1222] {<FILE-TRANSFORMATION-ARGS>})
          (SYSTEM:FASL-OP-FIXED 5931389)
         => (<FILE-TRANSFORMATION-ARGS> 5931389))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1330] {<FILE-TRANSFORMATION-FORCE-PACKAGE>})
          (SYSTEM:FASL-OP-FIXED 7559172)
         => (<FILE-TRANSFORMATION-FORCE-PACKAGE> 7559172))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1305] {<FILE-TRANSFORMATION-SYSTEM>})
          (SYSTEM:FASL-OP-FIXED 5403685)
         => (<FILE-TRANSFORMATION-SYSTEM> 5403685))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1278] {<FILE-TRANSFORMATION-CONDITION-FUNCTION>})
          (SYSTEM:FASL-OP-FIXED 4413444)
         => (<FILE-TRANSFORMATION-CONDITION-FUNCTION> 4413444))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1250] {<FILE-TRANSFORMATION-OUTPUTS>})
          (SYSTEM:FASL-OP-FIXED 4937732)
         => (<FILE-TRANSFORMATION-OUTPUTS> 4937732))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1178] {<TRANSFORMATION-TYPE-PRETTY-PRESENT-PARTICIPLE>})
          (SYSTEM:FASL-OP-FIXED 2660662)
         => (<TRANSFORMATION-TYPE-PRETTY-PRESENT-PARTICIPLE> 2660662))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [966] {<TRANSFORMATION-TYPE-PRETTY-NAMES>})
          (SYSTEM:FASL-OP-FIXED 3335966)
         => (<TRANSFORMATION-TYPE-PRETTY-NAMES> 3335966))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1082] {<TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE>})
          (SYSTEM:FASL-OP-FIXED 6106778)
         => (<TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE> 6106778))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [3106] {<ERROR-RESTART>})
          (SYSTEM:FASL-OP-FIXED 3530369)
         => (<ERROR-RESTART> 3530369))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [938] {<TRANSFORMATION-TYPE-FUNCTION>})
          (SYSTEM:FASL-OP-FIXED 2811678)
         => (<TRANSFORMATION-TYPE-FUNCTION> 2811678))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [3062] {<SECOND>})
          (SYSTEM:FASL-OP-FIXED 266235)
         => (<SECOND> 266235))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [3061] {<THIRD>})
          (SYSTEM:FASL-OP-FIXED 4262879)
         => (<THIRD> 4262879))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [764] {<TRANSFORMATION-INPUT>})
          (SYSTEM:FASL-OP-FIXED 7293833)
         => (<TRANSFORMATION-INPUT> 7293833))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [682] {<TRANSFORMATION-SYSTEM>})
          (SYSTEM:FASL-OP-FIXED 7293845)
         => (<TRANSFORMATION-SYSTEM> 7293845))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [282] {<SYSTEM-TOP-LEVEL-TRANSFORMATIONS>})
          (SYSTEM:FASL-OP-FIXED 5165706)
         => (<SYSTEM-TOP-LEVEL-TRANSFORMATIONS> 5165706))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [738] {<TRANSFORMATION-DEPENDENCIES>})
          (SYSTEM:FASL-OP-FIXED 7458431)
         => (<TRANSFORMATION-DEPENDENCIES> 7458431))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [2964] {<CATCH-ERROR-RESTART>})
          (SYSTEM:FASL-OP-FIXED 1755547)
         => (<CATCH-ERROR-RESTART> 1755547))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [2963] {<WITH-LIST>})
          (SYSTEM:FASL-OP-FIXED 1550516)
         => (<WITH-LIST> 1550516))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [2962] {<WITH-LIST*>})
          (SYSTEM:FASL-OP-FIXED 8318855)
         => (<WITH-LIST*> 8318855))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [2961] {<XR-BQ-APPEND>})
          (SYSTEM:FASL-OP-FIXED 1150315)
         => (<XR-BQ-APPEND> 1150315))
        (SYSTEM:FASL-OP-INDEX [2442] {<LOOP>})
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [2441] {<LOOP-LIST-COLLECTOR>})
          (SYSTEM:FASL-OP-FIXED 1534794)
         => (<LOOP-LIST-COLLECTOR> 1534794))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [2440] {<LOOP-COLLECT-RPLACD>})
          (SYSTEM:FASL-OP-FIXED 5409052)
         => (<LOOP-COLLECT-RPLACD> 5409052))
        (SYSTEM:FASL-OP-INDEX [633] {<MAKE-MODULE>})
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [308] {<SYSTEM-MODULES>})
          (SYSTEM:FASL-OP-FIXED 5168266)
         => (<SYSTEM-MODULES> 5168266))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [2133] {<CASE>})
          (SYSTEM:FASL-OP-FIXED 3812802)
         => (<CASE> 3812802))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [2082] {<SYSTEM-DEFAULT-BINARY-FILE-TYPE>})
          (SYSTEM:FASL-OP-FIXED 6425182)
         => (<SYSTEM-DEFAULT-BINARY-FILE-TYPE> 6425182))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [2091] {<FIRST>})
          (SYSTEM:FASL-OP-FIXED 2918899)
         => (<FIRST> 2918899))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1800] {<SYSTEM-WARNINGS-PATHNAME-DEFAULT>})
          (SYSTEM:FASL-OP-FIXED 5375311)
         => (<SYSTEM-WARNINGS-PATHNAME-DEFAULT> 5375311))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [491] {<SYSTEM-PACKAGE-DEFAULT>})
          (SYSTEM:FASL-OP-FIXED 852524)
         => (<SYSTEM-PACKAGE-DEFAULT> 852524))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1826] {<SYSTEM-MAINTAINING-SITES>})
          (SYSTEM:FASL-OP-FIXED 5690925)
         => (<SYSTEM-MAINTAINING-SITES> 5690925))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1725] {<SYSTEM-SHORT-NAME-INTERNAL>})
          (SYSTEM:FASL-OP-FIXED 1146739)
         => (<SYSTEM-SHORT-NAME-INTERNAL> 1146739))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1751] {<SYSTEM-NICKNAMES>})
          (SYSTEM:FASL-OP-FIXED 5491058)
         => (<SYSTEM-NICKNAMES> 5491058))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1633] {<SYSTEM-SYMBOLIC-NAME>})
          (SYSTEM:FASL-OP-FIXED 2932578)
         => (<SYSTEM-SYMBOLIC-NAME> 2932578))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1632] {<WHEN>})
          (SYSTEM:FASL-OP-FIXED 8359863)
         => (<WHEN> 8359863))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1631] {<DOLIST>})
          (SYSTEM:FASL-OP-FIXED 3527402)
         => (<DOLIST> 3527402))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [334] {<SYSTEM-COMPONENT-SYSTEMS>})
          (SYSTEM:FASL-OP-FIXED 6646410)
         => (<SYSTEM-COMPONENT-SYSTEMS> 6646410))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1630] {<SYSTEM-PATCHABLE-P>})
          (SYSTEM:FASL-OP-FIXED 8078853)
         => (<SYSTEM-PATCHABLE-P> 8078853))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1629] {<SYSTEM-PATCH-DIRECTORY>})
          (SYSTEM:FASL-OP-FIXED 7812082)
         => (<SYSTEM-PATCH-DIRECTORY> 7812082))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1628] {<UNLESS>})
          (SYSTEM:FASL-OP-FIXED 3883044)
         => (<UNLESS> 3883044))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1627] {<LISP:IF>})
          (SYSTEM:FASL-OP-FIXED 7699908)
         => (<LISP:IF> 7699908))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [221] {<SYSTEM-PLIST>})
          (SYSTEM:FASL-OP-FIXED 5166730)
         => (<SYSTEM-PLIST> 5166730))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1574] {<INHIBIT-STYLE-WARNINGS>})
          (SYSTEM:FASL-OP-FIXED 6275219)
         => (<INHIBIT-STYLE-WARNINGS> 6275219))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1573] {<SEND>})
          (SYSTEM:FASL-OP-FIXED 303448)
         => (<SEND> 303448))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1572] {<PSETQ>})
          (SYSTEM:FASL-OP-FIXED 2882886)
         => (<PSETQ> 2882886))
        (SYSTEM:FASL-OP-INDEX [409] {<CONSTRUCT-SYSTEM-INTERNAL>})
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [792] {<TRANSFORMATION-TRANSFORMATION-TYPE>})
          (SYSTEM:FASL-OP-FIXED 7457407)
         => (<TRANSFORMATION-TRANSFORMATION-TYPE> 7457407))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [866] {<TRANSFORMATION-TYPE-NAME>})
          (SYSTEM:FASL-OP-FIXED 3860254)
         => (<TRANSFORMATION-TYPE-NAME> 3860254))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [569] {<MODULE-SYSTEM>})
          (SYSTEM:FASL-OP-FIXED 7408767)
         => (<MODULE-SYSTEM> 7408767))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [596] {<MODULE-NAME>})
          (SYSTEM:FASL-OP-FIXED 7408755)
         => (<MODULE-NAME> 7408755))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [499] {<XR-BQ-LIST*>})
          (SYSTEM:FASL-OP-FIXED 4336570)
         => (<XR-BQ-LIST*> 4336570))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [472] {<PRINTING-RANDOM-OBJECT>})
          (SYSTEM:FASL-OP-FIXED 1081299)
         => (<PRINTING-RANDOM-OBJECT> 1081299))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [363] {<SYSTEM-NAME>})
          (SYSTEM:FASL-OP-FIXED 6646406)
         => (<SYSTEM-NAME> 6646406))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [206] {<SETF>})
          (SYSTEM:FASL-OP-FIXED 4900792)
         => (<SETF> 4900792))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [127] {<PUSH>})
          (SYSTEM:FASL-OP-FIXED 1986365)
         => (<PUSH> 1986365))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [134] {<XR-BQ-LIST>})
          (SYSTEM:FASL-OP-FIXED 8259275)
         => (<XR-BQ-LIST> 8259275))
       => ((<PATCH-DIRECTORY-INITIAL-STATUS> 4093774) (<PATCH-DIRECTORY-PATHNAME> 4093766) (<PATCH-DIRECTORY-SAME-DIRECTORY-P> 4093762) <MAKE-PATCH-DIRECTORY> (<PATCH-DIRECTORY-PATCH-ATOM> 4093770) (<PKG-BIND> 606858) (<SEND-IF-HANDLES> 8346474) (<LEXPR-SEND> 3957399) <MAKE-TRANSFORMATION> (<SYSTEM-TRANSFORMATIONS> 5165194) <MAKE-TRANSFORMATION-TYPE> (<LOCAL-DECLARE> 2468045) (<TRANSFORMATION-CONDITION-FUNCTION> 7293841) (<CLOSUREP> 384049) (<LET-CLOSED> 5392572) <MAKE-FILE-TRANSFORMATION> (<LOCF> 7870210) (<MODULE-PLIST> 3389335) (<MODULE-COMPONENTS> 7408763) (<POP> 5707025) (<POP-CAREFULLY> 2507773) (<TRANSFORMATION-TYPE-INPUT-FILE-TYPES> 2287390) (<TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES> 5818669) (<CONSP> 5157358) (<TRANSFORMATION-TYPE-PRETTY-IMPERATIVE> 3185594) (<TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE> 6106782) (<DECF> 1480564) (<NEQ> 7171662) (<TRANSFORMATION-TYPE-PRETTY-PAST-PARTICIPLE> 3282331) (<TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE> 6106774) (<SELECTQ> 3812802) (<PUSH*> 4813483) (<FILE-TRANSFORMATION-STATE> 6510596) (<FILE-TRANSFORMATION-TRANSFORMATION-TYPE> 5403693) (<FILE-TRANSFORMATION-ARGS> 5931389) (<FILE-TRANSFORMATION-FORCE-PACKAGE> 7559172) (<FILE-TRANSFORMATION-SYSTEM> 5403685) (<FILE-TRANSFORMATION-CONDITION-FUNCTION> 4413444) (<FILE-TRANSFORMATION-OUTPUTS> 4937732) (<TRANSFORMATION-TYPE-PRETTY-PRESENT-PARTICIPLE> 2660662) (<TRANSFORMATION-TYPE-PRETTY-NAMES> 3335966) (<TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE> 6106778) (<ERROR-RESTART> 3530369) (<TRANSFORMATION-TYPE-FUNCTION> 2811678) (<SECOND> 266235) (<THIRD> 4262879) (<TRANSFORMATION-INPUT> 7293833) (<TRANSFORMATION-SYSTEM> 7293845) (<SYSTEM-TOP-LEVEL-TRANSFORMATIONS> 5165706) (<TRANSFORMATION-DEPENDENCIES> 7458431) (<CATCH-ERROR-RESTART> 1755547) (<WITH-LIST> 1550516) (<WITH-LIST*> 8318855) (<XR-BQ-APPEND> 1150315) <LOOP> (<LOOP-LIST-COLLECTOR> 1534794) (<LOOP-COLLECT-RPLACD> 5409052) <MAKE-MODULE> (<SYSTEM-MODULES> 5168266) (<CASE> 3812802) (<SYSTEM-DEFAULT-BINARY-FILE-TYPE> 6425182) (<FIRST> 2918899) (<SYSTEM-WARNINGS-PATHNAME-DEFAULT> 5375311) (<SYSTEM-PACKAGE-DEFAULT> 852524) (<SYSTEM-MAINTAINING-SITES> 5690925) (<SYSTEM-SHORT-NAME-INTERNAL> 1146739) (<SYSTEM-NICKNAMES> 5491058) (<SYSTEM-SYMBOLIC-NAME> 2932578) (<WHEN> 8359863) (<DOLIST> 3527402) (<SYSTEM-COMPONENT-SYSTEMS> 6646410) (<SYSTEM-PATCHABLE-P> 8078853) (<SYSTEM-PATCH-DIRECTORY> 7812082) (<UNLESS> 3883044) (<LISP:IF> 7699908) (<SYSTEM-PLIST> 5166730) (<INHIBIT-STYLE-WARNINGS> 6275219) (<SEND> 303448) (<PSETQ> 2882886) <CONSTRUCT-SYSTEM-INTERNAL> (<TRANSFORMATION-TRANSFORMATION-TYPE> 7457407) (<TRANSFORMATION-TYPE-NAME> 3860254) (<MODULE-SYSTEM> 7408767) (<MODULE-NAME> 7408755) (<XR-BQ-LIST*> 4336570) (<PRINTING-RANDOM-OBJECT> 1081299) (<SYSTEM-NAME> 6646406) (<SETF> 4900792) (<PUSH> 1986365) (<XR-BQ-LIST> 8259275)))
     => (<GLOBAL:QUOTE> ((<PATCH-DIRECTORY-INITIAL-STATUS> 4093774) (<PATCH-DIRECTORY-PATHNAME> 4093766) (<PATCH-DIRECTORY-SAME-DIRECTORY-P> 4093762) <MAKE-PATCH-DIRECTORY> (<PATCH-DIRECTORY-PATCH-ATOM> 4093770) (<PKG-BIND> 606858) (<SEND-IF-HANDLES> 8346474) (<LEXPR-SEND> 3957399) <MAKE-TRANSFORMATION> (<SYSTEM-TRANSFORMATIONS> 5165194) <MAKE-TRANSFORMATION-TYPE> (<LOCAL-DECLARE> 2468045) (<TRANSFORMATION-CONDITION-FUNCTION> 7293841) (<CLOSUREP> 384049) (<LET-CLOSED> 5392572) <MAKE-FILE-TRANSFORMATION> (<LOCF> 7870210) (<MODULE-PLIST> 3389335) (<MODULE-COMPONENTS> 7408763) (<POP> 5707025) (<POP-CAREFULLY> 2507773) (<TRANSFORMATION-TYPE-INPUT-FILE-TYPES> 2287390) (<TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES> 5818669) (<CONSP> 5157358) (<TRANSFORMATION-TYPE-PRETTY-IMPERATIVE> 3185594) (<TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE> 6106782) (<DECF> 1480564) (<NEQ> 7171662) (<TRANSFORMATION-TYPE-PRETTY-PAST-PARTICIPLE> 3282331) (<TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE> 6106774) (<SELECTQ> 3812802) (<PUSH*> 4813483) (<FILE-TRANSFORMATION-STATE> 6510596) (<FILE-TRANSFORMATION-TRANSFORMATION-TYPE> 5403693) (<FILE-TRANSFORMATION-ARGS> 5931389) (<FILE-TRANSFORMATION-FORCE-PACKAGE> 7559172) (<FILE-TRANSFORMATION-SYSTEM> 5403685) (<FILE-TRANSFORMATION-CONDITION-FUNCTION> 4413444) (<FILE-TRANSFORMATION-OUTPUTS> 4937732) (<TRANSFORMATION-TYPE-PRETTY-PRESENT-PARTICIPLE> 2660662) (<TRANSFORMATION-TYPE-PRETTY-NAMES> 3335966) (<TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE> 6106778) (<ERROR-RESTART> 3530369) (<TRANSFORMATION-TYPE-FUNCTION> 2811678) (<SECOND> 266235) (<THIRD> 4262879) (<TRANSFORMATION-INPUT> 7293833) (<TRANSFORMATION-SYSTEM> 7293845) (<SYSTEM-TOP-LEVEL-TRANSFORMATIONS> 5165706) (<TRANSFORMATION-DEPENDENCIES> 7458431) (<CATCH-ERROR-RESTART> 1755547) (<WITH-LIST> 1550516) (<WITH-LIST*> 8318855) (<XR-BQ-APPEND> 1150315) <LOOP> (<LOOP-LIST-COLLECTOR> 1534794) (<LOOP-COLLECT-RPLACD> 5409052) <MAKE-MODULE> (<SYSTEM-MODULES> 5168266) (<CASE> 3812802) (<SYSTEM-DEFAULT-BINARY-FILE-TYPE> 6425182) (<FIRST> 2918899) (<SYSTEM-WARNINGS-PATHNAME-DEFAULT> 5375311) (<SYSTEM-PACKAGE-DEFAULT> 852524) (<SYSTEM-MAINTAINING-SITES> 5690925) (<SYSTEM-SHORT-NAME-INTERNAL> 1146739) (<SYSTEM-NICKNAMES> 5491058) (<SYSTEM-SYMBOLIC-NAME> 2932578) (<WHEN> 8359863) (<DOLIST> 3527402) (<SYSTEM-COMPONENT-SYSTEMS> 6646410) (<SYSTEM-PATCHABLE-P> 8078853) (<SYSTEM-PATCH-DIRECTORY> 7812082) (<UNLESS> 3883044) (<LISP:IF> 7699908) (<SYSTEM-PLIST> 5166730) (<INHIBIT-STYLE-WARNINGS> 6275219) (<SEND> 303448) (<PSETQ> 2882886) <CONSTRUCT-SYSTEM-INTERNAL> (<TRANSFORMATION-TRANSFORMATION-TYPE> 7457407) (<TRANSFORMATION-TYPE-NAME> 3860254) (<MODULE-SYSTEM> 7408767) (<MODULE-NAME> 7408755) (<XR-BQ-LIST*> 4336570) (<PRINTING-RANDOM-OBJECT> 1081299) (<SYSTEM-NAME> 6646406) (<SETF> 4900792) (<PUSH> 1986365) (<XR-BQ-LIST> 8259275))))
   => (<FASL-RECORD-FILE-MACROS-EXPANDED> (<GLOBAL:QUOTE> ((<PATCH-DIRECTORY-INITIAL-STATUS> 4093774) (<PATCH-DIRECTORY-PATHNAME> 4093766) (<PATCH-DIRECTORY-SAME-DIRECTORY-P> 4093762) <MAKE-PATCH-DIRECTORY> (<PATCH-DIRECTORY-PATCH-ATOM> 4093770) (<PKG-BIND> 606858) (<SEND-IF-HANDLES> 8346474) (<LEXPR-SEND> 3957399) <MAKE-TRANSFORMATION> (<SYSTEM-TRANSFORMATIONS> 5165194) <MAKE-TRANSFORMATION-TYPE> (<LOCAL-DECLARE> 2468045) (<TRANSFORMATION-CONDITION-FUNCTION> 7293841) (<CLOSUREP> 384049) (<LET-CLOSED> 5392572) <MAKE-FILE-TRANSFORMATION> (<LOCF> 7870210) (<MODULE-PLIST> 3389335) (<MODULE-COMPONENTS> 7408763) (<POP> 5707025) (<POP-CAREFULLY> 2507773) (<TRANSFORMATION-TYPE-INPUT-FILE-TYPES> 2287390) (<TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES> 5818669) (<CONSP> 5157358) (<TRANSFORMATION-TYPE-PRETTY-IMPERATIVE> 3185594) (<TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE> 6106782) (<DECF> 1480564) (<NEQ> 7171662) (<TRANSFORMATION-TYPE-PRETTY-PAST-PARTICIPLE> 3282331) (<TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE> 6106774) (<SELECTQ> 3812802) (<PUSH*> 4813483) (<FILE-TRANSFORMATION-STATE> 6510596) (<FILE-TRANSFORMATION-TRANSFORMATION-TYPE> 5403693) (<FILE-TRANSFORMATION-ARGS> 5931389) (<FILE-TRANSFORMATION-FORCE-PACKAGE> 7559172) (<FILE-TRANSFORMATION-SYSTEM> 5403685) (<FILE-TRANSFORMATION-CONDITION-FUNCTION> 4413444) (<FILE-TRANSFORMATION-OUTPUTS> 4937732) (<TRANSFORMATION-TYPE-PRETTY-PRESENT-PARTICIPLE> 2660662) (<TRANSFORMATION-TYPE-PRETTY-NAMES> 3335966) (<TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE> 6106778) (<ERROR-RESTART> 3530369) (<TRANSFORMATION-TYPE-FUNCTION> 2811678) (<SECOND> 266235) (<THIRD> 4262879) (<TRANSFORMATION-INPUT> 7293833) (<TRANSFORMATION-SYSTEM> 7293845) (<SYSTEM-TOP-LEVEL-TRANSFORMATIONS> 5165706) (<TRANSFORMATION-DEPENDENCIES> 7458431) (<CATCH-ERROR-RESTART> 1755547) (<WITH-LIST> 1550516) (<WITH-LIST*> 8318855) (<XR-BQ-APPEND> 1150315) <LOOP> (<LOOP-LIST-COLLECTOR> 1534794) (<LOOP-COLLECT-RPLACD> 5409052) <MAKE-MODULE> (<SYSTEM-MODULES> 5168266) (<CASE> 3812802) (<SYSTEM-DEFAULT-BINARY-FILE-TYPE> 6425182) (<FIRST> 2918899) (<SYSTEM-WARNINGS-PATHNAME-DEFAULT> 5375311) (<SYSTEM-PACKAGE-DEFAULT> 852524) (<SYSTEM-MAINTAINING-SITES> 5690925) (<SYSTEM-SHORT-NAME-INTERNAL> 1146739) (<SYSTEM-NICKNAMES> 5491058) (<SYSTEM-SYMBOLIC-NAME> 2932578) (<WHEN> 8359863) (<DOLIST> 3527402) (<SYSTEM-COMPONENT-SYSTEMS> 6646410) (<SYSTEM-PATCHABLE-P> 8078853) (<SYSTEM-PATCH-DIRECTORY> 7812082) (<UNLESS> 3883044) (<LISP:IF> 7699908) (<SYSTEM-PLIST> 5166730) (<INHIBIT-STYLE-WARNINGS> 6275219) (<SEND> 303448) (<PSETQ> 2882886) <CONSTRUCT-SYSTEM-INTERNAL> (<TRANSFORMATION-TRANSFORMATION-TYPE> 7457407) (<TRANSFORMATION-TYPE-NAME> 3860254) (<MODULE-SYSTEM> 7408767) (<MODULE-NAME> 7408755) (<XR-BQ-LIST*> 4336570) (<PRINTING-RANDOM-OBJECT> 1081299) (<SYSTEM-NAME> 6646406) (<SETF> 4900792) (<PUSH> 1986365) (<XR-BQ-LIST> 8259275)))))
  (EVAL '(<FASL-RECORD-FILE-MACROS-EXPANDED> (<GLOBAL:QUOTE> ((<PATCH-DIRECTORY-INITIAL-STATUS> 4093774) (<PATCH-DIRECTORY-PATHNAME> 4093766) (<PATCH-DIRECTORY-SAME-DIRECTORY-P> 4093762) <MAKE-PATCH-DIRECTORY> (<PATCH-DIRECTORY-PATCH-ATOM> 4093770) (<PKG-BIND> 606858) (<SEND-IF-HANDLES> 8346474) (<LEXPR-SEND> 3957399) <MAKE-TRANSFORMATION> (<SYSTEM-TRANSFORMATIONS> 5165194) <MAKE-TRANSFORMATION-TYPE> (<LOCAL-DECLARE> 2468045) (<TRANSFORMATION-CONDITION-FUNCTION> 7293841) (<CLOSUREP> 384049) (<LET-CLOSED> 5392572) <MAKE-FILE-TRANSFORMATION> (<LOCF> 7870210) (<MODULE-PLIST> 3389335) (<MODULE-COMPONENTS> 7408763) (<POP> 5707025) (<POP-CAREFULLY> 2507773) (<TRANSFORMATION-TYPE-INPUT-FILE-TYPES> 2287390) (<TRANSFORMATION-TYPE-OUTPUT-FILE-TYPES> 5818669) (<CONSP> 5157358) (<TRANSFORMATION-TYPE-PRETTY-IMPERATIVE> 3185594) (<TRANSFORMATION-TYPE-PRETTY-NAMES-IMPERATIVE> 6106782) (<DECF> 1480564) (<NEQ> 7171662) (<TRANSFORMATION-TYPE-PRETTY-PAST-PARTICIPLE> 3282331) (<TRANSFORMATION-TYPE-PRETTY-NAMES-PAST-PARTICIPLE> 6106774) (<SELECTQ> 3812802) (<PUSH*> 4813483) (<FILE-TRANSFORMATION-STATE> 6510596) (<FILE-TRANSFORMATION-TRANSFORMATION-TYPE> 5403693) (<FILE-TRANSFORMATION-ARGS> 5931389) (<FILE-TRANSFORMATION-FORCE-PACKAGE> 7559172) (<FILE-TRANSFORMATION-SYSTEM> 5403685) (<FILE-TRANSFORMATION-CONDITION-FUNCTION> 4413444) (<FILE-TRANSFORMATION-OUTPUTS> 4937732) (<TRANSFORMATION-TYPE-PRETTY-PRESENT-PARTICIPLE> 2660662) (<TRANSFORMATION-TYPE-PRETTY-NAMES> 3335966) (<TRANSFORMATION-TYPE-PRETTY-NAMES-PRESENT-PARTICIPLE> 6106778) (<ERROR-RESTART> 3530369) (<TRANSFORMATION-TYPE-FUNCTION> 2811678) (<SECOND> 266235) (<THIRD> 4262879) (<TRANSFORMATION-INPUT> 7293833) (<TRANSFORMATION-SYSTEM> 7293845) (<SYSTEM-TOP-LEVEL-TRANSFORMATIONS> 5165706) (<TRANSFORMATION-DEPENDENCIES> 7458431) (<CATCH-ERROR-RESTART> 1755547) (<WITH-LIST> 1550516) (<WITH-LIST*> 8318855) (<XR-BQ-APPEND> 1150315) <LOOP> (<LOOP-LIST-COLLECTOR> 1534794) (<LOOP-COLLECT-RPLACD> 5409052) <MAKE-MODULE> (<SYSTEM-MODULES> 5168266) (<CASE> 3812802) (<SYSTEM-DEFAULT-BINARY-FILE-TYPE> 6425182) (<FIRST> 2918899) (<SYSTEM-WARNINGS-PATHNAME-DEFAULT> 5375311) (<SYSTEM-PACKAGE-DEFAULT> 852524) (<SYSTEM-MAINTAINING-SITES> 5690925) (<SYSTEM-SHORT-NAME-INTERNAL> 1146739) (<SYSTEM-NICKNAMES> 5491058) (<SYSTEM-SYMBOLIC-NAME> 2932578) (<WHEN> 8359863) (<DOLIST> 3527402) (<SYSTEM-COMPONENT-SYSTEMS> 6646410) (<SYSTEM-PATCHABLE-P> 8078853) (<SYSTEM-PATCH-DIRECTORY> 7812082) (<UNLESS> 3883044) (<LISP:IF> 7699908) (<SYSTEM-PLIST> 5166730) (<INHIBIT-STYLE-WARNINGS> 6275219) (<SEND> 303448) (<PSETQ> 2882886) <CONSTRUCT-SYSTEM-INTERNAL> (<TRANSFORMATION-TRANSFORMATION-TYPE> 7457407) (<TRANSFORMATION-TYPE-NAME> 3860254) (<MODULE-SYSTEM> 7408767) (<MODULE-NAME> 7408755) (<XR-BQ-LIST*> 4336570) (<PRINTING-RANDOM-OBJECT> 1081299) (<SYSTEM-NAME> 6646406) (<SETF> 4900792) (<PUSH> 1986365) (<XR-BQ-LIST> 8259275))))))

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

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