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


(SI::FASL-OP-VERSION-INFO*** not handled ***)
(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-STRING "SYS: SYS; QCFASD  ")
(SYSTEM:FASL-OP-STOREIN-SYMBOL-VALUE [32] {"SYS: SYS; QCFASD  "}
  (SYSTEM:FASL-OP-PACKAGE-SYMBOL
    (SYSTEM:FASL-OP-STRING "SI")
    (SYSTEM:FASL-OP-STRING "PATCH-SOURCE-FILE-NAMESTRING")
    <SI:PATCH-SOURCE-FILE-NAMESTRING>))
(SYSTEM:FASL-OP-FRAME
<COMPILER:FASD-K-COMPILED-FUNCTION>
Arg 0 (NIL) is required, local, not initialized.
Arg 1 (NIL) is optional, local, initialized to '<GLOBAL:FUNCTION>.

 56 CALL D-PDL FEF|14  ;':NC
 57 MOVE D-LAST ARG|0
 58 MOVEM LOCAL|0
 59 AR-1 (0) D-PDL
 60 POP LOCAL|1
 61 CALL D-IGNORE FEF|15  ;':COMPILER
 62 PUSH LOCAL|1
 63 PUSH LOCAL|0
 64 AR-1 (3) D-PDL
 65 PUSH LOCAL|0
 66 AR-1 (4) D-PDL
 67 PUSH LOCAL|0
 68 AR-1 (7) D-PDL
 69 PUSH LOCAL|0
 70 AR-1 (2) D-PDL
 71 PUSH LOCAL|0
 72 AR-1 (6) D-PDL
 73 PUSH LOCAL|0
 74 AR-1 (9) D-LAST
 75 CALL D-PDL FEF|16  ;':COMPILER
 76 MOVE D-LAST ARG|0
 77 POP LOCAL|2
 78 PUSH ARG|1
 79 EQ FEF|17  ;'<GLOBAL:FUNCTION>
 80 BR-NOT-NIL 111
 81 PUSH ARG|1
 82 EQ FEF|18  ;'<GLOBAL:MACRO>
 83 BR-NIL 105
 84 CALL D-IGNORE FEF|19  ;':COMPILER
 85 PUSH 'T
 86 PUSH-NUMBER 1
 87 MOVE D-LAST FEF|7  ;':FASL-OP-LIST
 88 CALL D-IGNORE FEF|20  ;':COMPILER
 89 MOVE D-LAST '2
 90 CALL D-IGNORE FEF|21  ;':COMPILER
 91 MOVE D-LAST FEF|18  ;'<GLOBAL:MACRO>
 92 CALL D-IGNORE FEF|19  ;':COMPILER
 93 PUSH 'NIL
 94 PUSH-NUMBER 1
 95 MOVE D-LAST FEF|6  ;':FASL-OP-INDEX
 96 CALL D-IGNORE FEF|20  ;':COMPILER
 97 MOVE D-LAST LOCAL|2
 98 CALL D-PDL FEF|16  ;':COMPILER
 99 PUSH FEF|18  ;'<GLOBAL:MACRO>
100 PUSH ARG|0
101 PUSH-NUMBER 2
102 (MISC) %INTERNAL-LIST D-LAST
103 POP LOCAL|2
104 BR 111
105 CALL D-IGNORE FEF|22  ;':SI
106 PUSH 'NIL
107 PUSH FEF|23  ;'<GLOBAL:ECASE>
108 PUSH FEF|24  ;'<COMPILER:FUNCTION-TYPE>
109 PUSH ARG|1
110 MOVE D-LAST FEF|25  ;'(<LISP:MEMBER> <GLOBAL:FUNCTION> <GLOBAL:MACRO>)
111 MOVE D-IGNORE LOCAL|1
112 BR-NOT-NIL 115
113 CALL D-RETURN FEF|21  ;':COMPILER
114 MOVE D-LAST 'NIL
115 CALL D-RETURN FEF|26  ;':COMPILER
116 PUSH LOCAL|1
117 MOVE D-LAST LOCAL|2
)
(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [128] {#<DTP-FEF-POINTER <COMPILER:FASD-K-COMPILED-FUNCTION> 56121245>}
  (SYSTEM:FASL-OP-INDEX [40] {<COMPILER:FASD-K-COMPILED-FUNCTION>}))
(SYSTEM:FASL-OP-PACKAGE-SYMBOL
  (SYSTEM:FASL-OP-INDEX [51] {"GLOBAL"})
  (SYSTEM:FASL-OP-STRING "NIL")
  <GLOBAL:NIL>)
(SYSTEM:FASL-OP-STOREIN-SYMBOL-VALUE [130] {<GLOBAL:NIL>}
  (SYSTEM:FASL-OP-INDEX [35] {<SI:PATCH-SOURCE-FILE-NAMESTRING>}))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [33] {"SI"})
      (SYSTEM:FASL-OP-STRING "FASL-RECORD-FILE-MACROS-EXPANDED")
      <SI:FASL-RECORD-FILE-MACROS-EXPANDED>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-SYMBOL <QUOTE>)
      (SYSTEM:FASL-OP-LIST [9] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [102] {<NC:NCOMPILED-FUNCTION-NAME>})
          (SYSTEM:FASL-OP-FIXED 25277544)
         => (<NC:NCOMPILED-FUNCTION-NAME> 25277544))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [100] {<NC:NCOMPILED-FUNCTION-LOCAL-REFS>})
          (SYSTEM:FASL-OP-FIXED 25274544)
         => (<NC:NCOMPILED-FUNCTION-LOCAL-REFS> 25274544))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [98] {<NC:NCOMPILED-FUNCTION-REFS>})
          (SYSTEM:FASL-OP-FIXED 25273544)
         => (<NC:NCOMPILED-FUNCTION-REFS> 25273544))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [96] {<NC:NCOMPILED-FUNCTION-IMMEDIATES>})
          (SYSTEM:FASL-OP-FIXED 25270544)
         => (<NC:NCOMPILED-FUNCTION-IMMEDIATES> 25270544))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [94] {<NC:NCOMPILED-FUNCTION-ENTRY-POINTS>})
          (SYSTEM:FASL-OP-FIXED 25275544)
         => (<NC:NCOMPILED-FUNCTION-ENTRY-POINTS> 25275544))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [92] {<NC:NCOMPILED-FUNCTION-CODE>})
          (SYSTEM:FASL-OP-FIXED 25271544)
         => (<NC:NCOMPILED-FUNCTION-CODE> 25271544))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [90] {<NC:NCOMPILED-FUNCTION-LOAD-TIME-EVALS>})
          (SYSTEM:FASL-OP-FIXED 25266544)
         => (<NC:NCOMPILED-FUNCTION-LOAD-TIME-EVALS> 25266544))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [75] {<GLOBAL:ECASE>})
          (SYSTEM:FASL-OP-FIXED 26214130)
         => (<GLOBAL:ECASE> 26214130))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [88] {<SI:XR-BQ-LIST>})
          (SYSTEM:FASL-OP-FIXED 37403313)
         => (<SI:XR-BQ-LIST> 37403313))
       => ((<NC:NCOMPILED-FUNCTION-NAME> 25277544) (<NC:NCOMPILED-FUNCTION-LOCAL-REFS> 25274544) (<NC:NCOMPILED-FUNCTION-REFS> 25273544) (<NC:NCOMPILED-FUNCTION-IMMEDIATES> 25270544) (<NC:NCOMPILED-FUNCTION-ENTRY-POINTS> 25275544) (<NC:NCOMPILED-FUNCTION-CODE> 25271544) (<NC:NCOMPILED-FUNCTION-LOAD-TIME-EVALS> 25266544) (<GLOBAL:ECASE> 26214130) (<SI:XR-BQ-LIST> 37403313)))
     => (<QUOTE> ((<NC:NCOMPILED-FUNCTION-NAME> 25277544) (<NC:NCOMPILED-FUNCTION-LOCAL-REFS> 25274544) (<NC:NCOMPILED-FUNCTION-REFS> 25273544) (<NC:NCOMPILED-FUNCTION-IMMEDIATES> 25270544) (<NC:NCOMPILED-FUNCTION-ENTRY-POINTS> 25275544) (<NC:NCOMPILED-FUNCTION-CODE> 25271544) (<NC:NCOMPILED-FUNCTION-LOAD-TIME-EVALS> 25266544) (<GLOBAL:ECASE> 26214130) (<SI:XR-BQ-LIST> 37403313))))
   => (<SI:FASL-RECORD-FILE-MACROS-EXPANDED> (<QUOTE> ((<NC:NCOMPILED-FUNCTION-NAME> 25277544) (<NC:NCOMPILED-FUNCTION-LOCAL-REFS> 25274544) (<NC:NCOMPILED-FUNCTION-REFS> 25273544) (<NC:NCOMPILED-FUNCTION-IMMEDIATES> 25270544) (<NC:NCOMPILED-FUNCTION-ENTRY-POINTS> 25275544) (<NC:NCOMPILED-FUNCTION-CODE> 25271544) (<NC:NCOMPILED-FUNCTION-LOAD-TIME-EVALS> 25266544) (<GLOBAL:ECASE> 26214130) (<SI:XR-BQ-LIST> 37403313)))))
  (EVAL '(<SI:FASL-RECORD-FILE-MACROS-EXPANDED> (<QUOTE> ((<NC:NCOMPILED-FUNCTION-NAME> 25277544) (<NC:NCOMPILED-FUNCTION-LOCAL-REFS> 25274544) (<NC:NCOMPILED-FUNCTION-REFS> 25273544) (<NC:NCOMPILED-FUNCTION-IMMEDIATES> 25270544) (<NC:NCOMPILED-FUNCTION-ENTRY-POINTS> 25275544) (<NC:NCOMPILED-FUNCTION-CODE> 25271544) (<NC:NCOMPILED-FUNCTION-LOAD-TIME-EVALS> 25266544) (<GLOBAL:ECASE> 26214130) (<SI:XR-BQ-LIST> 37403313))))))
(SYSTEM:FASL-OP-END-OF-WHACK)
(SYSTEM:FASL-OP-END-OF-FILE)