; -*- Mode:TEXT -*-
; This is the UNFASL for DJ: L.PATCH; SYSTEM-126-46.QFASL#1


(FASL-OP-VERSION-INFO
  (FASL-OP-PACKAGE-SYMBOL
    (FASL-OP-STRING "")
    (FASL-OP-STRING "LAMBDA")
    <:LAMBDA>)
  (FASL-OP-FIXED 1))
(FASL-OP-END-OF-WHACK)
(FASL-OP-STRING "SYS: SYS; QFASL  ")
(FASL-OP-STOREIN-SYMBOL-VALUE [32] {"SYS: SYS; QFASL  "}
  (FASL-OP-PACKAGE-SYMBOL
    (FASL-OP-STRING "SI")
    (FASL-OP-STRING "PATCH-SOURCE-FILE-NAMESTRING")
    <SI:PATCH-SOURCE-FILE-NAMESTRING>))
(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-INDEX [33] {"SI"})
      (FASL-OP-STRING "DEFCONST-1")
      <SI:DEFCONST-1>)
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-STRING "SYSTEM")
      (FASL-OP-STRING "FASL-OPS")
      <SYSTEM:FASL-OPS>)
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-STRING "GLOBAL")
        (FASL-OP-STRING "QUOTE")
        <GLOBAL:QUOTE>)
      (FASL-OP-LIST [64] Area=WORKING-STORAGE-AREA
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-ERR")
          <SYSTEM:FASL-OP-ERR>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-NOOP")
          <SYSTEM:FASL-OP-NOOP>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-INDEX")
          <SYSTEM:FASL-OP-INDEX>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-SYMBOL")
          <SYSTEM:FASL-OP-SYMBOL>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-LIST")
          <SYSTEM:FASL-OP-LIST>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-TEMP-LIST")
          <SYSTEM:FASL-OP-TEMP-LIST>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-FIXED")
          <SYSTEM:FASL-OP-FIXED>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-FLOAT")
          <SYSTEM:FASL-OP-FLOAT>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-ARRAY")
          <SYSTEM:FASL-OP-ARRAY>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-EVAL")
          <SYSTEM:FASL-OP-EVAL>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-MOVE")
          <SYSTEM:FASL-OP-MOVE>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-FRAME")
          <SYSTEM:FASL-OP-FRAME>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-LIST-COMPONENT")
          <SYSTEM:FASL-OP-LIST-COMPONENT>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-ARRAY-PUSH")
          <SYSTEM:FASL-OP-ARRAY-PUSH>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-STOREIN-SYMBOL-VALUE")
          <SYSTEM:FASL-OP-STOREIN-SYMBOL-VALUE>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-STOREIN-FUNCTION-CELL")
          <SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-STOREIN-PROPERTY-CELL")
          <SYSTEM:FASL-OP-STOREIN-PROPERTY-CELL>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-FETCH-SYMBOL-VALUE")
          <SYSTEM:FASL-OP-FETCH-SYMBOL-VALUE>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-FETCH-FUNCTION-CELL")
          <SYSTEM:FASL-OP-FETCH-FUNCTION-CELL>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-FETCH-PROPERTY-CELL")
          <SYSTEM:FASL-OP-FETCH-PROPERTY-CELL>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-APPLY")
          <SYSTEM:FASL-OP-APPLY>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-END-OF-WHACK")
          <SYSTEM:FASL-OP-END-OF-WHACK>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-END-OF-FILE")
          <SYSTEM:FASL-OP-END-OF-FILE>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-SOAK")
          <SYSTEM:FASL-OP-SOAK>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-FUNCTION-HEADER")
          <SYSTEM:FASL-OP-FUNCTION-HEADER>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-FUNCTION-END")
          <SYSTEM:FASL-OP-FUNCTION-END>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-NULL-ARRAY-ELEMENT")
          <SYSTEM:FASL-OP-NULL-ARRAY-ELEMENT>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-NEW-FLOAT")
          <SYSTEM:FASL-OP-NEW-FLOAT>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-UNUSED10")
          <SYSTEM:FASL-OP-UNUSED10>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-UNUSED11")
          <SYSTEM:FASL-OP-UNUSED11>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-UNUSED12")
          <SYSTEM:FASL-OP-UNUSED12>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-QUOTE-POINTER")
          <SYSTEM:FASL-OP-QUOTE-POINTER>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-S-V-CELL")
          <SYSTEM:FASL-OP-S-V-CELL>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-FUNCELL")
          <SYSTEM:FASL-OP-FUNCELL>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-CONST-PAGE")
          <SYSTEM:FASL-OP-CONST-PAGE>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-SET-PARAMETER")
          <SYSTEM:FASL-OP-SET-PARAMETER>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-INITIALIZE-ARRAY")
          <SYSTEM:FASL-OP-INITIALIZE-ARRAY>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-CHARACTER")
          <SYSTEM:FASL-OP-CHARACTER>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-UNUSED1")
          <SYSTEM:FASL-OP-UNUSED1>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-UNUSED2")
          <SYSTEM:FASL-OP-UNUSED2>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-UNUSED3")
          <SYSTEM:FASL-OP-UNUSED3>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-UNUSED4")
          <SYSTEM:FASL-OP-UNUSED4>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-UNUSED5")
          <SYSTEM:FASL-OP-UNUSED5>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-UNUSED6")
          <SYSTEM:FASL-OP-UNUSED6>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-STRING")
          <SYSTEM:FASL-OP-STRING>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-STOREIN-ARRAY-LEADER")
          <SYSTEM:FASL-OP-STOREIN-ARRAY-LEADER>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-INITIALIZE-NUMERIC-ARRAY")
          <SYSTEM:FASL-OP-INITIALIZE-NUMERIC-ARRAY>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-REMOTE-VARIABLE")
          <SYSTEM:FASL-OP-REMOTE-VARIABLE>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-PACKAGE-SYMBOL")
          <SYSTEM:FASL-OP-PACKAGE-SYMBOL>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-EVAL1")
          <SYSTEM:FASL-OP-EVAL1>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-FILE-PROPERTY-LIST")
          <SYSTEM:FASL-OP-FILE-PROPERTY-LIST>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-REL-FILE")
          <SYSTEM:FASL-OP-REL-FILE>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-RATIONAL")
          <SYSTEM:FASL-OP-RATIONAL>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-COMPLEX")
          <SYSTEM:FASL-OP-COMPLEX>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-LARGE-INDEX")
          <SYSTEM:FASL-OP-LARGE-INDEX>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [38] {"SYSTEM"})
          (FASL-OP-STRING "FASL-OP-STOREIN-SYMBOL-CELL")
          <SYSTEM:FASL-OP-STOREIN-SYMBOL-CELL>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [33] {"SI"})
          (FASL-OP-STRING "FASL-OP-VERSION-INFO")
          <SI:FASL-OP-VERSION-INFO>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [33] {"SI"})
          (FASL-OP-STRING "FASL-OP-K-COMPILED-FUNCTION")
          <SI:FASL-OP-K-COMPILED-FUNCTION>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [33] {"SI"})
          (FASL-OP-STRING "FASL-OP-UNUSED13")
          <SI:FASL-OP-UNUSED13>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [33] {"SI"})
          (FASL-OP-STRING "FASL-OP-UNUSED14")
          <SI:FASL-OP-UNUSED14>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [33] {"SI"})
          (FASL-OP-STRING "FASL-OP-K-LOCAL-REFS")
          <SI:FASL-OP-K-LOCAL-REFS>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [33] {"SI"})
          (FASL-OP-STRING "FASL-OP-K-REFS")
          <SI:FASL-OP-K-REFS>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [33] {"SI"})
          (FASL-OP-STRING "FASL-OP-K-ENTRY-POINTS")
          <SI:FASL-OP-K-ENTRY-POINTS>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [33] {"SI"})
          (FASL-OP-STRING "FASL-OP-UNUSED15")
          <SI:FASL-OP-UNUSED15>)
       => (<SYSTEM:FASL-OP-ERR> <SYSTEM:FASL-OP-NOOP> <SYSTEM:FASL-OP-INDEX> <SYSTEM:FASL-OP-SYMBOL> <SYSTEM:FASL-OP-LIST> <SYSTEM:FASL-OP-TEMP-LIST> <SYSTEM:FASL-OP-FIXED> <SYSTEM:FASL-OP-FLOAT> <SYSTEM:FASL-OP-ARRAY> <SYSTEM:FASL-OP-EVAL> <SYSTEM:FASL-OP-MOVE> <SYSTEM:FASL-OP-FRAME> <SYSTEM:FASL-OP-LIST-COMPONENT> <SYSTEM:FASL-OP-ARRAY-PUSH> <SYSTEM:FASL-OP-STOREIN-SYMBOL-VALUE> <SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL> <SYSTEM:FASL-OP-STOREIN-PROPERTY-CELL> <SYSTEM:FASL-OP-FETCH-SYMBOL-VALUE> <SYSTEM:FASL-OP-FETCH-FUNCTION-CELL> <SYSTEM:FASL-OP-FETCH-PROPERTY-CELL> <SYSTEM:FASL-OP-APPLY> <SYSTEM:FASL-OP-END-OF-WHACK> <SYSTEM:FASL-OP-END-OF-FILE> <SYSTEM:FASL-OP-SOAK> <SYSTEM:FASL-OP-FUNCTION-HEADER> <SYSTEM:FASL-OP-FUNCTION-END> <SYSTEM:FASL-OP-NULL-ARRAY-ELEMENT> <SYSTEM:FASL-OP-NEW-FLOAT> <SYSTEM:FASL-OP-UNUSED10> <SYSTEM:FASL-OP-UNUSED11> <SYSTEM:FASL-OP-UNUSED12> <SYSTEM:FASL-OP-QUOTE-POINTER> <SYSTEM:FASL-OP-S-V-CELL> <SYSTEM:FASL-OP-FUNCELL> <SYSTEM:FASL-OP-CONST-PAGE> <SYSTEM:FASL-OP-SET-PARAMETER> <SYSTEM:FASL-OP-INITIALIZE-ARRAY> <SYSTEM:FASL-OP-CHARACTER> <SYSTEM:FASL-OP-UNUSED1> <SYSTEM:FASL-OP-UNUSED2> <SYSTEM:FASL-OP-UNUSED3> <SYSTEM:FASL-OP-UNUSED4> <SYSTEM:FASL-OP-UNUSED5> <SYSTEM:FASL-OP-UNUSED6> <SYSTEM:FASL-OP-STRING> <SYSTEM:FASL-OP-STOREIN-ARRAY-LEADER> <SYSTEM:FASL-OP-INITIALIZE-NUMERIC-ARRAY> <SYSTEM:FASL-OP-REMOTE-VARIABLE> <SYSTEM:FASL-OP-PACKAGE-SYMBOL> <SYSTEM:FASL-OP-EVAL1> <SYSTEM:FASL-OP-FILE-PROPERTY-LIST> <SYSTEM:FASL-OP-REL-FILE> <SYSTEM:FASL-OP-RATIONAL> <SYSTEM:FASL-OP-COMPLEX> <SYSTEM:FASL-OP-LARGE-INDEX> <SYSTEM:FASL-OP-STOREIN-SYMBOL-CELL> <SI:FASL-OP-VERSION-INFO> <SI:FASL-OP-K-COMPILED-FUNCTION> <SI:FASL-OP-UNUSED13> <SI:FASL-OP-UNUSED14> <SI:FASL-OP-K-LOCAL-REFS> <SI:FASL-OP-K-REFS> <SI:FASL-OP-K-ENTRY-POINTS> <SI:FASL-OP-UNUSED15>))
     => (<GLOBAL:QUOTE> (<SYSTEM:FASL-OP-ERR> <SYSTEM:FASL-OP-NOOP> <SYSTEM:FASL-OP-INDEX> <SYSTEM:FASL-OP-SYMBOL> <SYSTEM:FASL-OP-LIST> <SYSTEM:FASL-OP-TEMP-LIST> <SYSTEM:FASL-OP-FIXED> <SYSTEM:FASL-OP-FLOAT> <SYSTEM:FASL-OP-ARRAY> <SYSTEM:FASL-OP-EVAL> <SYSTEM:FASL-OP-MOVE> <SYSTEM:FASL-OP-FRAME> <SYSTEM:FASL-OP-LIST-COMPONENT> <SYSTEM:FASL-OP-ARRAY-PUSH> <SYSTEM:FASL-OP-STOREIN-SYMBOL-VALUE> <SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL> <SYSTEM:FASL-OP-STOREIN-PROPERTY-CELL> <SYSTEM:FASL-OP-FETCH-SYMBOL-VALUE> <SYSTEM:FASL-OP-FETCH-FUNCTION-CELL> <SYSTEM:FASL-OP-FETCH-PROPERTY-CELL> <SYSTEM:FASL-OP-APPLY> <SYSTEM:FASL-OP-END-OF-WHACK> <SYSTEM:FASL-OP-END-OF-FILE> <SYSTEM:FASL-OP-SOAK> <SYSTEM:FASL-OP-FUNCTION-HEADER> <SYSTEM:FASL-OP-FUNCTION-END> <SYSTEM:FASL-OP-NULL-ARRAY-ELEMENT> <SYSTEM:FASL-OP-NEW-FLOAT> <SYSTEM:FASL-OP-UNUSED10> <SYSTEM:FASL-OP-UNUSED11> <SYSTEM:FASL-OP-UNUSED12> <SYSTEM:FASL-OP-QUOTE-POINTER> <SYSTEM:FASL-OP-S-V-CELL> <SYSTEM:FASL-OP-FUNCELL> <SYSTEM:FASL-OP-CONST-PAGE> <SYSTEM:FASL-OP-SET-PARAMETER> <SYSTEM:FASL-OP-INITIALIZE-ARRAY> <SYSTEM:FASL-OP-CHARACTER> <SYSTEM:FASL-OP-UNUSED1> <SYSTEM:FASL-OP-UNUSED2> <SYSTEM:FASL-OP-UNUSED3> <SYSTEM:FASL-OP-UNUSED4> <SYSTEM:FASL-OP-UNUSED5> <SYSTEM:FASL-OP-UNUSED6> <SYSTEM:FASL-OP-STRING> <SYSTEM:FASL-OP-STOREIN-ARRAY-LEADER> <SYSTEM:FASL-OP-INITIALIZE-NUMERIC-ARRAY> <SYSTEM:FASL-OP-REMOTE-VARIABLE> <SYSTEM:FASL-OP-PACKAGE-SYMBOL> <SYSTEM:FASL-OP-EVAL1> <SYSTEM:FASL-OP-FILE-PROPERTY-LIST> <SYSTEM:FASL-OP-REL-FILE> <SYSTEM:FASL-OP-RATIONAL> <SYSTEM:FASL-OP-COMPLEX> <SYSTEM:FASL-OP-LARGE-INDEX> <SYSTEM:FASL-OP-STOREIN-SYMBOL-CELL> <SI:FASL-OP-VERSION-INFO> <SI:FASL-OP-K-COMPILED-FUNCTION> <SI:FASL-OP-UNUSED13> <SI:FASL-OP-UNUSED14> <SI:FASL-OP-K-LOCAL-REFS> <SI:FASL-OP-K-REFS> <SI:FASL-OP-K-ENTRY-POINTS> <SI:FASL-OP-UNUSED15>)))
   => (<SI:DEFCONST-1> <SYSTEM:FASL-OPS> (<GLOBAL:QUOTE> (<SYSTEM:FASL-OP-ERR> <SYSTEM:FASL-OP-NOOP> <SYSTEM:FASL-OP-INDEX> <SYSTEM:FASL-OP-SYMBOL> <SYSTEM:FASL-OP-LIST> <SYSTEM:FASL-OP-TEMP-LIST> <SYSTEM:FASL-OP-FIXED> <SYSTEM:FASL-OP-FLOAT> <SYSTEM:FASL-OP-ARRAY> <SYSTEM:FASL-OP-EVAL> <SYSTEM:FASL-OP-MOVE> <SYSTEM:FASL-OP-FRAME> <SYSTEM:FASL-OP-LIST-COMPONENT> <SYSTEM:FASL-OP-ARRAY-PUSH> <SYSTEM:FASL-OP-STOREIN-SYMBOL-VALUE> <SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL> <SYSTEM:FASL-OP-STOREIN-PROPERTY-CELL> <SYSTEM:FASL-OP-FETCH-SYMBOL-VALUE> <SYSTEM:FASL-OP-FETCH-FUNCTION-CELL> <SYSTEM:FASL-OP-FETCH-PROPERTY-CELL> <SYSTEM:FASL-OP-APPLY> <SYSTEM:FASL-OP-END-OF-WHACK> <SYSTEM:FASL-OP-END-OF-FILE> <SYSTEM:FASL-OP-SOAK> <SYSTEM:FASL-OP-FUNCTION-HEADER> <SYSTEM:FASL-OP-FUNCTION-END> <SYSTEM:FASL-OP-NULL-ARRAY-ELEMENT> <SYSTEM:FASL-OP-NEW-FLOAT> <SYSTEM:FASL-OP-UNUSED10> <SYSTEM:FASL-OP-UNUSED11> <SYSTEM:FASL-OP-UNUSED12> <SYSTEM:FASL-OP-QUOTE-POINTER> <SYSTEM:FASL-OP-S-V-CELL> <SYSTEM:FASL-OP-FUNCELL> <SYSTEM:FASL-OP-CONST-PAGE> <SYSTEM:FASL-OP-SET-PARAMETER> <SYSTEM:FASL-OP-INITIALIZE-ARRAY> <SYSTEM:FASL-OP-CHARACTER> <SYSTEM:FASL-OP-UNUSED1> <SYSTEM:FASL-OP-UNUSED2> <SYSTEM:FASL-OP-UNUSED3> <SYSTEM:FASL-OP-UNUSED4> <SYSTEM:FASL-OP-UNUSED5> <SYSTEM:FASL-OP-UNUSED6> <SYSTEM:FASL-OP-STRING> <SYSTEM:FASL-OP-STOREIN-ARRAY-LEADER> <SYSTEM:FASL-OP-INITIALIZE-NUMERIC-ARRAY> <SYSTEM:FASL-OP-REMOTE-VARIABLE> <SYSTEM:FASL-OP-PACKAGE-SYMBOL> <SYSTEM:FASL-OP-EVAL1> <SYSTEM:FASL-OP-FILE-PROPERTY-LIST> <SYSTEM:FASL-OP-REL-FILE> <SYSTEM:FASL-OP-RATIONAL> <SYSTEM:FASL-OP-COMPLEX> <SYSTEM:FASL-OP-LARGE-INDEX> <SYSTEM:FASL-OP-STOREIN-SYMBOL-CELL> <SI:FASL-OP-VERSION-INFO> <SI:FASL-OP-K-COMPILED-FUNCTION> <SI:FASL-OP-UNUSED13> <SI:FASL-OP-UNUSED14> <SI:FASL-OP-K-LOCAL-REFS> <SI:FASL-OP-K-REFS> <SI:FASL-OP-K-ENTRY-POINTS> <SI:FASL-OP-UNUSED15>))))
  (EVAL '(<SI:DEFCONST-1> <SYSTEM:FASL-OPS> (<GLOBAL:QUOTE> (<SYSTEM:FASL-OP-ERR> <SYSTEM:FASL-OP-NOOP> <SYSTEM:FASL-OP-INDEX> <SYSTEM:FASL-OP-SYMBOL> <SYSTEM:FASL-OP-LIST> <SYSTEM:FASL-OP-TEMP-LIST> <SYSTEM:FASL-OP-FIXED> <SYSTEM:FASL-OP-FLOAT> <SYSTEM:FASL-OP-ARRAY> <SYSTEM:FASL-OP-EVAL> <SYSTEM:FASL-OP-MOVE> <SYSTEM:FASL-OP-FRAME> <SYSTEM:FASL-OP-LIST-COMPONENT> <SYSTEM:FASL-OP-ARRAY-PUSH> <SYSTEM:FASL-OP-STOREIN-SYMBOL-VALUE> <SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL> <SYSTEM:FASL-OP-STOREIN-PROPERTY-CELL> <SYSTEM:FASL-OP-FETCH-SYMBOL-VALUE> <SYSTEM:FASL-OP-FETCH-FUNCTION-CELL> <SYSTEM:FASL-OP-FETCH-PROPERTY-CELL> <SYSTEM:FASL-OP-APPLY> <SYSTEM:FASL-OP-END-OF-WHACK> <SYSTEM:FASL-OP-END-OF-FILE> <SYSTEM:FASL-OP-SOAK> <SYSTEM:FASL-OP-FUNCTION-HEADER> <SYSTEM:FASL-OP-FUNCTION-END> <SYSTEM:FASL-OP-NULL-ARRAY-ELEMENT> <SYSTEM:FASL-OP-NEW-FLOAT> <SYSTEM:FASL-OP-UNUSED10> <SYSTEM:FASL-OP-UNUSED11> <SYSTEM:FASL-OP-UNUSED12> <SYSTEM:FASL-OP-QUOTE-POINTER> <SYSTEM:FASL-OP-S-V-CELL> <SYSTEM:FASL-OP-FUNCELL> <SYSTEM:FASL-OP-CONST-PAGE> <SYSTEM:FASL-OP-SET-PARAMETER> <SYSTEM:FASL-OP-INITIALIZE-ARRAY> <SYSTEM:FASL-OP-CHARACTER> <SYSTEM:FASL-OP-UNUSED1> <SYSTEM:FASL-OP-UNUSED2> <SYSTEM:FASL-OP-UNUSED3> <SYSTEM:FASL-OP-UNUSED4> <SYSTEM:FASL-OP-UNUSED5> <SYSTEM:FASL-OP-UNUSED6> <SYSTEM:FASL-OP-STRING> <SYSTEM:FASL-OP-STOREIN-ARRAY-LEADER> <SYSTEM:FASL-OP-INITIALIZE-NUMERIC-ARRAY> <SYSTEM:FASL-OP-REMOTE-VARIABLE> <SYSTEM:FASL-OP-PACKAGE-SYMBOL> <SYSTEM:FASL-OP-EVAL1> <SYSTEM:FASL-OP-FILE-PROPERTY-LIST> <SYSTEM:FASL-OP-REL-FILE> <SYSTEM:FASL-OP-RATIONAL> <SYSTEM:FASL-OP-COMPLEX> <SYSTEM:FASL-OP-LARGE-INDEX> <SYSTEM:FASL-OP-STOREIN-SYMBOL-CELL> <SI:FASL-OP-VERSION-INFO> <SI:FASL-OP-K-COMPILED-FUNCTION> <SI:FASL-OP-UNUSED13> <SI:FASL-OP-UNUSED14> <SI:FASL-OP-K-LOCAL-REFS> <SI:FASL-OP-K-REFS> <SI:FASL-OP-K-ENTRY-POINTS> <SI:FASL-OP-UNUSED15>)))))
(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-INDEX [41] {"GLOBAL"})
      (FASL-OP-STRING "ASSIGN-VALUES")
      <GLOBAL:ASSIGN-VALUES>)
    (FASL-OP-INDEX [40] {<SYSTEM:FASL-OPS>})
    (FASL-OP-FIXED 0)
   => (<GLOBAL:ASSIGN-VALUES> <SYSTEM:FASL-OPS> 0))
  (EVAL '(<GLOBAL:ASSIGN-VALUES> <SYSTEM:FASL-OPS> 0)))
(FASL-OP-FRAME
<SI:FASL-RESTART>
 30 SET-NIL FEF|9  ;':LAST-FASL-FILE-FORMS
 31 PUSH-NUMBER 64
 32 PUSH FEF|8  ;':FASL-OPS
 33 (MISC) LENGTH D-PDL
 34 POP LOCAL|1
 35 POP LOCAL|0
 36 PUSH LOCAL|1
 37 > LOCAL|0
 38 BR-NIL 43
 39 CALL D-IGNORE FEF|10  ;':GLOBAL
 40 PUSH FEF|11  ;'"Too many FASL ops defined.  Limit is ~D, but ~D are defined."
 41 PUSH LOCAL|0
 42 MOVE D-LAST LOCAL|1
 43 CALL D-PDL FEF|12  ;':SI
 44 PUSH FEF|8  ;':FASL-OPS
 45 (MISC) LENGTH D-PDL
 46 PUSH FEF|13  ;'<GLOBAL:ART-Q>
 47 MOVE D-LAST FEF|6  ;':CONTROL-TABLES
 48 POP FEF|7  ;':FASL-GROUP-DISPATCH
 49 PUSH-NUMBER 0
 50 PUSH FEF|8  ;':FASL-OPS
 51 PUSH FEF|8  ;':FASL-OPS
 52 (MISC) LENGTH D-PDL
 53 POP LOCAL|4
 54 POP LOCAL|3
 55 POP LOCAL|2
 56 BR 63
 57 PUSH FEF|7  ;':FASL-GROUP-DISPATCH
 58 PUSH LOCAL|2
 59 CAR D-PDL LOCAL|3
 60 (MISC) SET-AR-1 D-IGNORE
 61 INCF LOCAL|2
 62 SETE-CDR LOCAL|3
 63 PUSH LOCAL|2
 64 < LOCAL|4
 65 BR-NOT-NIL 57
 66 MOVE D-RETURN 'NIL
)
(FASL-OP-STOREIN-FUNCTION-CELL [238] {#<DTP-FEF-POINTER <SI:FASL-RESTART> 60762704>}
  (FASL-OP-INDEX [184] {<SI:FASL-RESTART>}))
(FASL-OP-EVAL1
  (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [184] {<SI:FASL-RESTART>})
   => (<SI:FASL-RESTART>))
  (EVAL '(<SI:FASL-RESTART>)))
(FASL-OP-PACKAGE-SYMBOL
  (FASL-OP-INDEX [41] {"GLOBAL"})
  (FASL-OP-STRING "NIL")
  <GLOBAL:NIL>)
(FASL-OP-STOREIN-SYMBOL-VALUE [242] {<GLOBAL:NIL>}
  (FASL-OP-INDEX [35] {<SI:PATCH-SOURCE-FILE-NAMESTRING>}))
(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-INDEX [33] {"SI"})
      (FASL-OP-STRING "FASL-RECORD-FILE-MACROS-EXPANDED")
      <SI:FASL-RECORD-FILE-MACROS-EXPANDED>)
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [43] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [211] {<GLOBAL:WHEN>})
          (FASL-OP-FIXED 8359863)
         => (<GLOBAL:WHEN> 8359863))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [209] {<GLOBAL:BYTE-SIZE>})
          (FASL-OP-FIXED 4640698)
         => (<GLOBAL:BYTE-SIZE> 4640698))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [207] {<GLOBAL:SETF>})
          (FASL-OP-FIXED 4900792)
         => (<GLOBAL:SETF> 4900792))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [205] {<GLOBAL:PSETQ>})
          (FASL-OP-FIXED 2882886)
         => (<GLOBAL:PSETQ> 2882886))
       => ((<GLOBAL:WHEN> 8359863) (<GLOBAL:BYTE-SIZE> 4640698) (<GLOBAL:SETF> 4900792) (<GLOBAL:PSETQ> 2882886)))
     => (<GLOBAL:QUOTE> ((<GLOBAL:WHEN> 8359863) (<GLOBAL:BYTE-SIZE> 4640698) (<GLOBAL:SETF> 4900792) (<GLOBAL:PSETQ> 2882886))))
   => (<SI:FASL-RECORD-FILE-MACROS-EXPANDED> (<GLOBAL:QUOTE> ((<GLOBAL:WHEN> 8359863) (<GLOBAL:BYTE-SIZE> 4640698) (<GLOBAL:SETF> 4900792) (<GLOBAL:PSETQ> 2882886)))))
  (EVAL '(<SI:FASL-RECORD-FILE-MACROS-EXPANDED> (<GLOBAL:QUOTE> ((<GLOBAL:WHEN> 8359863) (<GLOBAL:BYTE-SIZE> 4640698) (<GLOBAL:SETF> 4900792) (<GLOBAL:PSETQ> 2882886))))))
(FASL-OP-END-OF-WHACK)
(FASL-OP-END-OF-FILE)