; -*- Mode:TEXT -*-
; This is the UNFASL for JB: K.FLEABIT; HW-PRIMITIVES.QFASL#46



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

(FASL-OP-END-OF-WHACK)

(FASL-OP-FILE-PROPERTY-LIST
  (FASL-OP-LIST [10] Area=WORKING-STORAGE-AREA
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-STRING "")
      (FASL-OP-STRING "COMPILE-DATA")
      <:COMPILE-DATA>)
    (FASL-OP-LIST [6] Area=WORKING-STORAGE-AREA
      (FASL-OP-STRING "wkf")
      (FASL-OP-STRING "Orson Welles")
      (FASL-OP-FIXED 24700115555)
      (FASL-OP-FIXED 176)
      (FASL-OP-FIXED 151)
      (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-STRING "COMPILER")
          (FASL-OP-STRING "NEW-DESTINATIONS")
          <COMPILER:NEW-DESTINATIONS>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-STRING "GLOBAL")
          (FASL-OP-STRING "T")
          <GLOBAL:T>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [32] {""})
          (FASL-OP-STRING "SITE")
          <:SITE>)
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-INDEX [32] {""})
          (FASL-OP-STRING "LMI")
          <:LMI>)
       => (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>))
     => ("wkf" "Orson Welles" 24700115555 176 151 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)))
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-INDEX [32] {""})
      (FASL-OP-STRING "QFASL-SOURCE-FILE-UNIQUE-ID")
      <:QFASL-SOURCE-FILE-UNIQUE-ID>)
    (FASL-OP-EVAL1
      (FASL-OP-LIST [7] Area=WORKING-STORAGE-AREA
        (FASL-OP-PACKAGE-SYMBOL
          (FASL-OP-STRING "FS")
          (FASL-OP-STRING "MAKE-FASLOAD-PATHNAME")
          <FS:MAKE-FASLOAD-PATHNAME>)
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-PACKAGE-SYMBOL
            (FASL-OP-INDEX [43] {"GLOBAL"})
            (FASL-OP-STRING "QUOTE")
            <GLOBAL:QUOTE>)
          (FASL-OP-STRING "JB")
         => (<GLOBAL:QUOTE> "JB"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (FASL-OP-STRING "DSK")
         => (<GLOBAL:QUOTE> "DSK"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (FASL-OP-STRING "K")
            (FASL-OP-STRING "FLEABIT")
           => ("K" "FLEABIT"))
         => (<GLOBAL:QUOTE> ("K" "FLEABIT")))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (FASL-OP-STRING "HW-PRIMITIVES")
         => (<GLOBAL:QUOTE> "HW-PRIMITIVES"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (FASL-OP-STRING "LISP")
         => (<GLOBAL:QUOTE> "LISP"))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (FASL-OP-FIXED 56)
         => (<GLOBAL:QUOTE> 56))
       => (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "JB") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("K" "FLEABIT")) (<GLOBAL:QUOTE> "HW-PRIMITIVES") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 56)))
      (EVAL '(<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "JB") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("K" "FLEABIT")) (<GLOBAL:QUOTE> "HW-PRIMITIVES") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 56))))
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-INDEX [32] {""})
      (FASL-OP-STRING "PACKAGE")
      <:PACKAGE>)
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "NC")
        <:NC>)
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "LISP")
        <:LISP>)
     => (<:NC> <:LISP>))
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-INDEX [32] {""})
      (FASL-OP-STRING "READTABLE")
      <:READTABLE>)
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-INDEX [32] {""})
      (FASL-OP-STRING "CL")
      <:CL>)
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-INDEX [32] {""})
      (FASL-OP-STRING "BASE")
      <:BASE>)
    (FASL-OP-FIXED 12)
   => (<:COMPILE-DATA> ("wkf" "Orson Welles" 24700115555 176 151 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "JB") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("K" "FLEABIT")) (<GLOBAL:QUOTE> "HW-PRIMITIVES") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 56)))) <:PACKAGE> (<:NC> <:LISP>) <:READTABLE> <:CL> <:BASE> 12)))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::NOP|>
 36 CALL D-RETURN FEF|6  ;'NIL
 37 PUSH FEF|7  ;'<:NAME>
 38 PUSH FEF|8  ;'<HARDWARE:NOP>
 39 PUSH FEF|9  ;'<:BITV>
 40 PUSH-NUMBER 10
 41 PUSH FEF|10  ;'<:ARGLIST>
 42 PUSH 'NIL
 43 PUSH FEF|11  ;'<:SOURCE>
 44 PUSH FEF|12  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DECLARE> (<IGNORE> <NODE>)) (<EMIT> (<GLOBAL:QUOTE> <K:NOP>)) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <NIL>))))
 45 PUSH FEF|13  ;'<:HANDLER>
 46 CALL0 D-PDL FEF|14  ;'NIL
 47 MOVEM LOCAL|0
 48 PUSH FEF|15  ;'<:GENERATE>
 49 MOVE D-LAST FEF|16  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::NOP|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [165] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::NOP|> -74431510>}
  (FASL-OP-INDEX [92] {<|PRIMOP//HARDWARE::NOP|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::NOP|> 0)
 20 CALL D-IGNORE FEF|6  ;'NIL
 21 MOVE D-LAST FEF|7  ;'<K:NOP>
 22 MOVE D-RETURN FEF|8  ;'(<GLOBAL:QUOTE> <NIL>)
)

(FASL-OP-STOREIN-FUNCTION-CELL [180] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::NOP|> 0) -74427344>}
  (FASL-OP-INDEX [136] {(<:INTERNAL> <|PRIMOP//HARDWARE::NOP|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-STRING "SI")
      (FASL-OP-STRING "DEFCONST-1")
      <SI:DEFCONST-1>)
    (FASL-OP-INDEX [92] {<|PRIMOP//HARDWARE::NOP|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [92] {<|PRIMOP//HARDWARE::NOP|>})
     => (<|PRIMOP//HARDWARE::NOP|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::NOP|> (<|PRIMOP//HARDWARE::NOP|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::NOP|> (<|PRIMOP//HARDWARE::NOP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-SYMBOL <VALUES>)
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [43] {"GLOBAL"})
        (FASL-OP-STRING "SEND")
        <GLOBAL:SEND>)
      (FASL-OP-SYMBOL <*PRIMOP-TABLE*>)
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [32] {""})
        (FASL-OP-STRING "PUT-HASH")
        <:PUT-HASH>)
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [101] {<HARDWARE:NOP>})
       => (<GLOBAL:QUOTE> <HARDWARE:NOP>))
      (FASL-OP-INDEX [92] {<|PRIMOP//HARDWARE::NOP|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:NOP>) <|PRIMOP//HARDWARE::NOP|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:NOP>) <|PRIMOP//HARDWARE::NOP|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:NOP>) <|PRIMOP//HARDWARE::NOP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-INDEX [181] {"SI"})
      (FASL-OP-STRING "SETPROP")
      <SI:SETPROP>)
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [101] {<HARDWARE:NOP>})
     => (<GLOBAL:QUOTE> <HARDWARE:NOP>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-PACKAGE-SYMBOL
        (FASL-OP-INDEX [43] {"GLOBAL"})
        (FASL-OP-STRING "ARGLIST")
        <GLOBAL:ARGLIST>)
     => (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>))
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [125] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:NOP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:NOP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::MEMORY-WAIT|>
 36 CALL D-RETURN FEF|6  ;'NIL
 37 PUSH FEF|7  ;'<:NAME>
 38 PUSH FEF|8  ;'<HARDWARE:MEMORY-WAIT>
 39 PUSH FEF|9  ;'<:BITV>
 40 PUSH-NUMBER 10
 41 PUSH FEF|10  ;'<:ARGLIST>
 42 PUSH 'NIL
 43 PUSH FEF|11  ;'<:SOURCE>
 44 PUSH FEF|12  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DECLARE> (<IGNORE> <NODE>)) (<EMIT> (<GLOBAL:QUOTE> <K:MEMORY-WAIT>)) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <NIL>))))
 45 PUSH FEF|13  ;'<:HANDLER>
 46 CALL0 D-PDL FEF|14  ;'NIL
 47 MOVEM LOCAL|0
 48 PUSH FEF|15  ;'<:GENERATE>
 49 MOVE D-LAST FEF|16  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::MEMORY-WAIT|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [241] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::MEMORY-WAIT|> -74424632>}
  (FASL-OP-INDEX [208] {<|PRIMOP//HARDWARE::MEMORY-WAIT|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::MEMORY-WAIT|> 0)
 20 CALL D-IGNORE FEF|6  ;'NIL
 21 MOVE D-LAST FEF|7  ;'<K:MEMORY-WAIT>
 22 MOVE D-RETURN FEF|8  ;'(<GLOBAL:QUOTE> <NIL>)
)

(FASL-OP-STOREIN-FUNCTION-CELL [254] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::MEMORY-WAIT|> 0) -74424150>}
  (FASL-OP-INDEX [227] {(<:INTERNAL> <|PRIMOP//HARDWARE::MEMORY-WAIT|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [208] {<|PRIMOP//HARDWARE::MEMORY-WAIT|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [208] {<|PRIMOP//HARDWARE::MEMORY-WAIT|>})
     => (<|PRIMOP//HARDWARE::MEMORY-WAIT|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::MEMORY-WAIT|> (<|PRIMOP//HARDWARE::MEMORY-WAIT|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::MEMORY-WAIT|> (<|PRIMOP//HARDWARE::MEMORY-WAIT|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [213] {<HARDWARE:MEMORY-WAIT>})
       => (<GLOBAL:QUOTE> <HARDWARE:MEMORY-WAIT>))
      (FASL-OP-INDEX [208] {<|PRIMOP//HARDWARE::MEMORY-WAIT|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:MEMORY-WAIT>) <|PRIMOP//HARDWARE::MEMORY-WAIT|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:MEMORY-WAIT>) <|PRIMOP//HARDWARE::MEMORY-WAIT|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:MEMORY-WAIT>) <|PRIMOP//HARDWARE::MEMORY-WAIT|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [213] {<HARDWARE:MEMORY-WAIT>})
     => (<GLOBAL:QUOTE> <HARDWARE:MEMORY-WAIT>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [125] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:MEMORY-WAIT>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:MEMORY-WAIT>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>))))

(FASL-OP-FRAME
<PRIMOP//READ-FUNCTIONAL-SOURCE>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<READ-FUNCTIONAL-SOURCE>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<FSOURCE>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<LEAF-VALUE> (<CALL-ARG-N> 2 <NODE>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <PRIMOP//READ-FUNCTIONAL-SOURCE> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [298] {#<DTP-FEF-POINTER <PRIMOP//READ-FUNCTIONAL-SOURCE> -74422322>}
  (FASL-OP-INDEX [268] {<PRIMOP//READ-FUNCTIONAL-SOURCE>}))

(FASL-OP-FRAME
(<:INTERNAL> <PRIMOP//READ-FUNCTIONAL-SOURCE> 0)
 14 PUSH ARG|0
 15 AR-1 (4) D-PDL
 16 (MISC) CADDR D-PDL
 17 AR-1 (4) D-RETURN
)

(FASL-OP-STOREIN-FUNCTION-CELL [314] {#<DTP-FEF-POINTER (<:INTERNAL> <PRIMOP//READ-FUNCTIONAL-SOURCE> 0) -74421431>}
  (FASL-OP-INDEX [284] {(<:INTERNAL> <PRIMOP//READ-FUNCTIONAL-SOURCE> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [268] {<PRIMOP//READ-FUNCTIONAL-SOURCE>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [268] {<PRIMOP//READ-FUNCTIONAL-SOURCE>})
     => (<PRIMOP//READ-FUNCTIONAL-SOURCE>))
   => (<SI:DEFCONST-1> <PRIMOP//READ-FUNCTIONAL-SOURCE> (<PRIMOP//READ-FUNCTIONAL-SOURCE>)))
  (EVAL '(<SI:DEFCONST-1> <PRIMOP//READ-FUNCTIONAL-SOURCE> (<PRIMOP//READ-FUNCTIONAL-SOURCE>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [272] {<READ-FUNCTIONAL-SOURCE>})
       => (<GLOBAL:QUOTE> <READ-FUNCTIONAL-SOURCE>))
      (FASL-OP-INDEX [268] {<PRIMOP//READ-FUNCTIONAL-SOURCE>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <READ-FUNCTIONAL-SOURCE>) <PRIMOP//READ-FUNCTIONAL-SOURCE>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <READ-FUNCTIONAL-SOURCE>) <PRIMOP//READ-FUNCTIONAL-SOURCE>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <READ-FUNCTIONAL-SOURCE>) <PRIMOP//READ-FUNCTIONAL-SOURCE>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [272] {<READ-FUNCTIONAL-SOURCE>})
     => (<GLOBAL:QUOTE> <READ-FUNCTIONAL-SOURCE>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [274] {(<FSOURCE>)})
     => (<GLOBAL:QUOTE> (<FSOURCE>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <READ-FUNCTIONAL-SOURCE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<FSOURCE>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <READ-FUNCTIONAL-SOURCE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<FSOURCE>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::READ-MD|>
 36 CALL D-RETURN FEF|6  ;'NIL
 37 PUSH FEF|7  ;'<:NAME>
 38 PUSH FEF|8  ;'<HARDWARE:READ-MD>
 39 PUSH FEF|9  ;'<:BITV>
 40 PUSH-NUMBER 10
 41 PUSH FEF|10  ;'<:ARGLIST>
 42 PUSH 'NIL
 43 PUSH FEF|11  ;'<:SOURCE>
 44 PUSH FEF|12  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<LET> ((<DEST> (<GET-DESTINATION> (<CALL-ARG-N> 1 <NODE>)))) (<IF> (<EQL> <DEST> <IGNORED>) (<PROGN> (<EMIT> (<GLOBAL:QUOTE> <K:MOVE>) <DEST> (<GLOBAL:QUOTE> <K:MD>)) <DEST>) (<GLOBAL:QUOTE> <K:MD>)))))
 45 PUSH FEF|13  ;'<:HANDLER>
 46 CALL0 D-PDL FEF|14  ;'NIL
 47 MOVEM LOCAL|0
 48 PUSH FEF|15  ;'<:GENERATE>
 49 MOVE D-LAST FEF|16  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::READ-MD|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [377] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::READ-MD|> -74416402>}
  (FASL-OP-INDEX [328] {<|PRIMOP//HARDWARE::READ-MD|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::READ-MD|> 0)
 24 CALL D-PDL FEF|7  ;'NIL
 25 PUSH ARG|0
 26 AR-1 (4) D-PDL
 27 CADR D-LAST PDL-POP
 28 MOVEM LOCAL|0
 29 PUSH FEF|6  ;':IGNORED
 30 (MISC) EQL D-IGNORE
 31 BR-NIL 37
 32 CALL D-IGNORE FEF|8  ;'NIL
 33 PUSH FEF|9  ;'<K:MOVE>
 34 PUSH LOCAL|0
 35 MOVE D-LAST FEF|10  ;'<K:MD>
 36 MOVE D-RETURN LOCAL|0
 37 MOVE D-RETURN FEF|10  ;'<K:MD>
)

(FASL-OP-STOREIN-FUNCTION-CELL [395] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::READ-MD|> 0) -74415500>}
  (FASL-OP-INDEX [363] {(<:INTERNAL> <|PRIMOP//HARDWARE::READ-MD|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [328] {<|PRIMOP//HARDWARE::READ-MD|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [328] {<|PRIMOP//HARDWARE::READ-MD|>})
     => (<|PRIMOP//HARDWARE::READ-MD|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::READ-MD|> (<|PRIMOP//HARDWARE::READ-MD|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::READ-MD|> (<|PRIMOP//HARDWARE::READ-MD|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [333] {<HARDWARE:READ-MD>})
       => (<GLOBAL:QUOTE> <HARDWARE:READ-MD>))
      (FASL-OP-INDEX [328] {<|PRIMOP//HARDWARE::READ-MD|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:READ-MD>) <|PRIMOP//HARDWARE::READ-MD|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:READ-MD>) <|PRIMOP//HARDWARE::READ-MD|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:READ-MD>) <|PRIMOP//HARDWARE::READ-MD|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [333] {<HARDWARE:READ-MD>})
     => (<GLOBAL:QUOTE> <HARDWARE:READ-MD>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [125] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:READ-MD>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:READ-MD>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::TRAP-OFF|>
 36 CALL D-RETURN FEF|6  ;'NIL
 37 PUSH FEF|7  ;'<:NAME>
 38 PUSH FEF|8  ;'<HARDWARE:TRAP-OFF>
 39 PUSH FEF|9  ;'<:BITV>
 40 PUSH-NUMBER 10
 41 PUSH FEF|10  ;'<:ARGLIST>
 42 PUSH 'NIL
 43 PUSH FEF|11  ;'<:SOURCE>
 44 PUSH FEF|12  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<LET> ((<DEST> (<GET-DESTINATION> (<CALL-ARG-N> 1 <NODE>)))) (<IF> (<EQL> <DEST> <IGNORED>) (<PROGN> (<EMIT> (<GLOBAL:QUOTE> <K:MOVE>) <DEST> (<GLOBAL:QUOTE> <K:TRAP-OFF>)) <DEST>) (<GLOBAL:QUOTE> <K:TRAP-OFF>)))))
 45 PUSH FEF|13  ;'<:HANDLER>
 46 CALL0 D-PDL FEF|14  ;'NIL
 47 MOVEM LOCAL|0
 48 PUSH FEF|15  ;'<:GENERATE>
 49 MOVE D-LAST FEF|16  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::TRAP-OFF|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [449] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::TRAP-OFF|> -74413245>}
  (FASL-OP-INDEX [409] {<|PRIMOP//HARDWARE::TRAP-OFF|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::TRAP-OFF|> 0)
 24 CALL D-PDL FEF|7  ;'NIL
 25 PUSH ARG|0
 26 AR-1 (4) D-PDL
 27 CADR D-LAST PDL-POP
 28 MOVEM LOCAL|0
 29 PUSH FEF|6  ;':IGNORED
 30 (MISC) EQL D-IGNORE
 31 BR-NIL 37
 32 CALL D-IGNORE FEF|8  ;'NIL
 33 PUSH FEF|9  ;'<K:MOVE>
 34 PUSH LOCAL|0
 35 MOVE D-LAST FEF|10  ;'<K:TRAP-OFF>
 36 MOVE D-RETURN LOCAL|0
 37 MOVE D-RETURN FEF|10  ;'<K:TRAP-OFF>
)

(FASL-OP-STOREIN-FUNCTION-CELL [467] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::TRAP-OFF|> 0) -74412551>}
  (FASL-OP-INDEX [435] {(<:INTERNAL> <|PRIMOP//HARDWARE::TRAP-OFF|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [409] {<|PRIMOP//HARDWARE::TRAP-OFF|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [409] {<|PRIMOP//HARDWARE::TRAP-OFF|>})
     => (<|PRIMOP//HARDWARE::TRAP-OFF|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::TRAP-OFF|> (<|PRIMOP//HARDWARE::TRAP-OFF|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::TRAP-OFF|> (<|PRIMOP//HARDWARE::TRAP-OFF|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [414] {<HARDWARE:TRAP-OFF>})
       => (<GLOBAL:QUOTE> <HARDWARE:TRAP-OFF>))
      (FASL-OP-INDEX [409] {<|PRIMOP//HARDWARE::TRAP-OFF|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:TRAP-OFF>) <|PRIMOP//HARDWARE::TRAP-OFF|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:TRAP-OFF>) <|PRIMOP//HARDWARE::TRAP-OFF|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:TRAP-OFF>) <|PRIMOP//HARDWARE::TRAP-OFF|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [414] {<HARDWARE:TRAP-OFF>})
     => (<GLOBAL:QUOTE> <HARDWARE:TRAP-OFF>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [125] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:TRAP-OFF>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:TRAP-OFF>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>))))

(FASL-OP-FRAME
<PRIMOP//WRITE-FUNCTIONAL-DEST>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<WRITE-FUNCTIONAL-DEST>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<FDEST> <VALUE>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<LET> ((<FDEST> (<LEAF-VALUE> (<CALL-ARG-N> 2 <NODE>))) (<VALUE> (<CALL-ARG-N> 3 <NODE>))) (<GENERATE-MOVE> <VALUE> <FDEST>) (<IF> (<REGISTER-P> <FDEST>) <FDEST> (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <NIL>))))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <PRIMOP//WRITE-FUNCTIONAL-DEST> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [524] {#<DTP-FEF-POINTER <PRIMOP//WRITE-FUNCTIONAL-DEST> -74411270>}
  (FASL-OP-INDEX [481] {<PRIMOP//WRITE-FUNCTIONAL-DEST>}))

(FASL-OP-FRAME
(<:INTERNAL> <PRIMOP//WRITE-FUNCTIONAL-DEST> 0)
 20 PUSH ARG|0
 21 AR-1 (4) D-PDL
 22 (MISC) CADDR D-PDL
 23 AR-1 (4) D-PDL
 24 PUSH ARG|0
 25 AR-1 (4) D-PDL
 26 (MISC) CADDDR D-PDL
 27 POP LOCAL|1
 28 POP LOCAL|0
 29 CALL D-IGNORE FEF|6  ;'NIL
 30 PUSH LOCAL|1
 31 MOVE D-LAST LOCAL|0
 32 CALL D-IGNORE FEF|7  ;'NIL
 33 MOVE D-LAST LOCAL|0
 34 BR-NIL 36
 35 MOVE D-RETURN LOCAL|0
 36 MOVE D-RETURN FEF|8  ;'(<GLOBAL:QUOTE> <NIL>)
)

(FASL-OP-STOREIN-FUNCTION-CELL [543] {#<DTP-FEF-POINTER (<:INTERNAL> <PRIMOP//WRITE-FUNCTIONAL-DEST> 0) -74407537>}
  (FASL-OP-INDEX [510] {(<:INTERNAL> <PRIMOP//WRITE-FUNCTIONAL-DEST> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [481] {<PRIMOP//WRITE-FUNCTIONAL-DEST>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [481] {<PRIMOP//WRITE-FUNCTIONAL-DEST>})
     => (<PRIMOP//WRITE-FUNCTIONAL-DEST>))
   => (<SI:DEFCONST-1> <PRIMOP//WRITE-FUNCTIONAL-DEST> (<PRIMOP//WRITE-FUNCTIONAL-DEST>)))
  (EVAL '(<SI:DEFCONST-1> <PRIMOP//WRITE-FUNCTIONAL-DEST> (<PRIMOP//WRITE-FUNCTIONAL-DEST>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [485] {<WRITE-FUNCTIONAL-DEST>})
       => (<GLOBAL:QUOTE> <WRITE-FUNCTIONAL-DEST>))
      (FASL-OP-INDEX [481] {<PRIMOP//WRITE-FUNCTIONAL-DEST>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <WRITE-FUNCTIONAL-DEST>) <PRIMOP//WRITE-FUNCTIONAL-DEST>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <WRITE-FUNCTIONAL-DEST>) <PRIMOP//WRITE-FUNCTIONAL-DEST>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <WRITE-FUNCTIONAL-DEST>) <PRIMOP//WRITE-FUNCTIONAL-DEST>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [485] {<WRITE-FUNCTIONAL-DEST>})
     => (<GLOBAL:QUOTE> <WRITE-FUNCTIONAL-DEST>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [488] {(<FDEST> <VALUE>)})
     => (<GLOBAL:QUOTE> (<FDEST> <VALUE>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <WRITE-FUNCTIONAL-DEST>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<FDEST> <VALUE>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <WRITE-FUNCTIONAL-DEST>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<FDEST> <VALUE>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::WRITE-MAP|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:WRITE-MAP>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<VALUE>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<LET> ((<REF> (<GET-RIGHT-OPERAND> (<CALL-ARG-N> 2 <NODE>)))) (<EMIT> (<GLOBAL:QUOTE> <K:MOVE>) (<GLOBAL:QUOTE> <K:MEMORY-MAP>) <REF> (<GLOBAL:QUOTE> <K:UNBOXED>)) (<EMIT> (<GLOBAL:QUOTE> <K:MOVE>) (<GLOBAL:QUOTE> <K:MEMORY-MAP>) <REF> (<GLOBAL:QUOTE> <K:UNBOXED>)) <REF>)))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::WRITE-MAP|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [603] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::WRITE-MAP|> -74406222>}
  (FASL-OP-INDEX [557] {<|PRIMOP//HARDWARE::WRITE-MAP|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::WRITE-MAP|> 0)
 24 CALL D-PDL FEF|6  ;'NIL
 25 PUSH ARG|0
 26 AR-1 (4) D-PDL
 27 (MISC) CADDR D-LAST
 28 POP LOCAL|0
 29 CALL D-IGNORE FEF|7  ;'NIL
 30 PUSH FEF|8  ;'<K:MOVE>
 31 PUSH FEF|9  ;'<K:MEMORY-MAP>
 32 PUSH LOCAL|0
 33 MOVE D-LAST FEF|10  ;'<K:UNBOXED>
 34 CALL D-IGNORE FEF|7  ;'NIL
 35 PUSH FEF|8  ;'<K:MOVE>
 36 PUSH FEF|9  ;'<K:MEMORY-MAP>
 37 PUSH LOCAL|0
 38 MOVE D-LAST FEF|10  ;'<K:UNBOXED>
 39 MOVE D-RETURN LOCAL|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [621] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::WRITE-MAP|> 0) -74405435>}
  (FASL-OP-INDEX [589] {(<:INTERNAL> <|PRIMOP//HARDWARE::WRITE-MAP|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [557] {<|PRIMOP//HARDWARE::WRITE-MAP|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [557] {<|PRIMOP//HARDWARE::WRITE-MAP|>})
     => (<|PRIMOP//HARDWARE::WRITE-MAP|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::WRITE-MAP|> (<|PRIMOP//HARDWARE::WRITE-MAP|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::WRITE-MAP|> (<|PRIMOP//HARDWARE::WRITE-MAP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [562] {<HARDWARE:WRITE-MAP>})
       => (<GLOBAL:QUOTE> <HARDWARE:WRITE-MAP>))
      (FASL-OP-INDEX [557] {<|PRIMOP//HARDWARE::WRITE-MAP|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:WRITE-MAP>) <|PRIMOP//HARDWARE::WRITE-MAP|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:WRITE-MAP>) <|PRIMOP//HARDWARE::WRITE-MAP|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:WRITE-MAP>) <|PRIMOP//HARDWARE::WRITE-MAP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [562] {<HARDWARE:WRITE-MAP>})
     => (<GLOBAL:QUOTE> <HARDWARE:WRITE-MAP>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [563] {(<VALUE>)})
     => (<GLOBAL:QUOTE> (<VALUE>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:WRITE-MAP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:WRITE-MAP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::WRITE-GC-RAM|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:WRITE-GC-RAM>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<VALUE>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<LET> ((<REF> (<GET-RIGHT-OPERAND> (<CALL-ARG-N> 2 <NODE>)))) (<EMIT> (<GLOBAL:QUOTE> <K:MOVE>) (<GLOBAL:QUOTE> <K:GC-RAM>) <REF> (<GLOBAL:QUOTE> <K:UNBOXED>)) (<EMIT> (<GLOBAL:QUOTE> <K:MOVE>) (<GLOBAL:QUOTE> <K:GC-RAM>) <REF> (<GLOBAL:QUOTE> <K:UNBOXED>)) <REF>)))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::WRITE-GC-RAM|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [677] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::WRITE-GC-RAM|> -74404133>}
  (FASL-OP-INDEX [635] {<|PRIMOP//HARDWARE::WRITE-GC-RAM|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::WRITE-GC-RAM|> 0)
 24 CALL D-PDL FEF|6  ;'NIL
 25 PUSH ARG|0
 26 AR-1 (4) D-PDL
 27 (MISC) CADDR D-LAST
 28 POP LOCAL|0
 29 CALL D-IGNORE FEF|7  ;'NIL
 30 PUSH FEF|8  ;'<K:MOVE>
 31 PUSH FEF|9  ;'<K:GC-RAM>
 32 PUSH LOCAL|0
 33 MOVE D-LAST FEF|10  ;'<K:UNBOXED>
 34 CALL D-IGNORE FEF|7  ;'NIL
 35 PUSH FEF|8  ;'<K:MOVE>
 36 PUSH FEF|9  ;'<K:GC-RAM>
 37 PUSH LOCAL|0
 38 MOVE D-LAST FEF|10  ;'<K:UNBOXED>
 39 MOVE D-RETURN LOCAL|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [695] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::WRITE-GC-RAM|> 0) -74402450>}
  (FASL-OP-INDEX [663] {(<:INTERNAL> <|PRIMOP//HARDWARE::WRITE-GC-RAM|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [635] {<|PRIMOP//HARDWARE::WRITE-GC-RAM|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [635] {<|PRIMOP//HARDWARE::WRITE-GC-RAM|>})
     => (<|PRIMOP//HARDWARE::WRITE-GC-RAM|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::WRITE-GC-RAM|> (<|PRIMOP//HARDWARE::WRITE-GC-RAM|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::WRITE-GC-RAM|> (<|PRIMOP//HARDWARE::WRITE-GC-RAM|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [640] {<HARDWARE:WRITE-GC-RAM>})
       => (<GLOBAL:QUOTE> <HARDWARE:WRITE-GC-RAM>))
      (FASL-OP-INDEX [635] {<|PRIMOP//HARDWARE::WRITE-GC-RAM|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:WRITE-GC-RAM>) <|PRIMOP//HARDWARE::WRITE-GC-RAM|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:WRITE-GC-RAM>) <|PRIMOP//HARDWARE::WRITE-GC-RAM|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:WRITE-GC-RAM>) <|PRIMOP//HARDWARE::WRITE-GC-RAM|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [640] {<HARDWARE:WRITE-GC-RAM>})
     => (<GLOBAL:QUOTE> <HARDWARE:WRITE-GC-RAM>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [641] {(<VALUE>)})
     => (<GLOBAL:QUOTE> (<VALUE>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:WRITE-GC-RAM>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:WRITE-GC-RAM>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::WRITE-TRANSPORTER-RAM|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:WRITE-TRANSPORTER-RAM>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<VALUE>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<LET> ((<REF> (<GET-RIGHT-OPERAND> (<CALL-ARG-N> 2 <NODE>)))) (<EMIT> (<GLOBAL:QUOTE> <K:MOVE>) (<GLOBAL:QUOTE> <K:TRANSPORTER-RAM>) <REF> (<GLOBAL:QUOTE> <K:UNBOXED>)) (<EMIT> (<GLOBAL:QUOTE> <K:MOVE>) (<GLOBAL:QUOTE> <K:TRANSPORTER-RAM>) <REF> (<GLOBAL:QUOTE> <K:UNBOXED>)) <REF>)))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::WRITE-TRANSPORTER-RAM|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [751] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::WRITE-TRANSPORTER-RAM|> -74401167>}
  (FASL-OP-INDEX [709] {<|PRIMOP//HARDWARE::WRITE-TRANSPORTER-RAM|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::WRITE-TRANSPORTER-RAM|> 0)
 24 CALL D-PDL FEF|6  ;'NIL
 25 PUSH ARG|0
 26 AR-1 (4) D-PDL
 27 (MISC) CADDR D-LAST
 28 POP LOCAL|0
 29 CALL D-IGNORE FEF|7  ;'NIL
 30 PUSH FEF|8  ;'<K:MOVE>
 31 PUSH FEF|9  ;'<K:TRANSPORTER-RAM>
 32 PUSH LOCAL|0
 33 MOVE D-LAST FEF|10  ;'<K:UNBOXED>
 34 CALL D-IGNORE FEF|7  ;'NIL
 35 PUSH FEF|8  ;'<K:MOVE>
 36 PUSH FEF|9  ;'<K:TRANSPORTER-RAM>
 37 PUSH LOCAL|0
 38 MOVE D-LAST FEF|10  ;'<K:UNBOXED>
 39 MOVE D-RETURN LOCAL|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [769] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::WRITE-TRANSPORTER-RAM|> 0) -74400035>}
  (FASL-OP-INDEX [737] {(<:INTERNAL> <|PRIMOP//HARDWARE::WRITE-TRANSPORTER-RAM|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [709] {<|PRIMOP//HARDWARE::WRITE-TRANSPORTER-RAM|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [709] {<|PRIMOP//HARDWARE::WRITE-TRANSPORTER-RAM|>})
     => (<|PRIMOP//HARDWARE::WRITE-TRANSPORTER-RAM|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::WRITE-TRANSPORTER-RAM|> (<|PRIMOP//HARDWARE::WRITE-TRANSPORTER-RAM|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::WRITE-TRANSPORTER-RAM|> (<|PRIMOP//HARDWARE::WRITE-TRANSPORTER-RAM|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [714] {<HARDWARE:WRITE-TRANSPORTER-RAM>})
       => (<GLOBAL:QUOTE> <HARDWARE:WRITE-TRANSPORTER-RAM>))
      (FASL-OP-INDEX [709] {<|PRIMOP//HARDWARE::WRITE-TRANSPORTER-RAM|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:WRITE-TRANSPORTER-RAM>) <|PRIMOP//HARDWARE::WRITE-TRANSPORTER-RAM|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:WRITE-TRANSPORTER-RAM>) <|PRIMOP//HARDWARE::WRITE-TRANSPORTER-RAM|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:WRITE-TRANSPORTER-RAM>) <|PRIMOP//HARDWARE::WRITE-TRANSPORTER-RAM|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [714] {<HARDWARE:WRITE-TRANSPORTER-RAM>})
     => (<GLOBAL:QUOTE> <HARDWARE:WRITE-TRANSPORTER-RAM>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [715] {(<VALUE>)})
     => (<GLOBAL:QUOTE> (<VALUE>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:WRITE-TRANSPORTER-RAM>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:WRITE-TRANSPORTER-RAM>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::DPB|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:DPB>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH-NUMBER 0
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<VALUE> <BYTE-SPEC> <WORD>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:SIMPLIFY> (<NODE>) (<SIMPLIFY-IF-CONSTANT-EXPRESSION> <NODE> (<GLOBAL:QUOTE> <NLISP:DPB>))) (<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <VALUE> <BYTE-SPEC> <WORD>) (<CALL-ARGS> <NODE>))) (<GENERATE-DPB> <CONT> <VALUE> <BYTE-SPEC> <WORD>))))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:GENERATE>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::DPB|> 0)
 56 PUSH FEF|18  ;'<:SIMPLIFY>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::DPB|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [834] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::DPB|> -74376216>}
  (FASL-OP-INDEX [783] {<|PRIMOP//HARDWARE::DPB|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::DPB|> 0)
 16 PUSH ARG|0
 17 AR-1 (4) D-PDL
 18 CDR D-PDL PDL-POP
 19 MOVEM LOCAL|0
 20 (MISC) CADDDR D-PDL
 21 PUSH LOCAL|0
 22 (MISC) CADDR D-PDL
 23 CADR D-PDL LOCAL|0
 24 CAR D-PDL LOCAL|0
 25 POP LOCAL|4
 26 POP LOCAL|3
 27 POP LOCAL|2
 28 POP LOCAL|1
 29 CALL D-RETURN FEF|6  ;'NIL
 30 PUSH LOCAL|4
 31 PUSH LOCAL|3
 32 PUSH LOCAL|2
 33 MOVE D-LAST LOCAL|1
)

(FASL-OP-STOREIN-FUNCTION-CELL [855] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::DPB|> 0) -74375316>}
  (FASL-OP-INDEX [816] {(<:INTERNAL> <|PRIMOP//HARDWARE::DPB|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::DPB|> 1)
 18 CALL D-RETURN FEF|6  ;'NIL
 19 PUSH ARG|0
 20 MOVE D-LAST FEF|7  ;'<NLISP:DPB>
)

(FASL-OP-STOREIN-FUNCTION-CELL [868] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::DPB|> 1) -74375006>}
  (FASL-OP-INDEX [818] {(<:INTERNAL> <|PRIMOP//HARDWARE::DPB|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [783] {<|PRIMOP//HARDWARE::DPB|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [783] {<|PRIMOP//HARDWARE::DPB|>})
     => (<|PRIMOP//HARDWARE::DPB|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::DPB|> (<|PRIMOP//HARDWARE::DPB|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::DPB|> (<|PRIMOP//HARDWARE::DPB|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [788] {<HARDWARE:DPB>})
       => (<GLOBAL:QUOTE> <HARDWARE:DPB>))
      (FASL-OP-INDEX [783] {<|PRIMOP//HARDWARE::DPB|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB>) <|PRIMOP//HARDWARE::DPB|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB>) <|PRIMOP//HARDWARE::DPB|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB>) <|PRIMOP//HARDWARE::DPB|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [788] {<HARDWARE:DPB>})
     => (<GLOBAL:QUOTE> <HARDWARE:DPB>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [791] {(<VALUE> <BYTE-SPEC> <WORD>)})
     => (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:DPB>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:DPB>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::DPB-XOR|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:DPB-XOR>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<VALUE> <BYTE-SPEC> <WORD>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <VALUE> <BYTE-SPEC> <WORD>) (<CALL-ARGS> <NODE>))) (<GENERATE-DPB> <CONT> <VALUE> <BYTE-SPEC> <WORD> (<GLOBAL:QUOTE> <K:DT-NONE>) (<GLOBAL:QUOTE> <K:BOXED-RIGHT>) (<GLOBAL:QUOTE> <K:FIELD-XOR>)))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-XOR|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [922] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::DPB-XOR|> -74372724>}
  (FASL-OP-INDEX [882] {<|PRIMOP//HARDWARE::DPB-XOR|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-XOR|> 0)
 22 PUSH ARG|0
 23 AR-1 (4) D-PDL
 24 CDR D-PDL PDL-POP
 25 MOVEM LOCAL|0
 26 (MISC) CADDDR D-PDL
 27 PUSH LOCAL|0
 28 (MISC) CADDR D-PDL
 29 CADR D-PDL LOCAL|0
 30 CAR D-PDL LOCAL|0
 31 POP LOCAL|4
 32 POP LOCAL|3
 33 POP LOCAL|2
 34 POP LOCAL|1
 35 CALL D-RETURN FEF|6  ;'NIL
 36 PUSH LOCAL|4
 37 PUSH LOCAL|3
 38 PUSH LOCAL|2
 39 PUSH LOCAL|1
 40 PUSH FEF|7  ;'<K:DT-NONE>
 41 PUSH FEF|8  ;'<K:BOXED-RIGHT>
 42 MOVE D-LAST FEF|9  ;'<K:FIELD-XOR>
)

(FASL-OP-STOREIN-FUNCTION-CELL [943] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::DPB-XOR|> 0) -74372174>}
  (FASL-OP-INDEX [908] {(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-XOR|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [882] {<|PRIMOP//HARDWARE::DPB-XOR|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [882] {<|PRIMOP//HARDWARE::DPB-XOR|>})
     => (<|PRIMOP//HARDWARE::DPB-XOR|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::DPB-XOR|> (<|PRIMOP//HARDWARE::DPB-XOR|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::DPB-XOR|> (<|PRIMOP//HARDWARE::DPB-XOR|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [887] {<HARDWARE:DPB-XOR>})
       => (<GLOBAL:QUOTE> <HARDWARE:DPB-XOR>))
      (FASL-OP-INDEX [882] {<|PRIMOP//HARDWARE::DPB-XOR|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB-XOR>) <|PRIMOP//HARDWARE::DPB-XOR|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB-XOR>) <|PRIMOP//HARDWARE::DPB-XOR|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB-XOR>) <|PRIMOP//HARDWARE::DPB-XOR|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [887] {<HARDWARE:DPB-XOR>})
     => (<GLOBAL:QUOTE> <HARDWARE:DPB-XOR>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [888] {(<VALUE> <BYTE-SPEC> <WORD>)})
     => (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:DPB-XOR>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:DPB-XOR>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::DPB-IOR|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:DPB-IOR>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<VALUE> <BYTE-SPEC> <WORD>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <VALUE> <BYTE-SPEC> <WORD>) (<CALL-ARGS> <NODE>))) (<GENERATE-DPB> <CONT> <VALUE> <BYTE-SPEC> <WORD> (<GLOBAL:QUOTE> <K:DT-NONE>) (<GLOBAL:QUOTE> <K:BOXED-RIGHT>) (<GLOBAL:QUOTE> <K:FIELD-OR>)))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-IOR|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [993] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::DPB-IOR|> -74367000>}
  (FASL-OP-INDEX [957] {<|PRIMOP//HARDWARE::DPB-IOR|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-IOR|> 0)
 22 PUSH ARG|0
 23 AR-1 (4) D-PDL
 24 CDR D-PDL PDL-POP
 25 MOVEM LOCAL|0
 26 (MISC) CADDDR D-PDL
 27 PUSH LOCAL|0
 28 (MISC) CADDR D-PDL
 29 CADR D-PDL LOCAL|0
 30 CAR D-PDL LOCAL|0
 31 POP LOCAL|4
 32 POP LOCAL|3
 33 POP LOCAL|2
 34 POP LOCAL|1
 35 CALL D-RETURN FEF|6  ;'NIL
 36 PUSH LOCAL|4
 37 PUSH LOCAL|3
 38 PUSH LOCAL|2
 39 PUSH LOCAL|1
 40 PUSH FEF|7  ;'<K:DT-NONE>
 41 PUSH FEF|8  ;'<K:BOXED-RIGHT>
 42 MOVE D-LAST FEF|9  ;'<K:FIELD-OR>
)

(FASL-OP-STOREIN-FUNCTION-CELL [1014] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::DPB-IOR|> 0) -74366264>}
  (FASL-OP-INDEX [979] {(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-IOR|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [957] {<|PRIMOP//HARDWARE::DPB-IOR|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [957] {<|PRIMOP//HARDWARE::DPB-IOR|>})
     => (<|PRIMOP//HARDWARE::DPB-IOR|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::DPB-IOR|> (<|PRIMOP//HARDWARE::DPB-IOR|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::DPB-IOR|> (<|PRIMOP//HARDWARE::DPB-IOR|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [962] {<HARDWARE:DPB-IOR>})
       => (<GLOBAL:QUOTE> <HARDWARE:DPB-IOR>))
      (FASL-OP-INDEX [957] {<|PRIMOP//HARDWARE::DPB-IOR|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB-IOR>) <|PRIMOP//HARDWARE::DPB-IOR|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB-IOR>) <|PRIMOP//HARDWARE::DPB-IOR|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB-IOR>) <|PRIMOP//HARDWARE::DPB-IOR|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [962] {<HARDWARE:DPB-IOR>})
     => (<GLOBAL:QUOTE> <HARDWARE:DPB-IOR>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [963] {(<VALUE> <BYTE-SPEC> <WORD>)})
     => (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:DPB-IOR>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:DPB-IOR>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::DPB-ALIGNED|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:DPB-ALIGNED>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<VALUE> <BYTE-SPEC> <WORD>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <VALUE> <BYTE-SPEC> <WORD>) (<CALL-ARGS> <NODE>))) (<GENERATE-DPB> <CONT> <VALUE> <BYTE-SPEC> <WORD> (<GLOBAL:QUOTE> <K:DT-NONE>) (<GLOBAL:QUOTE> <K:BOXED-RIGHT>) (<GLOBAL:QUOTE> <K:ALIGNED-FIELD-PASS-LEFT>)))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-ALIGNED|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [1064] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::DPB-ALIGNED|> -74362202>}
  (FASL-OP-INDEX [1028] {<|PRIMOP//HARDWARE::DPB-ALIGNED|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-ALIGNED|> 0)
 22 PUSH ARG|0
 23 AR-1 (4) D-PDL
 24 CDR D-PDL PDL-POP
 25 MOVEM LOCAL|0
 26 (MISC) CADDDR D-PDL
 27 PUSH LOCAL|0
 28 (MISC) CADDR D-PDL
 29 CADR D-PDL LOCAL|0
 30 CAR D-PDL LOCAL|0
 31 POP LOCAL|4
 32 POP LOCAL|3
 33 POP LOCAL|2
 34 POP LOCAL|1
 35 CALL D-RETURN FEF|6  ;'NIL
 36 PUSH LOCAL|4
 37 PUSH LOCAL|3
 38 PUSH LOCAL|2
 39 PUSH LOCAL|1
 40 PUSH FEF|7  ;'<K:DT-NONE>
 41 PUSH FEF|8  ;'<K:BOXED-RIGHT>
 42 MOVE D-LAST FEF|9  ;'<K:ALIGNED-FIELD-PASS-LEFT>
)

(FASL-OP-STOREIN-FUNCTION-CELL [1085] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::DPB-ALIGNED|> 0) -74360575>}
  (FASL-OP-INDEX [1050] {(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-ALIGNED|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [1028] {<|PRIMOP//HARDWARE::DPB-ALIGNED|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [1028] {<|PRIMOP//HARDWARE::DPB-ALIGNED|>})
     => (<|PRIMOP//HARDWARE::DPB-ALIGNED|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::DPB-ALIGNED|> (<|PRIMOP//HARDWARE::DPB-ALIGNED|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::DPB-ALIGNED|> (<|PRIMOP//HARDWARE::DPB-ALIGNED|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [1033] {<HARDWARE:DPB-ALIGNED>})
       => (<GLOBAL:QUOTE> <HARDWARE:DPB-ALIGNED>))
      (FASL-OP-INDEX [1028] {<|PRIMOP//HARDWARE::DPB-ALIGNED|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB-ALIGNED>) <|PRIMOP//HARDWARE::DPB-ALIGNED|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB-ALIGNED>) <|PRIMOP//HARDWARE::DPB-ALIGNED|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB-ALIGNED>) <|PRIMOP//HARDWARE::DPB-ALIGNED|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1033] {<HARDWARE:DPB-ALIGNED>})
     => (<GLOBAL:QUOTE> <HARDWARE:DPB-ALIGNED>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1034] {(<VALUE> <BYTE-SPEC> <WORD>)})
     => (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:DPB-ALIGNED>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:DPB-ALIGNED>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::DPB-AND-UNBOXED|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:DPB-AND-UNBOXED>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<VALUE> <BYTE-SPEC> <WORD>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <VALUE> <BYTE-SPEC> <WORD>) (<CALL-ARGS> <NODE>))) (<GENERATE-DPB> <CONT> <VALUE> <BYTE-SPEC> <WORD> (<GLOBAL:QUOTE> <K:DT-NONE>) (<GLOBAL:QUOTE> <K:UNBOXED>) (<GLOBAL:QUOTE> <K:FIELD-AND>)))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-AND-UNBOXED|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [1135] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::DPB-AND-UNBOXED|> -74355453>}
  (FASL-OP-INDEX [1099] {<|PRIMOP//HARDWARE::DPB-AND-UNBOXED|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-AND-UNBOXED|> 0)
 22 PUSH ARG|0
 23 AR-1 (4) D-PDL
 24 CDR D-PDL PDL-POP
 25 MOVEM LOCAL|0
 26 (MISC) CADDDR D-PDL
 27 PUSH LOCAL|0
 28 (MISC) CADDR D-PDL
 29 CADR D-PDL LOCAL|0
 30 CAR D-PDL LOCAL|0
 31 POP LOCAL|4
 32 POP LOCAL|3
 33 POP LOCAL|2
 34 POP LOCAL|1
 35 CALL D-RETURN FEF|6  ;'NIL
 36 PUSH LOCAL|4
 37 PUSH LOCAL|3
 38 PUSH LOCAL|2
 39 PUSH LOCAL|1
 40 PUSH FEF|7  ;'<K:DT-NONE>
 41 PUSH FEF|8  ;'<K:UNBOXED>
 42 MOVE D-LAST FEF|9  ;'<K:FIELD-AND>
)

(FASL-OP-STOREIN-FUNCTION-CELL [1156] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::DPB-AND-UNBOXED|> 0) -74354035>}
  (FASL-OP-INDEX [1121] {(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-AND-UNBOXED|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [1099] {<|PRIMOP//HARDWARE::DPB-AND-UNBOXED|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [1099] {<|PRIMOP//HARDWARE::DPB-AND-UNBOXED|>})
     => (<|PRIMOP//HARDWARE::DPB-AND-UNBOXED|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::DPB-AND-UNBOXED|> (<|PRIMOP//HARDWARE::DPB-AND-UNBOXED|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::DPB-AND-UNBOXED|> (<|PRIMOP//HARDWARE::DPB-AND-UNBOXED|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [1104] {<HARDWARE:DPB-AND-UNBOXED>})
       => (<GLOBAL:QUOTE> <HARDWARE:DPB-AND-UNBOXED>))
      (FASL-OP-INDEX [1099] {<|PRIMOP//HARDWARE::DPB-AND-UNBOXED|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB-AND-UNBOXED>) <|PRIMOP//HARDWARE::DPB-AND-UNBOXED|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB-AND-UNBOXED>) <|PRIMOP//HARDWARE::DPB-AND-UNBOXED|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB-AND-UNBOXED>) <|PRIMOP//HARDWARE::DPB-AND-UNBOXED|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1104] {<HARDWARE:DPB-AND-UNBOXED>})
     => (<GLOBAL:QUOTE> <HARDWARE:DPB-AND-UNBOXED>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1105] {(<VALUE> <BYTE-SPEC> <WORD>)})
     => (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:DPB-AND-UNBOXED>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:DPB-AND-UNBOXED>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>)))))

(FASL-OP-FRAME
<GET-INTEGER>
 20 PUSH ARG|0
 21 (MISC) INTEGERP D-IGNORE
 22 BR-NIL 24
 23 MOVE D-RETURN ARG|0
 24 MOVE D-IGNORE ARG|0
 25 BR-ATOM 30
 26 CAR D-PDL ARG|0
 27 EQ FEF|6  ;'<HARDWARE:UNBOXED-CONSTANT>
 28 BR-NIL 30
 29 CADR D-RETURN ARG|0
 30 CALL D-RETURN FEF|7  ;'NIL
 31 PUSH FEF|8  ;'"Some primitive was given a non integer: ~s"
 32 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [1187] {#<DTP-FEF-POINTER <GET-INTEGER> -74352141>}
  (FASL-OP-INDEX [1170] {<GET-INTEGER>}))

(FASL-OP-FRAME
<UNBOXED-FCN>
 22 PUSH ARG|0
 23 (MISC) LENGTH D-PDL
 24 < '2
 25 BR-NIL 30
 26 CALL D-IGNORE FEF|6  ;':SI
 27 PUSH ARG|0
 28 PUSH-NUMBER 1
 29 MOVE D-LAST 'NIL
 30 CADR D-PDL ARG|0
 31 POP LOCAL|0
 32 CDDR D-PDL ARG|0
 33 POP LOCAL|1
 34 PUSH FEF|7  ;'<SI:XR-BQ-LIST>
 35 PUSH FEF|8  ;'(<GLOBAL:QUOTE> <HARDWARE:UNBOXED-CONSTANT>)
 36 PUSH LOCAL|0
 37 PUSH-ADDRESS LOCAL|2
 38 PUSH LOCAL|1
 39 POP LOCAL|4
 40 POP LOCAL|3
 41 BR 53
 42 PUSH LOCAL|3
 43 CAR D-PDL LOCAL|4
 44 POP LOCAL|5
 45 PUSH FEF|9  ;'<GET-INTEGER>
 46 PUSH LOCAL|5
 47 PUSH-NUMBER 2
 48 (MISC) %INTERNAL-LIST D-PDL
 49 (MISC) NCONS D-PDL
 50 MOVEM LOCAL|3
 51 (MISC) RPLACD D-IGNORE
 52 SETE-CDR LOCAL|4
 53 MOVE D-IGNORE LOCAL|4
 54 BR-NOT-NIL 42
 55 PUSH LOCAL|2
 56 PUSH-NUMBER 2
 57 (MISC) %INTERNAL-LIST* D-PDL
 58 PUSH-NUMBER 3
 59 (MISC) %INTERNAL-LIST D-RETURN
)

(FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (FASL-OP-PACKAGE-SYMBOL
    (FASL-OP-INDEX [43] {"GLOBAL"})
    (FASL-OP-STRING "MACRO")
    <GLOBAL:MACRO>)
  (FASL-OP-INDEX [1231] {#<DTP-FEF-POINTER <UNBOXED-FCN> -74351317>})
 => (<GLOBAL:MACRO> . #<DTP-FEF-POINTER <UNBOXED-FCN> -74351317>))

(FASL-OP-STOREIN-FUNCTION-CELL [1234] {(<GLOBAL:MACRO> . #<DTP-FEF-POINTER <UNBOXED-FCN> -74351317>)}
  (FASL-OP-INDEX [1190] {<UNBOXED-FCN>}))

(FASL-OP-FRAME
<HW-DPB-UNBOXED>
 24 PUSH FEF|7  ;'<HARDWARE:UNBOXED-CONSTANT>
 25 CALL D-PDL FEF|8  ;'NIL
 26 MOVE D-LAST ARG|0
 27 CALL D-PDL FEF|9  ;':PRIMITIVES
 28 PUSH ARG|1
 29 MOVEM LOCAL|0
 30 MOVE D-LAST PDL-POP
 31 CALL D-PDL FEF|10  ;':PRIMITIVES
 32 MOVE D-LAST LOCAL|0
 33 PUSH FEF|6  ;':%%BYTE-SPECIFIER-POSITION
 34 PUSH-NUMBER 0
 35 (MISC) DPB D-PDL
 36 + PDL-POP
 37 CALL D-PDL FEF|8  ;'NIL
 38 MOVE D-LAST ARG|2
 39 (MISC) DPB D-PDL
 40 PUSH-NUMBER 2
 41 (MISC) %INTERNAL-LIST D-RETURN
)

(FASL-OP-STOREIN-FUNCTION-CELL [1260] {#<DTP-FEF-POINTER <HW-DPB-UNBOXED> -74350252>}
  (FASL-OP-INDEX [1237] {<HW-DPB-UNBOXED>}))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::DPB-UNBOXED|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:DPB-UNBOXED>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH-NUMBER 0
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<VALUE> <BYTE-SPEC> <WORD>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:SIMPLIFY> (<NODE>) (<SIMPLIFY-IF-CONSTANT-EXPRESSION> <NODE> (<GLOBAL:QUOTE> <HW-DPB-UNBOXED>))) (<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <VALUE> <BYTE-SPEC> <WORD>) (<CALL-ARGS> <NODE>))) (<GENERATE-DPB> <CONT> <VALUE> <BYTE-SPEC> <WORD> (<GLOBAL:QUOTE> <K:DT-NONE>) (<GLOBAL:QUOTE> <K:UNBOXED>)))))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:GENERATE>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-UNBOXED|> 0)
 56 PUSH FEF|18  ;'<:SIMPLIFY>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-UNBOXED|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [1304] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::DPB-UNBOXED|> -74347607>}
  (FASL-OP-INDEX [1263] {<|PRIMOP//HARDWARE::DPB-UNBOXED|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-UNBOXED|> 0)
 20 PUSH ARG|0
 21 AR-1 (4) D-PDL
 22 CDR D-PDL PDL-POP
 23 MOVEM LOCAL|0
 24 (MISC) CADDDR D-PDL
 25 PUSH LOCAL|0
 26 (MISC) CADDR D-PDL
 27 CADR D-PDL LOCAL|0
 28 CAR D-PDL LOCAL|0
 29 POP LOCAL|4
 30 POP LOCAL|3
 31 POP LOCAL|2
 32 POP LOCAL|1
 33 CALL D-RETURN FEF|6  ;'NIL
 34 PUSH LOCAL|4
 35 PUSH LOCAL|3
 36 PUSH LOCAL|2
 37 PUSH LOCAL|1
 38 PUSH FEF|7  ;'<K:DT-NONE>
 39 MOVE D-LAST FEF|8  ;'<K:UNBOXED>
)

(FASL-OP-STOREIN-FUNCTION-CELL [1325] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::DPB-UNBOXED|> 0) -74346164>}
  (FASL-OP-INDEX [1286] {(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-UNBOXED|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-UNBOXED|> 1)
 18 CALL D-RETURN FEF|6  ;'NIL
 19 PUSH ARG|0
 20 MOVE D-LAST FEF|7  ;'<HW-DPB-UNBOXED>
)

(FASL-OP-STOREIN-FUNCTION-CELL [1338] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::DPB-UNBOXED|> 1) -74345653>}
  (FASL-OP-INDEX [1288] {(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-UNBOXED|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [1263] {<|PRIMOP//HARDWARE::DPB-UNBOXED|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [1263] {<|PRIMOP//HARDWARE::DPB-UNBOXED|>})
     => (<|PRIMOP//HARDWARE::DPB-UNBOXED|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::DPB-UNBOXED|> (<|PRIMOP//HARDWARE::DPB-UNBOXED|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::DPB-UNBOXED|> (<|PRIMOP//HARDWARE::DPB-UNBOXED|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [1268] {<HARDWARE:DPB-UNBOXED>})
       => (<GLOBAL:QUOTE> <HARDWARE:DPB-UNBOXED>))
      (FASL-OP-INDEX [1263] {<|PRIMOP//HARDWARE::DPB-UNBOXED|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB-UNBOXED>) <|PRIMOP//HARDWARE::DPB-UNBOXED|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB-UNBOXED>) <|PRIMOP//HARDWARE::DPB-UNBOXED|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB-UNBOXED>) <|PRIMOP//HARDWARE::DPB-UNBOXED|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1268] {<HARDWARE:DPB-UNBOXED>})
     => (<GLOBAL:QUOTE> <HARDWARE:DPB-UNBOXED>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1269] {(<VALUE> <BYTE-SPEC> <WORD>)})
     => (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:DPB-UNBOXED>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:DPB-UNBOXED>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>)))))

(FASL-OP-FRAME
<HW-DPB-BOXED>
 22 PUSH FEF|7  ;'<HARDWARE:BOXED-CONSTANT>
 23 PUSH ARG|0
 24 CALL D-PDL FEF|8  ;':PRIMITIVES
 25 MOVE D-LAST ARG|1
 26 CALL D-PDL FEF|9  ;':PRIMITIVES
 27 MOVE D-LAST ARG|1
 28 PUSH FEF|6  ;':%%BYTE-SPECIFIER-POSITION
 29 PUSH-NUMBER 0
 30 (MISC) DPB D-PDL
 31 + PDL-POP
 32 PUSH ARG|2
 33 (MISC) DPB D-PDL
 34 PUSH-NUMBER 2
 35 (MISC) %INTERNAL-LIST D-RETURN
)

(FASL-OP-STOREIN-FUNCTION-CELL [1369] {#<DTP-FEF-POINTER <HW-DPB-BOXED> -74342571>}
  (FASL-OP-INDEX [1352] {<HW-DPB-BOXED>}))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::DPB-BOXED|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:DPB-BOXED>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH-NUMBER 0
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<VALUE> <BYTE-SPEC> <WORD>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:SIMPLIFY> (<NODE>) (<SIMPLIFY-IF-CONSTANT-EXPRESSION> <NODE> (<GLOBAL:QUOTE> <HW-DPB-BOXED>))) (<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <VALUE> <BYTE-SPEC> <WORD>) (<CALL-ARGS> <NODE>))) (<GENERATE-DPB> <CONT> <VALUE> <BYTE-SPEC> <WORD> (<GLOBAL:QUOTE> <K:DT-NONE>) (<GLOBAL:QUOTE> <K:BOXED>)))))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:GENERATE>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-BOXED|> 0)
 56 PUSH FEF|18  ;'<:SIMPLIFY>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-BOXED|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [1415] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::DPB-BOXED|> -74342231>}
  (FASL-OP-INDEX [1372] {<|PRIMOP//HARDWARE::DPB-BOXED|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-BOXED|> 0)
 20 PUSH ARG|0
 21 AR-1 (4) D-PDL
 22 CDR D-PDL PDL-POP
 23 MOVEM LOCAL|0
 24 (MISC) CADDDR D-PDL
 25 PUSH LOCAL|0
 26 (MISC) CADDR D-PDL
 27 CADR D-PDL LOCAL|0
 28 CAR D-PDL LOCAL|0
 29 POP LOCAL|4
 30 POP LOCAL|3
 31 POP LOCAL|2
 32 POP LOCAL|1
 33 CALL D-RETURN FEF|6  ;'NIL
 34 PUSH LOCAL|4
 35 PUSH LOCAL|3
 36 PUSH LOCAL|2
 37 PUSH LOCAL|1
 38 PUSH FEF|7  ;'<K:DT-NONE>
 39 MOVE D-LAST FEF|8  ;'<K:BOXED>
)

(FASL-OP-STOREIN-FUNCTION-CELL [1436] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::DPB-BOXED|> 0) -74341446>}
  (FASL-OP-INDEX [1397] {(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-BOXED|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-BOXED|> 1)
 18 CALL D-RETURN FEF|6  ;'NIL
 19 PUSH ARG|0
 20 MOVE D-LAST FEF|7  ;'<HW-DPB-BOXED>
)

(FASL-OP-STOREIN-FUNCTION-CELL [1449] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::DPB-BOXED|> 1) -74340215>}
  (FASL-OP-INDEX [1399] {(<:INTERNAL> <|PRIMOP//HARDWARE::DPB-BOXED|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [1372] {<|PRIMOP//HARDWARE::DPB-BOXED|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [1372] {<|PRIMOP//HARDWARE::DPB-BOXED|>})
     => (<|PRIMOP//HARDWARE::DPB-BOXED|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::DPB-BOXED|> (<|PRIMOP//HARDWARE::DPB-BOXED|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::DPB-BOXED|> (<|PRIMOP//HARDWARE::DPB-BOXED|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [1377] {<HARDWARE:DPB-BOXED>})
       => (<GLOBAL:QUOTE> <HARDWARE:DPB-BOXED>))
      (FASL-OP-INDEX [1372] {<|PRIMOP//HARDWARE::DPB-BOXED|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB-BOXED>) <|PRIMOP//HARDWARE::DPB-BOXED|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB-BOXED>) <|PRIMOP//HARDWARE::DPB-BOXED|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DPB-BOXED>) <|PRIMOP//HARDWARE::DPB-BOXED|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1377] {<HARDWARE:DPB-BOXED>})
     => (<GLOBAL:QUOTE> <HARDWARE:DPB-BOXED>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1378] {(<VALUE> <BYTE-SPEC> <WORD>)})
     => (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:DPB-BOXED>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:DPB-BOXED>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE> <BYTE-SPEC> <WORD>)))))

(FASL-OP-FRAME
<HW-LDB>
 22 CALL D-PDL FEF|7  ;':PRIMITIVES
 23 MOVE D-LAST ARG|1
 24 CALL D-PDL FEF|8  ;':PRIMITIVES
 25 MOVE D-LAST ARG|1
 26 PUSH FEF|6  ;':%%BYTE-SPECIFIER-POSITION
 27 PUSH-NUMBER 0
 28 (MISC) DPB D-PDL
 29 + PDL-POP
 30 PUSH ARG|0
 31 (MISC) LDB D-PDL
 32 CALL D-PDL FEF|7  ;':PRIMITIVES
 33 CALL D-PDL FEF|9  ;':PRIMITIVES
 34 CALL D-PDL FEF|7  ;':PRIMITIVES
 35 MOVE D-LAST ARG|1
 36 MOVE D-LAST '0
 37 MOVEM LOCAL|0
 38 MOVE D-LAST PDL-POP
 39 CALL D-PDL FEF|8  ;':PRIMITIVES
 40 MOVE D-LAST LOCAL|0
 41 PUSH FEF|6  ;':%%BYTE-SPECIFIER-POSITION
 42 PUSH-NUMBER 0
 43 (MISC) DPB D-PDL
 44 + PDL-POP
 45 PUSH ARG|2
 46 (MISC) DPB D-RETURN
)

(FASL-OP-STOREIN-FUNCTION-CELL [1482] {#<DTP-FEF-POINTER <HW-LDB> -74337043>}
  (FASL-OP-INDEX [1463] {<HW-LDB>}))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::LDB|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:LDB>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH-NUMBER 0
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<FROM> <BYTE-SPEC> <INTO>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:SIMPLIFY> (<NODE>) (<SIMPLIFY-IF-CONSTANT-EXPRESSION> <NODE> (<GLOBAL:QUOTE> <HW-LDB>))) (<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <FROM> <BYTE-SPEC> <INTO>) (<CALL-ARGS> <NODE>))) (<GENERATE-LDB> <CONT> <FROM> <BYTE-SPEC> <INTO>))))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:GENERATE>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::LDB|> 0)
 56 PUSH FEF|18  ;'<:SIMPLIFY>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::LDB|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [1525] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::LDB|> -74336357>}
  (FASL-OP-INDEX [1485] {<|PRIMOP//HARDWARE::LDB|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::LDB|> 0)
 16 PUSH ARG|0
 17 AR-1 (4) D-PDL
 18 CDR D-PDL PDL-POP
 19 MOVEM LOCAL|0
 20 (MISC) CADDDR D-PDL
 21 PUSH LOCAL|0
 22 (MISC) CADDR D-PDL
 23 CADR D-PDL LOCAL|0
 24 CAR D-PDL LOCAL|0
 25 POP LOCAL|4
 26 POP LOCAL|3
 27 POP LOCAL|2
 28 POP LOCAL|1
 29 CALL D-RETURN FEF|6  ;'NIL
 30 PUSH LOCAL|4
 31 PUSH LOCAL|3
 32 PUSH LOCAL|2
 33 MOVE D-LAST LOCAL|1
)

(FASL-OP-STOREIN-FUNCTION-CELL [1546] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::LDB|> 0) -74335614>}
  (FASL-OP-INDEX [1507] {(<:INTERNAL> <|PRIMOP//HARDWARE::LDB|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::LDB|> 1)
 18 CALL D-RETURN FEF|6  ;'NIL
 19 PUSH ARG|0
 20 MOVE D-LAST FEF|7  ;'<HW-LDB>
)

(FASL-OP-STOREIN-FUNCTION-CELL [1559] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::LDB|> 1) -74335350>}
  (FASL-OP-INDEX [1509] {(<:INTERNAL> <|PRIMOP//HARDWARE::LDB|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [1485] {<|PRIMOP//HARDWARE::LDB|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [1485] {<|PRIMOP//HARDWARE::LDB|>})
     => (<|PRIMOP//HARDWARE::LDB|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::LDB|> (<|PRIMOP//HARDWARE::LDB|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::LDB|> (<|PRIMOP//HARDWARE::LDB|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [1490] {<HARDWARE:LDB>})
       => (<GLOBAL:QUOTE> <HARDWARE:LDB>))
      (FASL-OP-INDEX [1485] {<|PRIMOP//HARDWARE::LDB|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:LDB>) <|PRIMOP//HARDWARE::LDB|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:LDB>) <|PRIMOP//HARDWARE::LDB|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:LDB>) <|PRIMOP//HARDWARE::LDB|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1490] {<HARDWARE:LDB>})
     => (<GLOBAL:QUOTE> <HARDWARE:LDB>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1491] {(<FROM> <BYTE-SPEC> <INTO>)})
     => (<GLOBAL:QUOTE> (<FROM> <BYTE-SPEC> <INTO>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:LDB>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<FROM> <BYTE-SPEC> <INTO>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:LDB>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<FROM> <BYTE-SPEC> <INTO>)))))

(FASL-OP-FRAME
<HW-LDB-BOXED>
 18 PUSH FEF|6  ;'<HARDWARE:BOXED-CONSTANT>
 19 CALL D-PDL FEF|7  ;'NIL
 20 PUSH ARG|0
 21 PUSH ARG|1
 22 MOVE D-LAST ARG|2
 23 PUSH-NUMBER 2
 24 (MISC) %INTERNAL-LIST D-RETURN
)

(FASL-OP-STOREIN-FUNCTION-CELL [1586] {#<DTP-FEF-POINTER <HW-LDB-BOXED> -74333234>}
  (FASL-OP-INDEX [1573] {<HW-LDB-BOXED>}))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::LDB-BOXED|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:LDB-BOXED>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH-NUMBER 0
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<FROM> <BYTE-SPEC> <INTO>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:SIMPLIFY> (<NODE>) (<SIMPLIFY-IF-CONSTANT-EXPRESSION> <NODE> (<GLOBAL:QUOTE> <HW-LDB-BOXED>))) (<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <FROM> <BYTE-SPEC> <INTO>) (<CALL-ARGS> <NODE>))) (<GENERATE-LDB> <CONT> <FROM> <BYTE-SPEC> <INTO> (<GLOBAL:QUOTE> <K:DT-NONE>) (<GLOBAL:QUOTE> <K:BOXED>)))))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:GENERATE>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::LDB-BOXED|> 0)
 56 PUSH FEF|18  ;'<:SIMPLIFY>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::LDB-BOXED|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [1630] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::LDB-BOXED|> -74333033>}
  (FASL-OP-INDEX [1589] {<|PRIMOP//HARDWARE::LDB-BOXED|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::LDB-BOXED|> 0)
 20 PUSH ARG|0
 21 AR-1 (4) D-PDL
 22 CDR D-PDL PDL-POP
 23 MOVEM LOCAL|0
 24 (MISC) CADDDR D-PDL
 25 PUSH LOCAL|0
 26 (MISC) CADDR D-PDL
 27 CADR D-PDL LOCAL|0
 28 CAR D-PDL LOCAL|0
 29 POP LOCAL|4
 30 POP LOCAL|3
 31 POP LOCAL|2
 32 POP LOCAL|1
 33 CALL D-RETURN FEF|6  ;'NIL
 34 PUSH LOCAL|4
 35 PUSH LOCAL|3
 36 PUSH LOCAL|2
 37 PUSH LOCAL|1
 38 PUSH FEF|7  ;'<K:DT-NONE>
 39 MOVE D-LAST FEF|8  ;'<K:BOXED>
)

(FASL-OP-STOREIN-FUNCTION-CELL [1651] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::LDB-BOXED|> 0) -74332271>}
  (FASL-OP-INDEX [1612] {(<:INTERNAL> <|PRIMOP//HARDWARE::LDB-BOXED|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::LDB-BOXED|> 1)
 18 CALL D-RETURN FEF|6  ;'NIL
 19 PUSH ARG|0
 20 MOVE D-LAST FEF|7  ;'<HW-LDB-BOXED>
)

(FASL-OP-STOREIN-FUNCTION-CELL [1664] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::LDB-BOXED|> 1) -74331763>}
  (FASL-OP-INDEX [1614] {(<:INTERNAL> <|PRIMOP//HARDWARE::LDB-BOXED|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [1589] {<|PRIMOP//HARDWARE::LDB-BOXED|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [1589] {<|PRIMOP//HARDWARE::LDB-BOXED|>})
     => (<|PRIMOP//HARDWARE::LDB-BOXED|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::LDB-BOXED|> (<|PRIMOP//HARDWARE::LDB-BOXED|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::LDB-BOXED|> (<|PRIMOP//HARDWARE::LDB-BOXED|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [1594] {<HARDWARE:LDB-BOXED>})
       => (<GLOBAL:QUOTE> <HARDWARE:LDB-BOXED>))
      (FASL-OP-INDEX [1589] {<|PRIMOP//HARDWARE::LDB-BOXED|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:LDB-BOXED>) <|PRIMOP//HARDWARE::LDB-BOXED|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:LDB-BOXED>) <|PRIMOP//HARDWARE::LDB-BOXED|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:LDB-BOXED>) <|PRIMOP//HARDWARE::LDB-BOXED|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1594] {<HARDWARE:LDB-BOXED>})
     => (<GLOBAL:QUOTE> <HARDWARE:LDB-BOXED>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1595] {(<FROM> <BYTE-SPEC> <INTO>)})
     => (<GLOBAL:QUOTE> (<FROM> <BYTE-SPEC> <INTO>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:LDB-BOXED>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<FROM> <BYTE-SPEC> <INTO>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:LDB-BOXED>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<FROM> <BYTE-SPEC> <INTO>)))))

(FASL-OP-FRAME
<HW-LDB-NOT>
 22 CALL D-PDL FEF|7  ;':PRIMITIVES
 23 MOVE D-LAST ARG|1
 24 CALL D-PDL FEF|8  ;':PRIMITIVES
 25 MOVE D-LAST ARG|1
 26 PUSH FEF|6  ;':%%BYTE-SPECIFIER-POSITION
 27 PUSH-NUMBER 0
 28 (MISC) DPB D-PDL
 29 + PDL-POP
 30 PUSH ARG|0
 31 (MISC) LDB D-PDL
 32 LOGXOR '-1
 33 CALL D-PDL FEF|7  ;':PRIMITIVES
 34 CALL D-PDL FEF|9  ;':PRIMITIVES
 35 CALL D-PDL FEF|7  ;':PRIMITIVES
 36 MOVE D-LAST ARG|1
 37 MOVE D-LAST '0
 38 MOVEM LOCAL|0
 39 MOVE D-LAST PDL-POP
 40 CALL D-PDL FEF|8  ;':PRIMITIVES
 41 MOVE D-LAST LOCAL|0
 42 PUSH FEF|6  ;':%%BYTE-SPECIFIER-POSITION
 43 PUSH-NUMBER 0
 44 (MISC) DPB D-PDL
 45 + PDL-POP
 46 PUSH ARG|2
 47 (MISC) DPB D-RETURN
)

(FASL-OP-STOREIN-FUNCTION-CELL [1694] {#<DTP-FEF-POINTER <HW-LDB-NOT> -74330624>}
  (FASL-OP-INDEX [1678] {<HW-LDB-NOT>}))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::LDB-NOT|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:LDB-NOT>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH-NUMBER 0
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<FROM> <BYTE-SPEC> <INTO>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:SIMPLIFY> (<NODE>) (<SIMPLIFY-IF-CONSTANT-EXPRESSION> <NODE> (<GLOBAL:QUOTE> <HW-LDB-NOT>))) (<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <FROM> <BYTE-SPEC> <INTO>) (<CALL-ARGS> <NODE>))) (<GENERATE-LDB> <CONT> <FROM> <BYTE-SPEC> <INTO> (<GLOBAL:QUOTE> <K:DT-NONE>) (<GLOBAL:QUOTE> <K:BOXED-RIGHT>) (<GLOBAL:QUOTE> <K:FIELD-NOT>)))))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:GENERATE>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::LDB-NOT|> 0)
 56 PUSH FEF|18  ;'<:SIMPLIFY>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::LDB-NOT|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [1741] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::LDB-NOT|> -74327265>}
  (FASL-OP-INDEX [1697] {<|PRIMOP//HARDWARE::LDB-NOT|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::LDB-NOT|> 0)
 22 PUSH ARG|0
 23 AR-1 (4) D-PDL
 24 CDR D-PDL PDL-POP
 25 MOVEM LOCAL|0
 26 (MISC) CADDDR D-PDL
 27 PUSH LOCAL|0
 28 (MISC) CADDR D-PDL
 29 CADR D-PDL LOCAL|0
 30 CAR D-PDL LOCAL|0
 31 POP LOCAL|4
 32 POP LOCAL|3
 33 POP LOCAL|2
 34 POP LOCAL|1
 35 CALL D-RETURN FEF|6  ;'NIL
 36 PUSH LOCAL|4
 37 PUSH LOCAL|3
 38 PUSH LOCAL|2
 39 PUSH LOCAL|1
 40 PUSH FEF|7  ;'<K:DT-NONE>
 41 PUSH FEF|8  ;'<K:BOXED-RIGHT>
 42 MOVE D-LAST FEF|9  ;'<K:FIELD-NOT>
)

(FASL-OP-STOREIN-FUNCTION-CELL [1762] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::LDB-NOT|> 0) -74326454>}
  (FASL-OP-INDEX [1723] {(<:INTERNAL> <|PRIMOP//HARDWARE::LDB-NOT|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::LDB-NOT|> 1)
 18 CALL D-RETURN FEF|6  ;'NIL
 19 PUSH ARG|0
 20 MOVE D-LAST FEF|7  ;'<HW-LDB-NOT>
)

(FASL-OP-STOREIN-FUNCTION-CELL [1775] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::LDB-NOT|> 1) -74326172>}
  (FASL-OP-INDEX [1725] {(<:INTERNAL> <|PRIMOP//HARDWARE::LDB-NOT|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [1697] {<|PRIMOP//HARDWARE::LDB-NOT|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [1697] {<|PRIMOP//HARDWARE::LDB-NOT|>})
     => (<|PRIMOP//HARDWARE::LDB-NOT|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::LDB-NOT|> (<|PRIMOP//HARDWARE::LDB-NOT|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::LDB-NOT|> (<|PRIMOP//HARDWARE::LDB-NOT|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [1702] {<HARDWARE:LDB-NOT>})
       => (<GLOBAL:QUOTE> <HARDWARE:LDB-NOT>))
      (FASL-OP-INDEX [1697] {<|PRIMOP//HARDWARE::LDB-NOT|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:LDB-NOT>) <|PRIMOP//HARDWARE::LDB-NOT|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:LDB-NOT>) <|PRIMOP//HARDWARE::LDB-NOT|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:LDB-NOT>) <|PRIMOP//HARDWARE::LDB-NOT|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1702] {<HARDWARE:LDB-NOT>})
     => (<GLOBAL:QUOTE> <HARDWARE:LDB-NOT>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1703] {(<FROM> <BYTE-SPEC> <INTO>)})
     => (<GLOBAL:QUOTE> (<FROM> <BYTE-SPEC> <INTO>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:LDB-NOT>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<FROM> <BYTE-SPEC> <INTO>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:LDB-NOT>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<FROM> <BYTE-SPEC> <INTO>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::FIELD-EXTRACT-64|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:FIELD-EXTRACT-64>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<FROM-HI> <FROM-LO> <BYTE-SPEC>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <FROM-HI> <FROM-LO> <BYTE-SPEC>) (<CALL-ARGS> <NODE>))) (<GENERATE-LDB> <CONT> <FROM-HI> <BYTE-SPEC> <FROM-LO> (<GLOBAL:QUOTE> <K:DT-NONE>) (<GLOBAL:QUOTE> <K:UNBOXED>) (<GLOBAL:QUOTE> <K:FIELD-EXTRACT-LR>)))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::FIELD-EXTRACT-64|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [1827] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::FIELD-EXTRACT-64|> -74324137>}
  (FASL-OP-INDEX [1789] {<|PRIMOP//HARDWARE::FIELD-EXTRACT-64|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::FIELD-EXTRACT-64|> 0)
 22 PUSH ARG|0
 23 AR-1 (4) D-PDL
 24 CDR D-PDL PDL-POP
 25 MOVEM LOCAL|0
 26 (MISC) CADDDR D-PDL
 27 PUSH LOCAL|0
 28 (MISC) CADDR D-PDL
 29 CADR D-PDL LOCAL|0
 30 CAR D-PDL LOCAL|0
 31 POP LOCAL|4
 32 POP LOCAL|3
 33 POP LOCAL|2
 34 POP LOCAL|1
 35 CALL D-RETURN FEF|6  ;'NIL
 36 PUSH LOCAL|4
 37 PUSH LOCAL|3
 38 PUSH LOCAL|1
 39 PUSH LOCAL|2
 40 PUSH FEF|7  ;'<K:DT-NONE>
 41 PUSH FEF|8  ;'<K:UNBOXED>
 42 MOVE D-LAST FEF|9  ;'<K:FIELD-EXTRACT-LR>
)

(FASL-OP-STOREIN-FUNCTION-CELL [1848] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::FIELD-EXTRACT-64|> 0) -74323324>}
  (FASL-OP-INDEX [1813] {(<:INTERNAL> <|PRIMOP//HARDWARE::FIELD-EXTRACT-64|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [1789] {<|PRIMOP//HARDWARE::FIELD-EXTRACT-64|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [1789] {<|PRIMOP//HARDWARE::FIELD-EXTRACT-64|>})
     => (<|PRIMOP//HARDWARE::FIELD-EXTRACT-64|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FIELD-EXTRACT-64|> (<|PRIMOP//HARDWARE::FIELD-EXTRACT-64|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FIELD-EXTRACT-64|> (<|PRIMOP//HARDWARE::FIELD-EXTRACT-64|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [1794] {<HARDWARE:FIELD-EXTRACT-64>})
       => (<GLOBAL:QUOTE> <HARDWARE:FIELD-EXTRACT-64>))
      (FASL-OP-INDEX [1789] {<|PRIMOP//HARDWARE::FIELD-EXTRACT-64|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FIELD-EXTRACT-64>) <|PRIMOP//HARDWARE::FIELD-EXTRACT-64|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FIELD-EXTRACT-64>) <|PRIMOP//HARDWARE::FIELD-EXTRACT-64|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FIELD-EXTRACT-64>) <|PRIMOP//HARDWARE::FIELD-EXTRACT-64|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1794] {<HARDWARE:FIELD-EXTRACT-64>})
     => (<GLOBAL:QUOTE> <HARDWARE:FIELD-EXTRACT-64>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1797] {(<FROM-HI> <FROM-LO> <BYTE-SPEC>)})
     => (<GLOBAL:QUOTE> (<FROM-HI> <FROM-LO> <BYTE-SPEC>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FIELD-EXTRACT-64>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<FROM-HI> <FROM-LO> <BYTE-SPEC>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FIELD-EXTRACT-64>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<FROM-HI> <FROM-LO> <BYTE-SPEC>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::MERGE-24|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:MERGE-24>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<LEFT-HIGH-BYTE> <RIGHT-LOW-24>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-BINOP> <NODE> (<GLOBAL:QUOTE> <K:MERGE-R>) (<GLOBAL:QUOTE> <K:MERGE-R>) (<GLOBAL:QUOTE> <K:BW-24>) (<GLOBAL:QUOTE> <K:BOXED>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::MERGE-24|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [1899] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::MERGE-24|> -74322054>}
  (FASL-OP-INDEX [1862] {<|PRIMOP//HARDWARE::MERGE-24|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::MERGE-24|> 0)
 22 CALL D-RETURN FEF|6  ;'NIL
 23 PUSH ARG|0
 24 PUSH FEF|7  ;'<K:MERGE-R>
 25 PUSH FEF|7  ;'<K:MERGE-R>
 26 PUSH FEF|8  ;'<K:BW-24>
 27 MOVE D-LAST FEF|9  ;'<K:BOXED>
)

(FASL-OP-STOREIN-FUNCTION-CELL [1912] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::MERGE-24|> 0) -74321277>}
  (FASL-OP-INDEX [1885] {(<:INTERNAL> <|PRIMOP//HARDWARE::MERGE-24|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [1862] {<|PRIMOP//HARDWARE::MERGE-24|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [1862] {<|PRIMOP//HARDWARE::MERGE-24|>})
     => (<|PRIMOP//HARDWARE::MERGE-24|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::MERGE-24|> (<|PRIMOP//HARDWARE::MERGE-24|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::MERGE-24|> (<|PRIMOP//HARDWARE::MERGE-24|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [1867] {<HARDWARE:MERGE-24>})
       => (<GLOBAL:QUOTE> <HARDWARE:MERGE-24>))
      (FASL-OP-INDEX [1862] {<|PRIMOP//HARDWARE::MERGE-24|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:MERGE-24>) <|PRIMOP//HARDWARE::MERGE-24|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:MERGE-24>) <|PRIMOP//HARDWARE::MERGE-24|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:MERGE-24>) <|PRIMOP//HARDWARE::MERGE-24|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1867] {<HARDWARE:MERGE-24>})
     => (<GLOBAL:QUOTE> <HARDWARE:MERGE-24>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1870] {(<LEFT-HIGH-BYTE> <RIGHT-LOW-24>)})
     => (<GLOBAL:QUOTE> (<LEFT-HIGH-BYTE> <RIGHT-LOW-24>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:MERGE-24>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<LEFT-HIGH-BYTE> <RIGHT-LOW-24>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:MERGE-24>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<LEFT-HIGH-BYTE> <RIGHT-LOW-24>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32LOGBITP|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:32LOGBITP>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH '2000
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<INDEX> <N>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:CONDITIONAL?> <GLOBAL:T>) (<:PRESIMPLIFY> (<NODE>) (<PRESIMPLIFY-TO-CONDITIONAL> <NODE>)) (<:GENERATE> (<NODE>) (<LET> ((<INDEX> (<CALL-ARG-N> 4 <NODE>)) (<N> (<CALL-ARG-N> 5 <NODE>))) (<IF> (<LITERAL-NODE?> <INDEX>) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:EXTRACT-BIT-RIGHT>) (<GLOBAL:QUOTE> <K:NOP>) <IGNORED> (<GET-RIGHT-OPERAND> <N>) (<SI:XR-BQ-LIST> (<GLOBAL:QUOTE> <PRIMITIVES:BYTE>) 0 (<LEAF-VALUE> <INDEX>)) (<GLOBAL:QUOTE> <K:PW-II>)) (<PROGN> (<GENERATE-LOAD-SR-POSITION> <INDEX>) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:EXTRACT-BIT-RIGHT>) (<GLOBAL:QUOTE> <K:NOP>) <IGNORED> (<GET-RIGHT-OPERAND> <N>) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> 0)) (<GLOBAL:QUOTE> <K:PW-RR>)))) (<GENERATE-CONDITIONAL> <NODE> (<GLOBAL:QUOTE> <K:BR-ZERO>)))))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:GENERATE>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGBITP|> 0)
 56 PUSH FEF|18  ;'<:PRESIMPLIFY>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGBITP|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2008] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32LOGBITP|> -74317201>}
  (FASL-OP-INDEX [1926] {<|PRIMOP//HARDWARE::32LOGBITP|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGBITP|> 0)
 42 PUSH-NUMBER 4
 43 PUSH ARG|0
 44 AR-1 (4) D-PDL
 45 (MISC) NTH D-PDL
 46 PUSH-NUMBER 5
 47 PUSH ARG|0
 48 AR-1 (4) D-PDL
 49 (MISC) NTH D-PDL
 50 POP LOCAL|1
 51 MOVEM LOCAL|0
 52 PUSH FEF|7  ;'<LEAF-NODE>
 53 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 54 BR-NIL 73
 55 PUSH LOCAL|0
 56 AR-1 (5) D-PDL
 57 EQ FEF|8  ;'<LITERAL>
 58 BR-NIL 73
 59 CALL D-IGNORE FEF|9  ;'NIL
 60 PUSH FEF|10  ;'<K:EXTRACT-BIT-RIGHT>
 61 PUSH FEF|11  ;'<K:NOP>
 62 PUSH FEF|6  ;':IGNORED
 63 CALL D-PDL FEF|12  ;'NIL
 64 MOVE D-LAST LOCAL|1
 65 PUSH FEF|13  ;'<PRIMITIVES:BYTE>
 66 PUSH-NUMBER 0
 67 PUSH LOCAL|0
 68 AR-1 (4) D-PDL
 69 PUSH-NUMBER 3
 70 (MISC) %INTERNAL-LIST D-PDL
 71 MOVE D-LAST FEF|14  ;'<K:PW-II>
 72 BR 83
 73 CALL D-IGNORE FEF|15  ;'NIL
 74 MOVE D-LAST LOCAL|0
 75 CALL D-IGNORE FEF|9  ;'NIL
 76 PUSH FEF|10  ;'<K:EXTRACT-BIT-RIGHT>
 77 PUSH FEF|11  ;'<K:NOP>
 78 PUSH FEF|6  ;':IGNORED
 79 CALL D-PDL FEF|12  ;'NIL
 80 MOVE D-LAST LOCAL|1
 81 PUSH FEF|16  ;'(<GLOBAL:QUOTE> 0)
 82 MOVE D-LAST FEF|17  ;'<K:PW-RR>
 83 CALL D-RETURN FEF|18  ;'NIL
 84 PUSH ARG|0
 85 MOVE D-LAST FEF|19  ;'<K:BR-ZERO>
)

(FASL-OP-STOREIN-FUNCTION-CELL [2031] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32LOGBITP|> 0) -74314410>}
  (FASL-OP-INDEX [1990] {(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGBITP|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGBITP|> 1)
 16 CALL D-RETURN FEF|6  ;'NIL
 17 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [2044] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32LOGBITP|> 1) -74313273>}
  (FASL-OP-INDEX [1992] {(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGBITP|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [1926] {<|PRIMOP//HARDWARE::32LOGBITP|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [1926] {<|PRIMOP//HARDWARE::32LOGBITP|>})
     => (<|PRIMOP//HARDWARE::32LOGBITP|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32LOGBITP|> (<|PRIMOP//HARDWARE::32LOGBITP|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32LOGBITP|> (<|PRIMOP//HARDWARE::32LOGBITP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [1931] {<HARDWARE:32LOGBITP>})
       => (<GLOBAL:QUOTE> <HARDWARE:32LOGBITP>))
      (FASL-OP-INDEX [1926] {<|PRIMOP//HARDWARE::32LOGBITP|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32LOGBITP>) <|PRIMOP//HARDWARE::32LOGBITP|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32LOGBITP>) <|PRIMOP//HARDWARE::32LOGBITP|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32LOGBITP>) <|PRIMOP//HARDWARE::32LOGBITP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1931] {<HARDWARE:32LOGBITP>})
     => (<GLOBAL:QUOTE> <HARDWARE:32LOGBITP>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [1933] {(<INDEX> <N>)})
     => (<GLOBAL:QUOTE> (<INDEX> <N>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32LOGBITP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<INDEX> <N>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32LOGBITP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<INDEX> <N>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:ALU-STATUS-LOGBITP>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH '2000
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<INDEX>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:CONDITIONAL?> <GLOBAL:T>) (<:PRESIMPLIFY> (<NODE>) (<PRESIMPLIFY-TO-CONDITIONAL> <NODE>)) (<:GENERATE> (<NODE>) (<LET> ((<INDEX> (<CALL-ARG-N> 4 <NODE>))) (<IF> (<LITERAL-NODE?> <INDEX>) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:EXTRACT-BIT-STATUS>) (<GLOBAL:QUOTE> <K:NOP>) <IGNORED> (<GLOBAL:QUOTE> <GLOBAL-REGISTERS:*ZERO*>) (<SI:XR-BQ-LIST> (<GLOBAL:QUOTE> <PRIMITIVES:BYTE>) 0 (<LEAF-VALUE> <INDEX>)) (<GLOBAL:QUOTE> <K:PW-II>)) (<PROGN> (<ERROR> "Argh, logbitp non constant from status.  Fix me."))) (<GENERATE-CONDITIONAL> <NODE> (<GLOBAL:QUOTE> <K:BR-ZERO>)))))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:GENERATE>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|> 0)
 56 PUSH FEF|18  ;'<:PRESIMPLIFY>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2117] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|> -74310232>}
  (FASL-OP-INDEX [2058] {<|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|> 0)
 40 PUSH-NUMBER 4
 41 PUSH ARG|0
 42 AR-1 (4) D-PDL
 43 (MISC) NTH D-PDL
 44 MOVEM LOCAL|0
 45 PUSH FEF|7  ;'<LEAF-NODE>
 46 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 47 BR-NIL 65
 48 PUSH LOCAL|0
 49 AR-1 (5) D-PDL
 50 EQ FEF|8  ;'<LITERAL>
 51 BR-NIL 65
 52 CALL D-IGNORE FEF|9  ;'NIL
 53 PUSH FEF|10  ;'<K:EXTRACT-BIT-STATUS>
 54 PUSH FEF|11  ;'<K:NOP>
 55 PUSH FEF|6  ;':IGNORED
 56 PUSH FEF|12  ;'<GLOBAL-REGISTERS:*ZERO*>
 57 PUSH FEF|13  ;'<PRIMITIVES:BYTE>
 58 PUSH-NUMBER 0
 59 PUSH LOCAL|0
 60 AR-1 (4) D-PDL
 61 PUSH-NUMBER 3
 62 (MISC) %INTERNAL-LIST D-PDL
 63 MOVE D-LAST FEF|14  ;'<K:PW-II>
 64 BR 67
 65 CALL D-IGNORE FEF|15  ;'NIL
 66 MOVE D-LAST FEF|16  ;'"Argh, logbitp non constant from status.  Fix me."
 67 CALL D-RETURN FEF|17  ;'NIL
 68 PUSH ARG|0
 69 MOVE D-LAST FEF|18  ;'<K:BR-ZERO>
)

(FASL-OP-STOREIN-FUNCTION-CELL [2135] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|> 0) -74305446>}
  (FASL-OP-INDEX [2099] {(<:INTERNAL> <|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|> 1)
 16 CALL D-RETURN FEF|6  ;'NIL
 17 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [2148] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|> 1) -74305122>}
  (FASL-OP-INDEX [2101] {(<:INTERNAL> <|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [2058] {<|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [2058] {<|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|>})
     => (<|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|> (<|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|> (<|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [2063] {<HARDWARE:ALU-STATUS-LOGBITP>})
       => (<GLOBAL:QUOTE> <HARDWARE:ALU-STATUS-LOGBITP>))
      (FASL-OP-INDEX [2058] {<|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:ALU-STATUS-LOGBITP>) <|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:ALU-STATUS-LOGBITP>) <|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:ALU-STATUS-LOGBITP>) <|PRIMOP//HARDWARE::ALU-STATUS-LOGBITP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2063] {<HARDWARE:ALU-STATUS-LOGBITP>})
     => (<GLOBAL:QUOTE> <HARDWARE:ALU-STATUS-LOGBITP>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2064] {(<INDEX>)})
     => (<GLOBAL:QUOTE> (<INDEX>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:ALU-STATUS-LOGBITP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<INDEX>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:ALU-STATUS-LOGBITP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<INDEX>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32SET-BIT|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32SET-BIT>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<INDEX> <WORD>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <INDEX> <WORD>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<IF> (<LITERAL-NODE?> <INDEX>) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:SET-BIT-RIGHT>) <DEST> <IGNORED> (<GET-RIGHT-OPERAND> <WORD>) (<SI:XR-BQ-LIST> (<GLOBAL:QUOTE> <PRIMITIVES:BYTE>) 0 (<LEAF-VALUE> <INDEX>)) (<GLOBAL:QUOTE> <K:PW-II>)) (<PROGN> (<GENERATE-LOAD-SR-POSITION> <INDEX>) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:SET-BIT-RIGHT>) <DEST> <IGNORED> (<GET-RIGHT-OPERAND> <WORD>) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> 0)) (<GLOBAL:QUOTE> <K:PW-RR>)))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32SET-BIT|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2217] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32SET-BIT|> -74301573>}
  (FASL-OP-INDEX [2162] {<|PRIMOP//HARDWARE::32SET-BIT|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32SET-BIT|> 0)
 38 PUSH ARG|0
 39 AR-1 (4) D-PDL
 40 CDR D-PDL PDL-POP
 41 MOVEM LOCAL|0
 42 (MISC) CADDR D-PDL
 43 CADR D-PDL LOCAL|0
 44 CAR D-PDL LOCAL|0
 45 POP LOCAL|3
 46 POP LOCAL|2
 47 POP LOCAL|1
 48 CALL D-PDL FEF|7  ;'NIL
 49 MOVE D-LAST LOCAL|3
 50 POP LOCAL|4
 51 PUSH LOCAL|2
 52 PUSH FEF|8  ;'<LEAF-NODE>
 53 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 54 BR-NIL 73
 55 PUSH LOCAL|2
 56 AR-1 (5) D-PDL
 57 EQ FEF|9  ;'<LITERAL>
 58 BR-NIL 73
 59 CALL D-IGNORE FEF|10  ;'NIL
 60 PUSH FEF|11  ;'<K:SET-BIT-RIGHT>
 61 PUSH LOCAL|4
 62 PUSH FEF|6  ;':IGNORED
 63 CALL D-PDL FEF|12  ;'NIL
 64 MOVE D-LAST LOCAL|1
 65 PUSH FEF|13  ;'<PRIMITIVES:BYTE>
 66 PUSH-NUMBER 0
 67 PUSH LOCAL|2
 68 AR-1 (4) D-PDL
 69 PUSH-NUMBER 3
 70 (MISC) %INTERNAL-LIST D-PDL
 71 MOVE D-LAST FEF|14  ;'<K:PW-II>
 72 MOVE D-RETURN LOCAL|4
 73 CALL D-IGNORE FEF|15  ;'NIL
 74 MOVE D-LAST LOCAL|2
 75 CALL D-IGNORE FEF|10  ;'NIL
 76 PUSH FEF|11  ;'<K:SET-BIT-RIGHT>
 77 PUSH LOCAL|4
 78 PUSH FEF|6  ;':IGNORED
 79 CALL D-PDL FEF|12  ;'NIL
 80 MOVE D-LAST LOCAL|1
 81 PUSH FEF|16  ;'(<GLOBAL:QUOTE> 0)
 82 MOVE D-LAST FEF|17  ;'<K:PW-RR>
 83 MOVE D-RETURN LOCAL|4
)

(FASL-OP-STOREIN-FUNCTION-CELL [2238] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32SET-BIT|> 0) -74300275>}
  (FASL-OP-INDEX [2203] {(<:INTERNAL> <|PRIMOP//HARDWARE::32SET-BIT|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [2162] {<|PRIMOP//HARDWARE::32SET-BIT|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [2162] {<|PRIMOP//HARDWARE::32SET-BIT|>})
     => (<|PRIMOP//HARDWARE::32SET-BIT|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32SET-BIT|> (<|PRIMOP//HARDWARE::32SET-BIT|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32SET-BIT|> (<|PRIMOP//HARDWARE::32SET-BIT|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [2167] {<HARDWARE:32SET-BIT>})
       => (<GLOBAL:QUOTE> <HARDWARE:32SET-BIT>))
      (FASL-OP-INDEX [2162] {<|PRIMOP//HARDWARE::32SET-BIT|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32SET-BIT>) <|PRIMOP//HARDWARE::32SET-BIT|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32SET-BIT>) <|PRIMOP//HARDWARE::32SET-BIT|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32SET-BIT>) <|PRIMOP//HARDWARE::32SET-BIT|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2167] {<HARDWARE:32SET-BIT>})
     => (<GLOBAL:QUOTE> <HARDWARE:32SET-BIT>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2168] {(<INDEX> <WORD>)})
     => (<GLOBAL:QUOTE> (<INDEX> <WORD>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32SET-BIT>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<INDEX> <WORD>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32SET-BIT>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<INDEX> <WORD>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32CLEAR-BIT|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32CLEAR-BIT>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<INDEX> <WORD>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <INDEX> <WORD>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<IF> (<LITERAL-NODE?> <INDEX>) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:RESET-BIT-RIGHT>) <DEST> <IGNORED> (<GET-RIGHT-OPERAND> <WORD>) (<SI:XR-BQ-LIST> (<GLOBAL:QUOTE> <PRIMITIVES:BYTE>) 0 (<LEAF-VALUE> <INDEX>)) (<GLOBAL:QUOTE> <K:PW-II>)) (<PROGN> (<GENERATE-LOAD-SR-POSITION> <INDEX>) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:RESET-BIT-RIGHT>) <DEST> <IGNORED> (<GET-RIGHT-OPERAND> <WORD>) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> 0)) (<GLOBAL:QUOTE> <K:PW-RR>)))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32CLEAR-BIT|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2307] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32CLEAR-BIT|> -74275642>}
  (FASL-OP-INDEX [2252] {<|PRIMOP//HARDWARE::32CLEAR-BIT|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32CLEAR-BIT|> 0)
 38 PUSH ARG|0
 39 AR-1 (4) D-PDL
 40 CDR D-PDL PDL-POP
 41 MOVEM LOCAL|0
 42 (MISC) CADDR D-PDL
 43 CADR D-PDL LOCAL|0
 44 CAR D-PDL LOCAL|0
 45 POP LOCAL|3
 46 POP LOCAL|2
 47 POP LOCAL|1
 48 CALL D-PDL FEF|7  ;'NIL
 49 MOVE D-LAST LOCAL|3
 50 POP LOCAL|4
 51 PUSH LOCAL|2
 52 PUSH FEF|8  ;'<LEAF-NODE>
 53 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 54 BR-NIL 73
 55 PUSH LOCAL|2
 56 AR-1 (5) D-PDL
 57 EQ FEF|9  ;'<LITERAL>
 58 BR-NIL 73
 59 CALL D-IGNORE FEF|10  ;'NIL
 60 PUSH FEF|11  ;'<K:RESET-BIT-RIGHT>
 61 PUSH LOCAL|4
 62 PUSH FEF|6  ;':IGNORED
 63 CALL D-PDL FEF|12  ;'NIL
 64 MOVE D-LAST LOCAL|1
 65 PUSH FEF|13  ;'<PRIMITIVES:BYTE>
 66 PUSH-NUMBER 0
 67 PUSH LOCAL|2
 68 AR-1 (4) D-PDL
 69 PUSH-NUMBER 3
 70 (MISC) %INTERNAL-LIST D-PDL
 71 MOVE D-LAST FEF|14  ;'<K:PW-II>
 72 MOVE D-RETURN LOCAL|4
 73 CALL D-IGNORE FEF|15  ;'NIL
 74 MOVE D-LAST LOCAL|2
 75 CALL D-IGNORE FEF|10  ;'NIL
 76 PUSH FEF|11  ;'<K:RESET-BIT-RIGHT>
 77 PUSH LOCAL|4
 78 PUSH FEF|6  ;':IGNORED
 79 CALL D-PDL FEF|12  ;'NIL
 80 MOVE D-LAST LOCAL|1
 81 PUSH FEF|16  ;'(<GLOBAL:QUOTE> 0)
 82 MOVE D-LAST FEF|17  ;'<K:PW-RR>
 83 MOVE D-RETURN LOCAL|4
)

(FASL-OP-STOREIN-FUNCTION-CELL [2328] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32CLEAR-BIT|> 0) -74274775>}
  (FASL-OP-INDEX [2293] {(<:INTERNAL> <|PRIMOP//HARDWARE::32CLEAR-BIT|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [2252] {<|PRIMOP//HARDWARE::32CLEAR-BIT|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [2252] {<|PRIMOP//HARDWARE::32CLEAR-BIT|>})
     => (<|PRIMOP//HARDWARE::32CLEAR-BIT|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32CLEAR-BIT|> (<|PRIMOP//HARDWARE::32CLEAR-BIT|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32CLEAR-BIT|> (<|PRIMOP//HARDWARE::32CLEAR-BIT|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [2257] {<HARDWARE:32CLEAR-BIT>})
       => (<GLOBAL:QUOTE> <HARDWARE:32CLEAR-BIT>))
      (FASL-OP-INDEX [2252] {<|PRIMOP//HARDWARE::32CLEAR-BIT|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32CLEAR-BIT>) <|PRIMOP//HARDWARE::32CLEAR-BIT|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32CLEAR-BIT>) <|PRIMOP//HARDWARE::32CLEAR-BIT|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32CLEAR-BIT>) <|PRIMOP//HARDWARE::32CLEAR-BIT|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2257] {<HARDWARE:32CLEAR-BIT>})
     => (<GLOBAL:QUOTE> <HARDWARE:32CLEAR-BIT>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2258] {(<INDEX> <WORD>)})
     => (<GLOBAL:QUOTE> (<INDEX> <WORD>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32CLEAR-BIT>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<INDEX> <WORD>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32CLEAR-BIT>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<INDEX> <WORD>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::FIELD-EXTRACT|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:FIELD-EXTRACT>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<FROM> <BYTE-SPEC>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <FROM> <BYTE-SPEC>) (<CALL-ARGS> <NODE>))) (<MULTIPLE-VALUE-BIND> (<DEST> <RIGHT>) (<GET-DEST-AND-RIGHT-OPERAND> <CONT> <FROM>) (<IF> (<LITERAL-NODE?> <BYTE-SPEC>) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:FIELD-EXTRACT-R>) <DEST> <IGNORED> <RIGHT> (<LET> ((<BYTE-SPEC> (<LEAF-VALUE> <BYTE-SPEC>))) (<SI:XR-BQ-LIST> (<GLOBAL:QUOTE> <PRIMITIVES:BYTE>) (<PRIMITIVES:BYTE-SIZE> <BYTE-SPEC>) (<-> (<PRIMITIVES:BYTE-POSITION> <BYTE-SPEC>)))) (<GLOBAL:QUOTE> <K:PW-II>)) (<ERROR> "non constant field-extract not yet implemented")) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::FIELD-EXTRACT|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2397] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::FIELD-EXTRACT|> -74272340>}
  (FASL-OP-INDEX [2342] {<|PRIMOP//HARDWARE::FIELD-EXTRACT|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::FIELD-EXTRACT|> 0)
 38 PUSH ARG|0
 39 AR-1 (4) D-PDL
 40 CDR D-PDL PDL-POP
 41 MOVEM LOCAL|0
 42 (MISC) CADDR D-PDL
 43 CADR D-PDL LOCAL|0
 44 CAR D-PDL LOCAL|0
 45 POP LOCAL|3
 46 POP LOCAL|2
 47 POP LOCAL|1
 48 PUSH FEF|7  ;'NIL
 49 PUSH-NUMBER 2
 50 (MISC) %CALL-MULT-VALUE D-IGNORE
 51 PUSH LOCAL|3
 52 MOVE D-LAST LOCAL|2
 53 POP LOCAL|5
 54 POP LOCAL|4
 55 PUSH LOCAL|1
 56 PUSH FEF|8  ;'<LEAF-NODE>
 57 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 58 BR-NIL 81
 59 PUSH LOCAL|1
 60 AR-1 (5) D-PDL
 61 EQ FEF|9  ;'<LITERAL>
 62 BR-NIL 81
 63 CALL D-IGNORE FEF|10  ;'NIL
 64 PUSH FEF|11  ;'<K:FIELD-EXTRACT-R>
 65 PUSH LOCAL|4
 66 PUSH FEF|6  ;':IGNORED
 67 PUSH LOCAL|5
 68 PUSH LOCAL|1
 69 AR-1 (4) D-PDL
 70 POP LOCAL|6
 71 PUSH FEF|12  ;'<PRIMITIVES:BYTE>
 72 CALL D-PDL FEF|13  ;':PRIMITIVES
 73 MOVE D-LAST LOCAL|6
 74 CALL D-PDL FEF|14  ;':PRIMITIVES
 75 MOVE D-LAST LOCAL|6
 76 (MISC) MINUS D-PDL
 77 PUSH-NUMBER 3
 78 (MISC) %INTERNAL-LIST D-PDL
 79 MOVE D-LAST FEF|15  ;'<K:PW-II>
 80 MOVE D-RETURN LOCAL|4
 81 CALL D-IGNORE FEF|16  ;'NIL
 82 MOVE D-LAST FEF|17  ;'"non constant field-extract not yet implemented"
 83 MOVE D-RETURN LOCAL|4
)

(FASL-OP-STOREIN-FUNCTION-CELL [2420] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::FIELD-EXTRACT|> 0) -74267512>}
  (FASL-OP-INDEX [2383] {(<:INTERNAL> <|PRIMOP//HARDWARE::FIELD-EXTRACT|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [2342] {<|PRIMOP//HARDWARE::FIELD-EXTRACT|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [2342] {<|PRIMOP//HARDWARE::FIELD-EXTRACT|>})
     => (<|PRIMOP//HARDWARE::FIELD-EXTRACT|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FIELD-EXTRACT|> (<|PRIMOP//HARDWARE::FIELD-EXTRACT|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FIELD-EXTRACT|> (<|PRIMOP//HARDWARE::FIELD-EXTRACT|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [2347] {<HARDWARE:FIELD-EXTRACT>})
       => (<GLOBAL:QUOTE> <HARDWARE:FIELD-EXTRACT>))
      (FASL-OP-INDEX [2342] {<|PRIMOP//HARDWARE::FIELD-EXTRACT|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FIELD-EXTRACT>) <|PRIMOP//HARDWARE::FIELD-EXTRACT|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FIELD-EXTRACT>) <|PRIMOP//HARDWARE::FIELD-EXTRACT|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FIELD-EXTRACT>) <|PRIMOP//HARDWARE::FIELD-EXTRACT|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2347] {<HARDWARE:FIELD-EXTRACT>})
     => (<GLOBAL:QUOTE> <HARDWARE:FIELD-EXTRACT>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2348] {(<FROM> <BYTE-SPEC>)})
     => (<GLOBAL:QUOTE> (<FROM> <BYTE-SPEC>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FIELD-EXTRACT>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<FROM> <BYTE-SPEC>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FIELD-EXTRACT>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<FROM> <BYTE-SPEC>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::CH-TOPEN|>
 36 CALL D-RETURN FEF|6  ;'NIL
 37 PUSH FEF|7  ;'<:NAME>
 38 PUSH FEF|8  ;'<HARDWARE:CH-TOPEN>
 39 PUSH FEF|9  ;'<:BITV>
 40 PUSH-NUMBER 10
 41 PUSH FEF|10  ;'<:ARGLIST>
 42 PUSH 'NIL
 43 PUSH FEF|11  ;'<:SOURCE>
 44 PUSH FEF|12  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DECLARE> (<IGNORE> <NODE>)) (<EMIT> (<GLOBAL:QUOTE> <K:TAIL-OPEN>)) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <NIL>))))
 45 PUSH FEF|13  ;'<:HANDLER>
 46 CALL0 D-PDL FEF|14  ;'NIL
 47 MOVEM LOCAL|0
 48 PUSH FEF|15  ;'<:GENERATE>
 49 MOVE D-LAST FEF|16  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::CH-TOPEN|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2467] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::CH-TOPEN|> -74265066>}
  (FASL-OP-INDEX [2434] {<|PRIMOP//HARDWARE::CH-TOPEN|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::CH-TOPEN|> 0)
 20 CALL D-IGNORE FEF|6  ;'NIL
 21 MOVE D-LAST FEF|7  ;'<K:TAIL-OPEN>
 22 MOVE D-RETURN FEF|8  ;'(<GLOBAL:QUOTE> <NIL>)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2480] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::CH-TOPEN|> 0) -74264444>}
  (FASL-OP-INDEX [2453] {(<:INTERNAL> <|PRIMOP//HARDWARE::CH-TOPEN|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [2434] {<|PRIMOP//HARDWARE::CH-TOPEN|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [2434] {<|PRIMOP//HARDWARE::CH-TOPEN|>})
     => (<|PRIMOP//HARDWARE::CH-TOPEN|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::CH-TOPEN|> (<|PRIMOP//HARDWARE::CH-TOPEN|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::CH-TOPEN|> (<|PRIMOP//HARDWARE::CH-TOPEN|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [2439] {<HARDWARE:CH-TOPEN>})
       => (<GLOBAL:QUOTE> <HARDWARE:CH-TOPEN>))
      (FASL-OP-INDEX [2434] {<|PRIMOP//HARDWARE::CH-TOPEN|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-TOPEN>) <|PRIMOP//HARDWARE::CH-TOPEN|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-TOPEN>) <|PRIMOP//HARDWARE::CH-TOPEN|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-TOPEN>) <|PRIMOP//HARDWARE::CH-TOPEN|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2439] {<HARDWARE:CH-TOPEN>})
     => (<GLOBAL:QUOTE> <HARDWARE:CH-TOPEN>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [125] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:CH-TOPEN>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:CH-TOPEN>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::CH-TCALL|>
 36 CALL D-RETURN FEF|6  ;'NIL
 37 PUSH FEF|7  ;'<:NAME>
 38 PUSH FEF|8  ;'<HARDWARE:CH-TCALL>
 39 PUSH FEF|9  ;'<:BITV>
 40 PUSH-NUMBER 10
 41 PUSH FEF|10  ;'<:ARGLIST>
 42 PUSH 'NIL
 43 PUSH FEF|11  ;'<:SOURCE>
 44 PUSH FEF|12  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DECLARE> (<IGNORE> <NODE>)) (<EMIT> (<GLOBAL:QUOTE> <K:TAIL-CALL>) (<GLOBAL:QUOTE> (0 0)) (<GLOBAL:QUOTE> <K:NEXT-PC-PC+1>)) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <NIL>))))
 45 PUSH FEF|13  ;'<:HANDLER>
 46 CALL0 D-PDL FEF|14  ;'NIL
 47 MOVEM LOCAL|0
 48 PUSH FEF|15  ;'<:GENERATE>
 49 MOVE D-LAST FEF|16  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::CH-TCALL|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2534] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::CH-TCALL|> -74263304>}
  (FASL-OP-INDEX [2494] {<|PRIMOP//HARDWARE::CH-TCALL|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::CH-TCALL|> 0)
 24 CALL D-IGNORE FEF|6  ;'NIL
 25 PUSH FEF|7  ;'<K:TAIL-CALL>
 26 PUSH FEF|8  ;'(0 0)
 27 MOVE D-LAST FEF|9  ;'<K:NEXT-PC-PC+1>
 28 MOVE D-RETURN FEF|10  ;'(<GLOBAL:QUOTE> <NIL>)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2547] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::CH-TCALL|> 0) -74261574>}
  (FASL-OP-INDEX [2520] {(<:INTERNAL> <|PRIMOP//HARDWARE::CH-TCALL|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [2494] {<|PRIMOP//HARDWARE::CH-TCALL|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [2494] {<|PRIMOP//HARDWARE::CH-TCALL|>})
     => (<|PRIMOP//HARDWARE::CH-TCALL|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::CH-TCALL|> (<|PRIMOP//HARDWARE::CH-TCALL|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::CH-TCALL|> (<|PRIMOP//HARDWARE::CH-TCALL|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [2499] {<HARDWARE:CH-TCALL>})
       => (<GLOBAL:QUOTE> <HARDWARE:CH-TCALL>))
      (FASL-OP-INDEX [2494] {<|PRIMOP//HARDWARE::CH-TCALL|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-TCALL>) <|PRIMOP//HARDWARE::CH-TCALL|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-TCALL>) <|PRIMOP//HARDWARE::CH-TCALL|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-TCALL>) <|PRIMOP//HARDWARE::CH-TCALL|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2499] {<HARDWARE:CH-TCALL>})
     => (<GLOBAL:QUOTE> <HARDWARE:CH-TCALL>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [125] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:CH-TCALL>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:CH-TCALL>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::CH-RETURN|>
 36 CALL D-RETURN FEF|6  ;'NIL
 37 PUSH FEF|7  ;'<:NAME>
 38 PUSH FEF|8  ;'<HARDWARE:CH-RETURN>
 39 PUSH FEF|9  ;'<:BITV>
 40 PUSH-NUMBER 10
 41 PUSH FEF|10  ;'<:ARGLIST>
 42 PUSH 'NIL
 43 PUSH FEF|11  ;'<:SOURCE>
 44 PUSH FEF|12  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DECLARE> (<IGNORE> <NODE>)) (<EMIT> (<GLOBAL:QUOTE> <K:NOP>) (<GLOBAL:QUOTE> <K:CH-RETURN>)) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <NIL>))))
 45 PUSH FEF|13  ;'<:HANDLER>
 46 CALL0 D-PDL FEF|14  ;'NIL
 47 MOVEM LOCAL|0
 48 PUSH FEF|15  ;'<:GENERATE>
 49 MOVE D-LAST FEF|16  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::CH-RETURN|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2595] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::CH-RETURN|> -74260423>}
  (FASL-OP-INDEX [2561] {<|PRIMOP//HARDWARE::CH-RETURN|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::CH-RETURN|> 0)
 22 CALL D-IGNORE FEF|6  ;'NIL
 23 PUSH FEF|7  ;'<K:NOP>
 24 MOVE D-LAST FEF|8  ;'<K:CH-RETURN>
 25 MOVE D-RETURN FEF|9  ;'(<GLOBAL:QUOTE> <NIL>)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2608] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::CH-RETURN|> 0) -74257723>}
  (FASL-OP-INDEX [2581] {(<:INTERNAL> <|PRIMOP//HARDWARE::CH-RETURN|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [2561] {<|PRIMOP//HARDWARE::CH-RETURN|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [2561] {<|PRIMOP//HARDWARE::CH-RETURN|>})
     => (<|PRIMOP//HARDWARE::CH-RETURN|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::CH-RETURN|> (<|PRIMOP//HARDWARE::CH-RETURN|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::CH-RETURN|> (<|PRIMOP//HARDWARE::CH-RETURN|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [2566] {<HARDWARE:CH-RETURN>})
       => (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN>))
      (FASL-OP-INDEX [2561] {<|PRIMOP//HARDWARE::CH-RETURN|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN>) <|PRIMOP//HARDWARE::CH-RETURN|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN>) <|PRIMOP//HARDWARE::CH-RETURN|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN>) <|PRIMOP//HARDWARE::CH-RETURN|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2566] {<HARDWARE:CH-RETURN>})
     => (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [125] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::CH-RETURN-ONE-VALUE|>
 36 CALL D-RETURN FEF|6  ;'NIL
 37 PUSH FEF|7  ;'<:NAME>
 38 PUSH FEF|8  ;'<HARDWARE:CH-RETURN-ONE-VALUE>
 39 PUSH FEF|9  ;'<:BITV>
 40 PUSH-NUMBER 10
 41 PUSH FEF|10  ;'<:ARGLIST>
 42 PUSH 'NIL
 43 PUSH FEF|11  ;'<:SOURCE>
 44 PUSH FEF|12  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DECLARE> (<IGNORE> <NODE>)) (<EMIT> (<GLOBAL:QUOTE> <K:MOVE>) (<GLOBAL:QUOTE> <RETURN>) (<GLOBAL:QUOTE> <K:R0>) (<GLOBAL:QUOTE> <K:CH-RETURN>)) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <NIL>))))
 45 PUSH FEF|13  ;'<:HANDLER>
 46 CALL0 D-PDL FEF|14  ;'NIL
 47 MOVEM LOCAL|0
 48 PUSH FEF|15  ;'<:GENERATE>
 49 MOVE D-LAST FEF|16  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::CH-RETURN-ONE-VALUE|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2659] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::CH-RETURN-ONE-VALUE|> -74256533>}
  (FASL-OP-INDEX [2622] {<|PRIMOP//HARDWARE::CH-RETURN-ONE-VALUE|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::CH-RETURN-ONE-VALUE|> 0)
 26 CALL D-IGNORE FEF|6  ;'NIL
 27 PUSH FEF|7  ;'<K:MOVE>
 28 PUSH FEF|8  ;'<RETURN>
 29 PUSH FEF|9  ;'<K:R0>
 30 MOVE D-LAST FEF|10  ;'<K:CH-RETURN>
 31 MOVE D-RETURN FEF|11  ;'(<GLOBAL:QUOTE> <NIL>)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2672] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::CH-RETURN-ONE-VALUE|> 0) -74256012>}
  (FASL-OP-INDEX [2645] {(<:INTERNAL> <|PRIMOP//HARDWARE::CH-RETURN-ONE-VALUE|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [2622] {<|PRIMOP//HARDWARE::CH-RETURN-ONE-VALUE|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [2622] {<|PRIMOP//HARDWARE::CH-RETURN-ONE-VALUE|>})
     => (<|PRIMOP//HARDWARE::CH-RETURN-ONE-VALUE|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::CH-RETURN-ONE-VALUE|> (<|PRIMOP//HARDWARE::CH-RETURN-ONE-VALUE|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::CH-RETURN-ONE-VALUE|> (<|PRIMOP//HARDWARE::CH-RETURN-ONE-VALUE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [2627] {<HARDWARE:CH-RETURN-ONE-VALUE>})
       => (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN-ONE-VALUE>))
      (FASL-OP-INDEX [2622] {<|PRIMOP//HARDWARE::CH-RETURN-ONE-VALUE|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN-ONE-VALUE>) <|PRIMOP//HARDWARE::CH-RETURN-ONE-VALUE|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN-ONE-VALUE>) <|PRIMOP//HARDWARE::CH-RETURN-ONE-VALUE|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN-ONE-VALUE>) <|PRIMOP//HARDWARE::CH-RETURN-ONE-VALUE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2627] {<HARDWARE:CH-RETURN-ONE-VALUE>})
     => (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN-ONE-VALUE>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [125] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN-ONE-VALUE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN-ONE-VALUE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::CH-RETURN-MULTIPLE-VALUES|>
 36 CALL D-RETURN FEF|6  ;'NIL
 37 PUSH FEF|7  ;'<:NAME>
 38 PUSH FEF|8  ;'<HARDWARE:CH-RETURN-MULTIPLE-VALUES>
 39 PUSH FEF|9  ;'<:BITV>
 40 PUSH-NUMBER 10
 41 PUSH FEF|10  ;'<:ARGLIST>
 42 PUSH 'NIL
 43 PUSH FEF|11  ;'<:SOURCE>
 44 PUSH FEF|12  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DECLARE> (<IGNORE> <NODE>)) (<EMIT> (<GLOBAL:QUOTE> <K:MOVE>) (<GLOBAL:QUOTE> <K:RETURN-MV>) (<GLOBAL:QUOTE> <K:R0>) (<GLOBAL:QUOTE> <K:CH-RETURN>)) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <NIL>))))
 45 PUSH FEF|13  ;'<:HANDLER>
 46 CALL0 D-PDL FEF|14  ;'NIL
 47 MOVEM LOCAL|0
 48 PUSH FEF|15  ;'<:GENERATE>
 49 MOVE D-LAST FEF|16  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::CH-RETURN-MULTIPLE-VALUES|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2722] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::CH-RETURN-MULTIPLE-VALUES|> -74253605>}
  (FASL-OP-INDEX [2686] {<|PRIMOP//HARDWARE::CH-RETURN-MULTIPLE-VALUES|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::CH-RETURN-MULTIPLE-VALUES|> 0)
 26 CALL D-IGNORE FEF|6  ;'NIL
 27 PUSH FEF|7  ;'<K:MOVE>
 28 PUSH FEF|8  ;'<K:RETURN-MV>
 29 PUSH FEF|9  ;'<K:R0>
 30 MOVE D-LAST FEF|10  ;'<K:CH-RETURN>
 31 MOVE D-RETURN FEF|11  ;'(<GLOBAL:QUOTE> <NIL>)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2735] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::CH-RETURN-MULTIPLE-VALUES|> 0) -74253117>}
  (FASL-OP-INDEX [2708] {(<:INTERNAL> <|PRIMOP//HARDWARE::CH-RETURN-MULTIPLE-VALUES|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [2686] {<|PRIMOP//HARDWARE::CH-RETURN-MULTIPLE-VALUES|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [2686] {<|PRIMOP//HARDWARE::CH-RETURN-MULTIPLE-VALUES|>})
     => (<|PRIMOP//HARDWARE::CH-RETURN-MULTIPLE-VALUES|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::CH-RETURN-MULTIPLE-VALUES|> (<|PRIMOP//HARDWARE::CH-RETURN-MULTIPLE-VALUES|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::CH-RETURN-MULTIPLE-VALUES|> (<|PRIMOP//HARDWARE::CH-RETURN-MULTIPLE-VALUES|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [2691] {<HARDWARE:CH-RETURN-MULTIPLE-VALUES>})
       => (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN-MULTIPLE-VALUES>))
      (FASL-OP-INDEX [2686] {<|PRIMOP//HARDWARE::CH-RETURN-MULTIPLE-VALUES|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN-MULTIPLE-VALUES>) <|PRIMOP//HARDWARE::CH-RETURN-MULTIPLE-VALUES|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN-MULTIPLE-VALUES>) <|PRIMOP//HARDWARE::CH-RETURN-MULTIPLE-VALUES|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN-MULTIPLE-VALUES>) <|PRIMOP//HARDWARE::CH-RETURN-MULTIPLE-VALUES|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2691] {<HARDWARE:CH-RETURN-MULTIPLE-VALUES>})
     => (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN-MULTIPLE-VALUES>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [125] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN-MULTIPLE-VALUES>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:CH-RETURN-MULTIPLE-VALUES>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::CH-TOPEN-CALL|>
 36 CALL D-RETURN FEF|6  ;'NIL
 37 PUSH FEF|7  ;'<:NAME>
 38 PUSH FEF|8  ;'<HARDWARE:CH-TOPEN-CALL>
 39 PUSH FEF|9  ;'<:BITV>
 40 PUSH-NUMBER 10
 41 PUSH FEF|10  ;'<:ARGLIST>
 42 PUSH 'NIL
 43 PUSH FEF|11  ;'<:SOURCE>
 44 PUSH FEF|12  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DECLARE> (<IGNORE> <NODE>)) (<EMIT> (<GLOBAL:QUOTE> <K:TAIL-OPEN-CALL>) (<GLOBAL:QUOTE> (0 0)) <NIL> (<GLOBAL:QUOTE> <K:NEXT-PC-PC+1>)) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <NIL>))))
 45 PUSH FEF|13  ;'<:HANDLER>
 46 CALL0 D-PDL FEF|14  ;'NIL
 47 MOVEM LOCAL|0
 48 PUSH FEF|15  ;'<:GENERATE>
 49 MOVE D-LAST FEF|16  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::CH-TOPEN-CALL|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2787] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::CH-TOPEN-CALL|> -74250752>}
  (FASL-OP-INDEX [2749] {<|PRIMOP//HARDWARE::CH-TOPEN-CALL|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::CH-TOPEN-CALL|> 0)
 24 CALL D-IGNORE FEF|6  ;'NIL
 25 PUSH FEF|7  ;'<K:TAIL-OPEN-CALL>
 26 PUSH FEF|8  ;'(0 0)
 27 PUSH 'NIL
 28 MOVE D-LAST FEF|9  ;'<K:NEXT-PC-PC+1>
 29 MOVE D-RETURN FEF|10  ;'(<GLOBAL:QUOTE> <NIL>)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2800] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::CH-TOPEN-CALL|> 0) -74250235>}
  (FASL-OP-INDEX [2773] {(<:INTERNAL> <|PRIMOP//HARDWARE::CH-TOPEN-CALL|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [2749] {<|PRIMOP//HARDWARE::CH-TOPEN-CALL|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [2749] {<|PRIMOP//HARDWARE::CH-TOPEN-CALL|>})
     => (<|PRIMOP//HARDWARE::CH-TOPEN-CALL|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::CH-TOPEN-CALL|> (<|PRIMOP//HARDWARE::CH-TOPEN-CALL|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::CH-TOPEN-CALL|> (<|PRIMOP//HARDWARE::CH-TOPEN-CALL|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [2754] {<HARDWARE:CH-TOPEN-CALL>})
       => (<GLOBAL:QUOTE> <HARDWARE:CH-TOPEN-CALL>))
      (FASL-OP-INDEX [2749] {<|PRIMOP//HARDWARE::CH-TOPEN-CALL|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-TOPEN-CALL>) <|PRIMOP//HARDWARE::CH-TOPEN-CALL|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-TOPEN-CALL>) <|PRIMOP//HARDWARE::CH-TOPEN-CALL|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-TOPEN-CALL>) <|PRIMOP//HARDWARE::CH-TOPEN-CALL|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2754] {<HARDWARE:CH-TOPEN-CALL>})
     => (<GLOBAL:QUOTE> <HARDWARE:CH-TOPEN-CALL>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [125] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:CH-TOPEN-CALL>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:CH-TOPEN-CALL>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::CH-OPEN-CALL|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:CH-OPEN-CALL>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<&OPTIONAL> <DEST>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<LET> ((<CALL-DEST> (<CALL-ARG-N> 2 <NODE>))) (<EMIT> (<GLOBAL:QUOTE> <K:OPEN-CALL>) (<GLOBAL:QUOTE> (0 0)) (<IF> <CALL-DEST> (<GET-LEFT-OPERAND> <CALL-DEST>) <IGNORED>) <NIL> (<GLOBAL:QUOTE> <K:NEXT-PC-PC+1>)) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <NIL>)))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::CH-OPEN-CALL|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2861] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::CH-OPEN-CALL|> -74247021>}
  (FASL-OP-INDEX [2814] {<|PRIMOP//HARDWARE::CH-OPEN-CALL|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::CH-OPEN-CALL|> 0)
 28 PUSH ARG|0
 29 AR-1 (4) D-PDL
 30 (MISC) CADDR D-PDL
 31 POP LOCAL|0
 32 CALL D-IGNORE FEF|7  ;'NIL
 33 PUSH FEF|8  ;'<K:OPEN-CALL>
 34 PUSH FEF|9  ;'(0 0)
 35 MOVE D-IGNORE LOCAL|0
 36 BR-NIL 40
 37 CALL D-PDL FEF|10  ;'NIL
 38 MOVE D-LAST LOCAL|0
 39 BR 41
 40 PUSH FEF|6  ;':IGNORED
 41 PUSH 'NIL
 42 MOVE D-LAST FEF|11  ;'<K:NEXT-PC-PC+1>
 43 MOVE D-RETURN FEF|12  ;'(<GLOBAL:QUOTE> <NIL>)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2879] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::CH-OPEN-CALL|> 0) -74246171>}
  (FASL-OP-INDEX [2847] {(<:INTERNAL> <|PRIMOP//HARDWARE::CH-OPEN-CALL|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [2814] {<|PRIMOP//HARDWARE::CH-OPEN-CALL|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [2814] {<|PRIMOP//HARDWARE::CH-OPEN-CALL|>})
     => (<|PRIMOP//HARDWARE::CH-OPEN-CALL|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::CH-OPEN-CALL|> (<|PRIMOP//HARDWARE::CH-OPEN-CALL|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::CH-OPEN-CALL|> (<|PRIMOP//HARDWARE::CH-OPEN-CALL|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [2819] {<HARDWARE:CH-OPEN-CALL>})
       => (<GLOBAL:QUOTE> <HARDWARE:CH-OPEN-CALL>))
      (FASL-OP-INDEX [2814] {<|PRIMOP//HARDWARE::CH-OPEN-CALL|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-OPEN-CALL>) <|PRIMOP//HARDWARE::CH-OPEN-CALL|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-OPEN-CALL>) <|PRIMOP//HARDWARE::CH-OPEN-CALL|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CH-OPEN-CALL>) <|PRIMOP//HARDWARE::CH-OPEN-CALL|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2819] {<HARDWARE:CH-OPEN-CALL>})
     => (<GLOBAL:QUOTE> <HARDWARE:CH-OPEN-CALL>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2821] {(<&OPTIONAL> <DEST>)})
     => (<GLOBAL:QUOTE> (<&OPTIONAL> <DEST>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:CH-OPEN-CALL>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<&OPTIONAL> <DEST>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:CH-OPEN-CALL>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<&OPTIONAL> <DEST>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::OPEN-FRAME|>
 36 CALL D-RETURN FEF|6  ;'NIL
 37 PUSH FEF|7  ;'<:NAME>
 38 PUSH FEF|8  ;'<HARDWARE:OPEN-FRAME>
 39 PUSH FEF|9  ;'<:BITV>
 40 PUSH-NUMBER 10
 41 PUSH FEF|10  ;'<:ARGLIST>
 42 PUSH 'NIL
 43 PUSH FEF|11  ;'<:SOURCE>
 44 PUSH FEF|12  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DECLARE> (<IGNORE> <NODE>)) (<EMIT> (<GLOBAL:QUOTE> <OPEN>)) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <NIL>))))
 45 PUSH FEF|13  ;'<:HANDLER>
 46 CALL0 D-PDL FEF|14  ;'NIL
 47 MOVEM LOCAL|0
 48 PUSH FEF|15  ;'<:GENERATE>
 49 MOVE D-LAST FEF|16  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::OPEN-FRAME|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2925] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::OPEN-FRAME|> -74243725>}
  (FASL-OP-INDEX [2893] {<|PRIMOP//HARDWARE::OPEN-FRAME|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::OPEN-FRAME|> 0)
 20 CALL D-IGNORE FEF|6  ;'NIL
 21 MOVE D-LAST FEF|7  ;'<OPEN>
 22 MOVE D-RETURN FEF|8  ;'(<GLOBAL:QUOTE> <NIL>)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2938] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::OPEN-FRAME|> 0) -74241505>}
  (FASL-OP-INDEX [2911] {(<:INTERNAL> <|PRIMOP//HARDWARE::OPEN-FRAME|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [2893] {<|PRIMOP//HARDWARE::OPEN-FRAME|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [2893] {<|PRIMOP//HARDWARE::OPEN-FRAME|>})
     => (<|PRIMOP//HARDWARE::OPEN-FRAME|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::OPEN-FRAME|> (<|PRIMOP//HARDWARE::OPEN-FRAME|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::OPEN-FRAME|> (<|PRIMOP//HARDWARE::OPEN-FRAME|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [2898] {<HARDWARE:OPEN-FRAME>})
       => (<GLOBAL:QUOTE> <HARDWARE:OPEN-FRAME>))
      (FASL-OP-INDEX [2893] {<|PRIMOP//HARDWARE::OPEN-FRAME|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:OPEN-FRAME>) <|PRIMOP//HARDWARE::OPEN-FRAME|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:OPEN-FRAME>) <|PRIMOP//HARDWARE::OPEN-FRAME|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:OPEN-FRAME>) <|PRIMOP//HARDWARE::OPEN-FRAME|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2898] {<HARDWARE:OPEN-FRAME>})
     => (<GLOBAL:QUOTE> <HARDWARE:OPEN-FRAME>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [125] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:OPEN-FRAME>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:OPEN-FRAME>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::CALL|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:CALL>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<FCN> <NARGS>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <FCN> <NARGS>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT> (<GLOBAL:QUOTE> <K:CALL>) (<LIST> (<LITERAL-VALUE> <FCN>) (<LITERAL-VALUE> <NARGS>)) <DEST>) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::CALL|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [2997] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::CALL|> -74240177>}
  (FASL-OP-INDEX [2952] {<|PRIMOP//HARDWARE::CALL|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::CALL|> 0)
 20 PUSH ARG|0
 21 AR-1 (4) D-PDL
 22 CDR D-PDL PDL-POP
 23 MOVEM LOCAL|0
 24 (MISC) CADDR D-PDL
 25 CADR D-PDL LOCAL|0
 26 CAR D-PDL LOCAL|0
 27 POP LOCAL|3
 28 POP LOCAL|2
 29 POP LOCAL|1
 30 CALL D-PDL FEF|6  ;'NIL
 31 MOVE D-LAST LOCAL|3
 32 POP LOCAL|4
 33 CALL D-IGNORE FEF|7  ;'NIL
 34 PUSH FEF|8  ;'<K:CALL>
 35 PUSH LOCAL|2
 36 AR-1 (4) D-PDL
 37 PUSH LOCAL|1
 38 AR-1 (4) D-PDL
 39 PUSH-NUMBER 2
 40 (MISC) %INTERNAL-LIST D-PDL
 41 MOVE D-LAST LOCAL|4
 42 MOVE D-RETURN LOCAL|4
)

(FASL-OP-STOREIN-FUNCTION-CELL [3018] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::CALL|> 0) -74235542>}
  (FASL-OP-INDEX [2983] {(<:INTERNAL> <|PRIMOP//HARDWARE::CALL|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [2952] {<|PRIMOP//HARDWARE::CALL|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [2952] {<|PRIMOP//HARDWARE::CALL|>})
     => (<|PRIMOP//HARDWARE::CALL|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::CALL|> (<|PRIMOP//HARDWARE::CALL|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::CALL|> (<|PRIMOP//HARDWARE::CALL|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [2957] {<HARDWARE:CALL>})
       => (<GLOBAL:QUOTE> <HARDWARE:CALL>))
      (FASL-OP-INDEX [2952] {<|PRIMOP//HARDWARE::CALL|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CALL>) <|PRIMOP//HARDWARE::CALL|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CALL>) <|PRIMOP//HARDWARE::CALL|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:CALL>) <|PRIMOP//HARDWARE::CALL|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2957] {<HARDWARE:CALL>})
     => (<GLOBAL:QUOTE> <HARDWARE:CALL>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [2959] {(<FCN> <NARGS>)})
     => (<GLOBAL:QUOTE> (<FCN> <NARGS>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:CALL>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<FCN> <NARGS>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:CALL>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<FCN> <NARGS>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::DISPATCH|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:DISPATCH>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<PC>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<GENERATE-MOVE> (<CALL-ARG-N> 2 <NODE>) (<GLOBAL:QUOTE> <K:NOP>)) (<EMIT> (<GLOBAL:QUOTE> <K:NOP>)) (<EMIT> (<GLOBAL:QUOTE> <K:NOP>) (<GLOBAL:QUOTE> <K:NEXT-PC-DISPATCH>)) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <NIL>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::DISPATCH|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [3072] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::DISPATCH|> -74232335>}
  (FASL-OP-INDEX [3032] {<|PRIMOP//HARDWARE::DISPATCH|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::DISPATCH|> 0)
 24 CALL D-IGNORE FEF|6  ;'NIL
 25 PUSH ARG|0
 26 AR-1 (4) D-PDL
 27 (MISC) CADDR D-PDL
 28 MOVE D-LAST FEF|7  ;'<K:NOP>
 29 CALL D-IGNORE FEF|8  ;'NIL
 30 MOVE D-LAST FEF|7  ;'<K:NOP>
 31 CALL D-IGNORE FEF|8  ;'NIL
 32 PUSH FEF|7  ;'<K:NOP>
 33 MOVE D-LAST FEF|9  ;'<K:NEXT-PC-DISPATCH>
 34 MOVE D-RETURN FEF|10  ;'(<GLOBAL:QUOTE> <NIL>)
)

(FASL-OP-STOREIN-FUNCTION-CELL [3087] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::DISPATCH|> 0) -74231253>}
  (FASL-OP-INDEX [3058] {(<:INTERNAL> <|PRIMOP//HARDWARE::DISPATCH|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [3032] {<|PRIMOP//HARDWARE::DISPATCH|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [3032] {<|PRIMOP//HARDWARE::DISPATCH|>})
     => (<|PRIMOP//HARDWARE::DISPATCH|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::DISPATCH|> (<|PRIMOP//HARDWARE::DISPATCH|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::DISPATCH|> (<|PRIMOP//HARDWARE::DISPATCH|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [3037] {<HARDWARE:DISPATCH>})
       => (<GLOBAL:QUOTE> <HARDWARE:DISPATCH>))
      (FASL-OP-INDEX [3032] {<|PRIMOP//HARDWARE::DISPATCH|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DISPATCH>) <|PRIMOP//HARDWARE::DISPATCH|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DISPATCH>) <|PRIMOP//HARDWARE::DISPATCH|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:DISPATCH>) <|PRIMOP//HARDWARE::DISPATCH|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3037] {<HARDWARE:DISPATCH>})
     => (<GLOBAL:QUOTE> <HARDWARE:DISPATCH>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3039] {(<PC>)})
     => (<GLOBAL:QUOTE> (<PC>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:DISPATCH>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<PC>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:DISPATCH>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<PC>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::TAIL-CALL-DISPATCH|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:TAIL-CALL-DISPATCH>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<PC>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<GENERATE-MOVE> (<CALL-ARG-N> 2 <NODE>) (<GLOBAL:QUOTE> <K:NOP>)) (<EMIT> (<GLOBAL:QUOTE> <K:NOP>)) (<EMIT> (<GLOBAL:QUOTE> <K:NOP>) (<GLOBAL:QUOTE> <K:NEXT-PC-DISPATCH>) (<GLOBAL:QUOTE> <K:CH-TAIL-CALL>)) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> <NIL>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::TAIL-CALL-DISPATCH|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [3141] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::TAIL-CALL-DISPATCH|> -74225607>}
  (FASL-OP-INDEX [3101] {<|PRIMOP//HARDWARE::TAIL-CALL-DISPATCH|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::TAIL-CALL-DISPATCH|> 0)
 26 CALL D-IGNORE FEF|6  ;'NIL
 27 PUSH ARG|0
 28 AR-1 (4) D-PDL
 29 (MISC) CADDR D-PDL
 30 MOVE D-LAST FEF|7  ;'<K:NOP>
 31 CALL D-IGNORE FEF|8  ;'NIL
 32 MOVE D-LAST FEF|7  ;'<K:NOP>
 33 CALL D-IGNORE FEF|8  ;'NIL
 34 PUSH FEF|7  ;'<K:NOP>
 35 PUSH FEF|9  ;'<K:NEXT-PC-DISPATCH>
 36 MOVE D-LAST FEF|10  ;'<K:CH-TAIL-CALL>
 37 MOVE D-RETURN FEF|11  ;'(<GLOBAL:QUOTE> <NIL>)
)

(FASL-OP-STOREIN-FUNCTION-CELL [3156] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::TAIL-CALL-DISPATCH|> 0) -74225070>}
  (FASL-OP-INDEX [3127] {(<:INTERNAL> <|PRIMOP//HARDWARE::TAIL-CALL-DISPATCH|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [3101] {<|PRIMOP//HARDWARE::TAIL-CALL-DISPATCH|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [3101] {<|PRIMOP//HARDWARE::TAIL-CALL-DISPATCH|>})
     => (<|PRIMOP//HARDWARE::TAIL-CALL-DISPATCH|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::TAIL-CALL-DISPATCH|> (<|PRIMOP//HARDWARE::TAIL-CALL-DISPATCH|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::TAIL-CALL-DISPATCH|> (<|PRIMOP//HARDWARE::TAIL-CALL-DISPATCH|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [3106] {<HARDWARE:TAIL-CALL-DISPATCH>})
       => (<GLOBAL:QUOTE> <HARDWARE:TAIL-CALL-DISPATCH>))
      (FASL-OP-INDEX [3101] {<|PRIMOP//HARDWARE::TAIL-CALL-DISPATCH|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:TAIL-CALL-DISPATCH>) <|PRIMOP//HARDWARE::TAIL-CALL-DISPATCH|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:TAIL-CALL-DISPATCH>) <|PRIMOP//HARDWARE::TAIL-CALL-DISPATCH|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:TAIL-CALL-DISPATCH>) <|PRIMOP//HARDWARE::TAIL-CALL-DISPATCH|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3106] {<HARDWARE:TAIL-CALL-DISPATCH>})
     => (<GLOBAL:QUOTE> <HARDWARE:TAIL-CALL-DISPATCH>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3107] {(<PC>)})
     => (<GLOBAL:QUOTE> (<PC>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:TAIL-CALL-DISPATCH>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<PC>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:TAIL-CALL-DISPATCH>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<PC>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::JUMP|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:JUMP>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 210
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<FCN>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:SPECIAL?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<EMIT> (<GLOBAL:QUOTE> <K:JUMP>) (<LEAF-VALUE> (<CALL-ARG-N> 2 <NODE>)))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::JUMP|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [3206] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::JUMP|> -74222633>}
  (FASL-OP-INDEX [3170] {<|PRIMOP//HARDWARE::JUMP|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::JUMP|> 0)
 18 CALL D-RETURN FEF|6  ;'NIL
 19 PUSH FEF|7  ;'<K:JUMP>
 20 PUSH ARG|0
 21 AR-1 (4) D-PDL
 22 (MISC) CADDR D-PDL
 23 AR-1 (4) D-LAST
)

(FASL-OP-STOREIN-FUNCTION-CELL [3221] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::JUMP|> 0) -74222167>}
  (FASL-OP-INDEX [3192] {(<:INTERNAL> <|PRIMOP//HARDWARE::JUMP|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [3170] {<|PRIMOP//HARDWARE::JUMP|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [3170] {<|PRIMOP//HARDWARE::JUMP|>})
     => (<|PRIMOP//HARDWARE::JUMP|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::JUMP|> (<|PRIMOP//HARDWARE::JUMP|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::JUMP|> (<|PRIMOP//HARDWARE::JUMP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [3175] {<HARDWARE:JUMP>})
       => (<GLOBAL:QUOTE> <HARDWARE:JUMP>))
      (FASL-OP-INDEX [3170] {<|PRIMOP//HARDWARE::JUMP|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:JUMP>) <|PRIMOP//HARDWARE::JUMP|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:JUMP>) <|PRIMOP//HARDWARE::JUMP|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:JUMP>) <|PRIMOP//HARDWARE::JUMP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3175] {<HARDWARE:JUMP>})
     => (<GLOBAL:QUOTE> <HARDWARE:JUMP>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3176] {(<FCN>)})
     => (<GLOBAL:QUOTE> (<FCN>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:JUMP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<FCN>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:JUMP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<FCN>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::JUMP-SAVING-PC|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:JUMP-SAVING-PC>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<TARGET> <&OPTIONAL> (<PC-PLACE> <GLOBAL-REGISTERS:*RETURN-PC-1*>))
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<LET> ((<PC-PLACE> (<CALL-ARG-N> 3 <NODE>))) (<UNLESS> <PC-PLACE> (<SETQ> <PC-PLACE> (<GLOBAL:QUOTE> <GLOBAL-REGISTERS:*RETURN-PC-1*>))) (<GENERATE-MOVE> (<GLOBAL:QUOTE> <K:TRAP-PC+>) <PC-PLACE>) (<EMIT> (<GLOBAL:QUOTE> <K:JUMP>) (<LEAF-VALUE> (<CALL-ARG-N> 2 <NODE>))))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::JUMP-SAVING-PC|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [3285] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::JUMP-SAVING-PC|> -74220062>}
  (FASL-OP-INDEX [3235] {<|PRIMOP//HARDWARE::JUMP-SAVING-PC|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::JUMP-SAVING-PC|> 0)
 24 PUSH ARG|0
 25 AR-1 (4) D-PDL
 26 (MISC) CADDDR D-PDL
 27 POP LOCAL|0
 28 BR-NOT-NIL 31
 29 PUSH FEF|6  ;'<GLOBAL-REGISTERS:*RETURN-PC-1*>
 30 POP LOCAL|0
 31 CALL D-IGNORE FEF|7  ;'NIL
 32 PUSH FEF|8  ;'<K:TRAP-PC+>
 33 MOVE D-LAST LOCAL|0
 34 CALL D-RETURN FEF|9  ;'NIL
 35 PUSH FEF|10  ;'<K:JUMP>
 36 PUSH ARG|0
 37 AR-1 (4) D-PDL
 38 (MISC) CADDR D-PDL
 39 AR-1 (4) D-LAST
)

(FASL-OP-STOREIN-FUNCTION-CELL [3303] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::JUMP-SAVING-PC|> 0) -74217170>}
  (FASL-OP-INDEX [3271] {(<:INTERNAL> <|PRIMOP//HARDWARE::JUMP-SAVING-PC|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [3235] {<|PRIMOP//HARDWARE::JUMP-SAVING-PC|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [3235] {<|PRIMOP//HARDWARE::JUMP-SAVING-PC|>})
     => (<|PRIMOP//HARDWARE::JUMP-SAVING-PC|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::JUMP-SAVING-PC|> (<|PRIMOP//HARDWARE::JUMP-SAVING-PC|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::JUMP-SAVING-PC|> (<|PRIMOP//HARDWARE::JUMP-SAVING-PC|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [3240] {<HARDWARE:JUMP-SAVING-PC>})
       => (<GLOBAL:QUOTE> <HARDWARE:JUMP-SAVING-PC>))
      (FASL-OP-INDEX [3235] {<|PRIMOP//HARDWARE::JUMP-SAVING-PC|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:JUMP-SAVING-PC>) <|PRIMOP//HARDWARE::JUMP-SAVING-PC|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:JUMP-SAVING-PC>) <|PRIMOP//HARDWARE::JUMP-SAVING-PC|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:JUMP-SAVING-PC>) <|PRIMOP//HARDWARE::JUMP-SAVING-PC|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3240] {<HARDWARE:JUMP-SAVING-PC>})
     => (<GLOBAL:QUOTE> <HARDWARE:JUMP-SAVING-PC>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3246] {(<TARGET> <&OPTIONAL> (<PC-PLACE> <GLOBAL-REGISTERS:*RETURN-PC-1*>))})
     => (<GLOBAL:QUOTE> (<TARGET> <&OPTIONAL> (<PC-PLACE> <GLOBAL-REGISTERS:*RETURN-PC-1*>))))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:JUMP-SAVING-PC>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<TARGET> <&OPTIONAL> (<PC-PLACE> <GLOBAL-REGISTERS:*RETURN-PC-1*>)))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:JUMP-SAVING-PC>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<TARGET> <&OPTIONAL> (<PC-PLACE> <GLOBAL-REGISTERS:*RETURN-PC-1*>))))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::RETURN|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:RETURN>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 210
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<VALUE>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:SPECIAL?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<EMIT> (<GLOBAL:QUOTE> <RETURN>) (<GET-RIGHT-OPERAND> (<CALL-ARG-N> 2 <NODE>)))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::RETURN|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [3349] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::RETURN|> -74214040>}
  (FASL-OP-INDEX [3317] {<|PRIMOP//HARDWARE::RETURN|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::RETURN|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH FEF|7  ;'<RETURN>
 22 CALL D-LAST FEF|8  ;'NIL
 23 PUSH ARG|0
 24 AR-1 (4) D-PDL
 25 (MISC) CADDR D-LAST
)

(FASL-OP-STOREIN-FUNCTION-CELL [3364] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::RETURN|> 0) -74213424>}
  (FASL-OP-INDEX [3335] {(<:INTERNAL> <|PRIMOP//HARDWARE::RETURN|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [3317] {<|PRIMOP//HARDWARE::RETURN|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [3317] {<|PRIMOP//HARDWARE::RETURN|>})
     => (<|PRIMOP//HARDWARE::RETURN|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::RETURN|> (<|PRIMOP//HARDWARE::RETURN|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::RETURN|> (<|PRIMOP//HARDWARE::RETURN|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [3322] {<HARDWARE:RETURN>})
       => (<GLOBAL:QUOTE> <HARDWARE:RETURN>))
      (FASL-OP-INDEX [3317] {<|PRIMOP//HARDWARE::RETURN|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:RETURN>) <|PRIMOP//HARDWARE::RETURN|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:RETURN>) <|PRIMOP//HARDWARE::RETURN|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:RETURN>) <|PRIMOP//HARDWARE::RETURN|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3322] {<HARDWARE:RETURN>})
     => (<GLOBAL:QUOTE> <HARDWARE:RETURN>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3323] {(<VALUE>)})
     => (<GLOBAL:QUOTE> (<VALUE>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:RETURN>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:RETURN>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::RETURN-MV|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:RETURN-MV>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 210
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<VALUE>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:SPECIAL?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<EMIT> (<GLOBAL:QUOTE> <K:RETURN-MV>) (<GET-RIGHT-OPERAND> (<CALL-ARG-N> 2 <NODE>)))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::RETURN-MV|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [3410] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::RETURN-MV|> -74211262>}
  (FASL-OP-INDEX [3378] {<|PRIMOP//HARDWARE::RETURN-MV|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::RETURN-MV|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH FEF|7  ;'<K:RETURN-MV>
 22 CALL D-LAST FEF|8  ;'NIL
 23 PUSH ARG|0
 24 AR-1 (4) D-PDL
 25 (MISC) CADDR D-LAST
)

(FASL-OP-STOREIN-FUNCTION-CELL [3425] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::RETURN-MV|> 0) -74210636>}
  (FASL-OP-INDEX [3396] {(<:INTERNAL> <|PRIMOP//HARDWARE::RETURN-MV|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [3378] {<|PRIMOP//HARDWARE::RETURN-MV|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [3378] {<|PRIMOP//HARDWARE::RETURN-MV|>})
     => (<|PRIMOP//HARDWARE::RETURN-MV|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::RETURN-MV|> (<|PRIMOP//HARDWARE::RETURN-MV|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::RETURN-MV|> (<|PRIMOP//HARDWARE::RETURN-MV|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [3383] {<HARDWARE:RETURN-MV>})
       => (<GLOBAL:QUOTE> <HARDWARE:RETURN-MV>))
      (FASL-OP-INDEX [3378] {<|PRIMOP//HARDWARE::RETURN-MV|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:RETURN-MV>) <|PRIMOP//HARDWARE::RETURN-MV|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:RETURN-MV>) <|PRIMOP//HARDWARE::RETURN-MV|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:RETURN-MV>) <|PRIMOP//HARDWARE::RETURN-MV|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3383] {<HARDWARE:RETURN-MV>})
     => (<GLOBAL:QUOTE> <HARDWARE:RETURN-MV>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3384] {(<VALUE>)})
     => (<GLOBAL:QUOTE> (<VALUE>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:RETURN-MV>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:RETURN-MV>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::RETURN-TAIL|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:RETURN-TAIL>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 210
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<VALUE>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:SPECIAL?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<EMIT> (<GLOBAL:QUOTE> <K:RETURN-TAIL>) (<GET-RIGHT-OPERAND> (<CALL-ARG-N> 2 <NODE>)))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::RETURN-TAIL|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [3473] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::RETURN-TAIL|> -74207446>}
  (FASL-OP-INDEX [3439] {<|PRIMOP//HARDWARE::RETURN-TAIL|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::RETURN-TAIL|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH FEF|7  ;'<K:RETURN-TAIL>
 22 CALL D-LAST FEF|8  ;'NIL
 23 PUSH ARG|0
 24 AR-1 (4) D-PDL
 25 (MISC) CADDR D-LAST
)

(FASL-OP-STOREIN-FUNCTION-CELL [3488] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::RETURN-TAIL|> 0) -74206033>}
  (FASL-OP-INDEX [3459] {(<:INTERNAL> <|PRIMOP//HARDWARE::RETURN-TAIL|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [3439] {<|PRIMOP//HARDWARE::RETURN-TAIL|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [3439] {<|PRIMOP//HARDWARE::RETURN-TAIL|>})
     => (<|PRIMOP//HARDWARE::RETURN-TAIL|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::RETURN-TAIL|> (<|PRIMOP//HARDWARE::RETURN-TAIL|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::RETURN-TAIL|> (<|PRIMOP//HARDWARE::RETURN-TAIL|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [3444] {<HARDWARE:RETURN-TAIL>})
       => (<GLOBAL:QUOTE> <HARDWARE:RETURN-TAIL>))
      (FASL-OP-INDEX [3439] {<|PRIMOP//HARDWARE::RETURN-TAIL|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:RETURN-TAIL>) <|PRIMOP//HARDWARE::RETURN-TAIL|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:RETURN-TAIL>) <|PRIMOP//HARDWARE::RETURN-TAIL|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:RETURN-TAIL>) <|PRIMOP//HARDWARE::RETURN-TAIL|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3444] {<HARDWARE:RETURN-TAIL>})
     => (<GLOBAL:QUOTE> <HARDWARE:RETURN-TAIL>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3445] {(<VALUE>)})
     => (<GLOBAL:QUOTE> (<VALUE>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:RETURN-TAIL>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:RETURN-TAIL>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32ZEROP|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:32ZEROP>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH '2000
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<NUMBER>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:CONDITIONAL?> <GLOBAL:T>) (<:PRESIMPLIFY> (<NODE>) (<PRESIMPLIFY-TO-CONDITIONAL> <NODE>)) (<:GENERATE> (<NODE>) (<GENERATE-ARITH-PREDICATE> <NODE> (<GLOBAL:QUOTE> <K:BR-NOT-ZERO>))))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:GENERATE>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32ZEROP|> 0)
 56 PUSH FEF|18  ;'<:PRESIMPLIFY>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32ZEROP|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [3541] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32ZEROP|> -74204651>}
  (FASL-OP-INDEX [3502] {<|PRIMOP//HARDWARE::32ZEROP|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32ZEROP|> 0)
 18 CALL D-RETURN FEF|6  ;'NIL
 19 PUSH ARG|0
 20 MOVE D-LAST FEF|7  ;'<K:BR-NOT-ZERO>
)

(FASL-OP-STOREIN-FUNCTION-CELL [3554] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32ZEROP|> 0) -74204124>}
  (FASL-OP-INDEX [3523] {(<:INTERNAL> <|PRIMOP//HARDWARE::32ZEROP|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32ZEROP|> 1)
 16 CALL D-RETURN FEF|6  ;'NIL
 17 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [3567] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32ZEROP|> 1) -74203730>}
  (FASL-OP-INDEX [3525] {(<:INTERNAL> <|PRIMOP//HARDWARE::32ZEROP|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [3502] {<|PRIMOP//HARDWARE::32ZEROP|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [3502] {<|PRIMOP//HARDWARE::32ZEROP|>})
     => (<|PRIMOP//HARDWARE::32ZEROP|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32ZEROP|> (<|PRIMOP//HARDWARE::32ZEROP|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32ZEROP|> (<|PRIMOP//HARDWARE::32ZEROP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [3507] {<HARDWARE:32ZEROP>})
       => (<GLOBAL:QUOTE> <HARDWARE:32ZEROP>))
      (FASL-OP-INDEX [3502] {<|PRIMOP//HARDWARE::32ZEROP|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32ZEROP>) <|PRIMOP//HARDWARE::32ZEROP|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32ZEROP>) <|PRIMOP//HARDWARE::32ZEROP|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32ZEROP>) <|PRIMOP//HARDWARE::32ZEROP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3507] {<HARDWARE:32ZEROP>})
     => (<GLOBAL:QUOTE> <HARDWARE:32ZEROP>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3509] {(<NUMBER>)})
     => (<GLOBAL:QUOTE> (<NUMBER>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32ZEROP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<NUMBER>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32ZEROP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<NUMBER>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32=|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:32=>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH '2000
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<N1> <N2>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:CONDITIONAL?> <GLOBAL:T>) (<:PRESIMPLIFY> (<NODE>) (<PRESIMPLIFY-TO-CONDITIONAL> <NODE>)) (<:GENERATE> (<NODE>) (<COMPARATOR> <NODE> (<GLOBAL:QUOTE> <K:BR-NOT-EQUAL>) (<GLOBAL:QUOTE> <K:BW-32>))))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:GENERATE>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32=|> 0)
 56 PUSH FEF|18  ;'<:PRESIMPLIFY>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32=|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [3624] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32=|> -74202564>}
  (FASL-OP-INDEX [3581] {<|PRIMOP//HARDWARE::32=|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32=|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH ARG|0
 22 PUSH FEF|7  ;'<K:BR-NOT-EQUAL>
 23 MOVE D-LAST FEF|8  ;'<K:BW-32>
)

(FASL-OP-STOREIN-FUNCTION-CELL [3637] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32=|> 0) -74201465>}
  (FASL-OP-INDEX [3606] {(<:INTERNAL> <|PRIMOP//HARDWARE::32=|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32=|> 1)
 16 CALL D-RETURN FEF|6  ;'NIL
 17 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [3650] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32=|> 1) -74200721>}
  (FASL-OP-INDEX [3608] {(<:INTERNAL> <|PRIMOP//HARDWARE::32=|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [3581] {<|PRIMOP//HARDWARE::32=|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [3581] {<|PRIMOP//HARDWARE::32=|>})
     => (<|PRIMOP//HARDWARE::32=|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32=|> (<|PRIMOP//HARDWARE::32=|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32=|> (<|PRIMOP//HARDWARE::32=|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [3586] {<HARDWARE:32=>})
       => (<GLOBAL:QUOTE> <HARDWARE:32=>))
      (FASL-OP-INDEX [3581] {<|PRIMOP//HARDWARE::32=|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32=>) <|PRIMOP//HARDWARE::32=|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32=>) <|PRIMOP//HARDWARE::32=|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32=>) <|PRIMOP//HARDWARE::32=|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3586] {<HARDWARE:32=>})
     => (<GLOBAL:QUOTE> <HARDWARE:32=>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3589] {(<N1> <N2>)})
     => (<GLOBAL:QUOTE> (<N1> <N2>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32=>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32=>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32>|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:32>>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH '2000
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<N1> <N2>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:CONDITIONAL?> <GLOBAL:T>) (<:PRESIMPLIFY> (<NODE>) (<PRESIMPLIFY-TO-CONDITIONAL> <NODE>)) (<:GENERATE> (<NODE>) (<COMPARATOR> <NODE> (<GLOBAL:QUOTE> <K:BR-NOT-GREATER-THAN>) (<GLOBAL:QUOTE> <K:BW-32>))))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:GENERATE>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32>|> 0)
 56 PUSH FEF|18  ;'<:PRESIMPLIFY>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32>|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [3702] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32>|> -74177543>}
  (FASL-OP-INDEX [3664] {<|PRIMOP//HARDWARE::32>|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32>|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH ARG|0
 22 PUSH FEF|7  ;'<K:BR-NOT-GREATER-THAN>
 23 MOVE D-LAST FEF|8  ;'<K:BW-32>
)

(FASL-OP-STOREIN-FUNCTION-CELL [3715] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32>|> 0) -74177050>}
  (FASL-OP-INDEX [3684] {(<:INTERNAL> <|PRIMOP//HARDWARE::32>|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32>|> 1)
 16 CALL D-RETURN FEF|6  ;'NIL
 17 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [3728] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32>|> 1) -74176662>}
  (FASL-OP-INDEX [3686] {(<:INTERNAL> <|PRIMOP//HARDWARE::32>|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [3664] {<|PRIMOP//HARDWARE::32>|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [3664] {<|PRIMOP//HARDWARE::32>|>})
     => (<|PRIMOP//HARDWARE::32>|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32>|> (<|PRIMOP//HARDWARE::32>|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32>|> (<|PRIMOP//HARDWARE::32>|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [3669] {<HARDWARE:32>>})
       => (<GLOBAL:QUOTE> <HARDWARE:32>>))
      (FASL-OP-INDEX [3664] {<|PRIMOP//HARDWARE::32>|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32>>) <|PRIMOP//HARDWARE::32>|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32>>) <|PRIMOP//HARDWARE::32>|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32>>) <|PRIMOP//HARDWARE::32>|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3669] {<HARDWARE:32>>})
     => (<GLOBAL:QUOTE> <HARDWARE:32>>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3670] {(<N1> <N2>)})
     => (<GLOBAL:QUOTE> (<N1> <N2>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32>>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32>>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32<|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:32<>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH '2000
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<N1> <N2>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:CONDITIONAL?> <GLOBAL:T>) (<:PRESIMPLIFY> (<NODE>) (<PRESIMPLIFY-TO-CONDITIONAL> <NODE>)) (<:GENERATE> (<NODE>) (<COMPARATOR> <NODE> (<GLOBAL:QUOTE> <K:BR-NOT-LESS-THAN>) (<GLOBAL:QUOTE> <K:BW-32>))))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:GENERATE>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32<|> 0)
 56 PUSH FEF|18  ;'<:PRESIMPLIFY>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32<|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [3780] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32<|> -74174560>}
  (FASL-OP-INDEX [3742] {<|PRIMOP//HARDWARE::32<|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32<|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH ARG|0
 22 PUSH FEF|7  ;'<K:BR-NOT-LESS-THAN>
 23 MOVE D-LAST FEF|8  ;'<K:BW-32>
)

(FASL-OP-STOREIN-FUNCTION-CELL [3793] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32<|> 0) -74174071>}
  (FASL-OP-INDEX [3762] {(<:INTERNAL> <|PRIMOP//HARDWARE::32<|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32<|> 1)
 16 CALL D-RETURN FEF|6  ;'NIL
 17 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [3806] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32<|> 1) -74173710>}
  (FASL-OP-INDEX [3764] {(<:INTERNAL> <|PRIMOP//HARDWARE::32<|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [3742] {<|PRIMOP//HARDWARE::32<|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [3742] {<|PRIMOP//HARDWARE::32<|>})
     => (<|PRIMOP//HARDWARE::32<|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32<|> (<|PRIMOP//HARDWARE::32<|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32<|> (<|PRIMOP//HARDWARE::32<|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [3747] {<HARDWARE:32<>})
       => (<GLOBAL:QUOTE> <HARDWARE:32<>))
      (FASL-OP-INDEX [3742] {<|PRIMOP//HARDWARE::32<|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32<>) <|PRIMOP//HARDWARE::32<|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32<>) <|PRIMOP//HARDWARE::32<|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32<>) <|PRIMOP//HARDWARE::32<|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3747] {<HARDWARE:32<>})
     => (<GLOBAL:QUOTE> <HARDWARE:32<>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3748] {(<N1> <N2>)})
     => (<GLOBAL:QUOTE> (<N1> <N2>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32<>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32<>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32>=|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:32>=>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH '2000
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<N1> <N2>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<COMPARATOR> <NODE> (<GLOBAL:QUOTE> <K:BR-NOT-GREATER-OR-EQUAL>) (<GLOBAL:QUOTE> <K:BW-32>))) (<:PRESIMPLIFY> (<NODE>) (<PRESIMPLIFY-TO-CONDITIONAL> <NODE>)) (<:CONDITIONAL?> <GLOBAL:T>))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:PRESIMPLIFY>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32>=|> 0)
 56 PUSH FEF|18  ;'<:GENERATE>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32>=|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [3858] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32>=|> 76541112>}
  (FASL-OP-INDEX [3820] {<|PRIMOP//HARDWARE::32>=|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32>=|> 0)
 16 CALL D-RETURN FEF|6  ;'NIL
 17 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [3871] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32>=|> 0) 76542160>}
  (FASL-OP-INDEX [3840] {(<:INTERNAL> <|PRIMOP//HARDWARE::32>=|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32>=|> 1)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH ARG|0
 22 PUSH FEF|7  ;'<K:BR-NOT-GREATER-OR-EQUAL>
 23 MOVE D-LAST FEF|8  ;'<K:BW-32>
)

(FASL-OP-STOREIN-FUNCTION-CELL [3884] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32>=|> 1) 76542313>}
  (FASL-OP-INDEX [3842] {(<:INTERNAL> <|PRIMOP//HARDWARE::32>=|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [3820] {<|PRIMOP//HARDWARE::32>=|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [3820] {<|PRIMOP//HARDWARE::32>=|>})
     => (<|PRIMOP//HARDWARE::32>=|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32>=|> (<|PRIMOP//HARDWARE::32>=|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32>=|> (<|PRIMOP//HARDWARE::32>=|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [3825] {<HARDWARE:32>=>})
       => (<GLOBAL:QUOTE> <HARDWARE:32>=>))
      (FASL-OP-INDEX [3820] {<|PRIMOP//HARDWARE::32>=|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32>=>) <|PRIMOP//HARDWARE::32>=|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32>=>) <|PRIMOP//HARDWARE::32>=|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32>=>) <|PRIMOP//HARDWARE::32>=|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3825] {<HARDWARE:32>=>})
     => (<GLOBAL:QUOTE> <HARDWARE:32>=>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3826] {(<N1> <N2>)})
     => (<GLOBAL:QUOTE> (<N1> <N2>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32>=>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32>=>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32<=|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:32<=>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH '2000
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<N1> <N2>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<COMPARATOR> <NODE> (<GLOBAL:QUOTE> <K:BR-NOT-LESS-OR-EQUAL>) (<GLOBAL:QUOTE> <K:BW-32>))) (<:PRESIMPLIFY> (<NODE>) (<PRESIMPLIFY-TO-CONDITIONAL> <NODE>)) (<:CONDITIONAL?> <GLOBAL:T>))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:PRESIMPLIFY>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32<=|> 0)
 56 PUSH FEF|18  ;'<:GENERATE>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32<=|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [3936] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32<=|> 76545424>}
  (FASL-OP-INDEX [3898] {<|PRIMOP//HARDWARE::32<=|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32<=|> 0)
 16 CALL D-RETURN FEF|6  ;'NIL
 17 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [3949] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32<=|> 0) 76547041>}
  (FASL-OP-INDEX [3918] {(<:INTERNAL> <|PRIMOP//HARDWARE::32<=|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32<=|> 1)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH ARG|0
 22 PUSH FEF|7  ;'<K:BR-NOT-LESS-OR-EQUAL>
 23 MOVE D-LAST FEF|8  ;'<K:BW-32>
)

(FASL-OP-STOREIN-FUNCTION-CELL [3962] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32<=|> 1) 76550155>}
  (FASL-OP-INDEX [3920] {(<:INTERNAL> <|PRIMOP//HARDWARE::32<=|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [3898] {<|PRIMOP//HARDWARE::32<=|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [3898] {<|PRIMOP//HARDWARE::32<=|>})
     => (<|PRIMOP//HARDWARE::32<=|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32<=|> (<|PRIMOP//HARDWARE::32<=|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32<=|> (<|PRIMOP//HARDWARE::32<=|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [3903] {<HARDWARE:32<=>})
       => (<GLOBAL:QUOTE> <HARDWARE:32<=>))
      (FASL-OP-INDEX [3898] {<|PRIMOP//HARDWARE::32<=|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32<=>) <|PRIMOP//HARDWARE::32<=|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32<=>) <|PRIMOP//HARDWARE::32<=|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32<=>) <|PRIMOP//HARDWARE::32<=|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3903] {<HARDWARE:32<=>})
     => (<GLOBAL:QUOTE> <HARDWARE:32<=>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3904] {(<N1> <N2>)})
     => (<GLOBAL:QUOTE> (<N1> <N2>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32<=>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32<=>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>)))))

(FASL-OP-FRAME
<HW-32LOGAND>
 18 PUSH FEF|6  ;'<HARDWARE:UNBOXED-CONSTANT>
 19 CALL D-PDL FEF|7  ;'NIL
 20 MOVE D-LAST ARG|0
 21 CALL D-PDL FEF|7  ;'NIL
 22 MOVE D-LAST ARG|1
 23 LOGAND PDL-POP
 24 PUSH-NUMBER 2
 25 (MISC) %INTERNAL-LIST D-RETURN
)

(FASL-OP-STOREIN-FUNCTION-CELL [3988] {#<DTP-FEF-POINTER <HW-32LOGAND> 76553170>}
  (FASL-OP-INDEX [3976] {<HW-32LOGAND>}))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32LOGAND|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:32LOGAND>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH-NUMBER 0
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<N1> <N2>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:SIMPLIFY> (<NODE>) (<SIMPLIFY-IF-CONSTANT-EXPRESSION> <NODE> (<GLOBAL:QUOTE> <HW-32LOGAND>))) (<:GENERATE> (<NODE>) (<GENERATE-BINOP> <NODE> (<GLOBAL:QUOTE> <AND>) (<GLOBAL:QUOTE> <AND>) (<GLOBAL:QUOTE> <K:BW-32>))))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:GENERATE>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGAND|> 0)
 56 PUSH FEF|18  ;'<:SIMPLIFY>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGAND|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [4029] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32LOGAND|> 76553412>}
  (FASL-OP-INDEX [3991] {<|PRIMOP//HARDWARE::32LOGAND|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGAND|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH ARG|0
 22 PUSH FEF|7  ;'<AND>
 23 PUSH FEF|7  ;'<AND>
 24 MOVE D-LAST FEF|8  ;'<K:BW-32>
)

(FASL-OP-STOREIN-FUNCTION-CELL [4042] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32LOGAND|> 0) 76554105>}
  (FASL-OP-INDEX [4011] {(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGAND|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGAND|> 1)
 18 CALL D-RETURN FEF|6  ;'NIL
 19 PUSH ARG|0
 20 MOVE D-LAST FEF|7  ;'<HW-32LOGAND>
)

(FASL-OP-STOREIN-FUNCTION-CELL [4055] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32LOGAND|> 1) 76554652>}
  (FASL-OP-INDEX [4013] {(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGAND|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [3991] {<|PRIMOP//HARDWARE::32LOGAND|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [3991] {<|PRIMOP//HARDWARE::32LOGAND|>})
     => (<|PRIMOP//HARDWARE::32LOGAND|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32LOGAND|> (<|PRIMOP//HARDWARE::32LOGAND|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32LOGAND|> (<|PRIMOP//HARDWARE::32LOGAND|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [3996] {<HARDWARE:32LOGAND>})
       => (<GLOBAL:QUOTE> <HARDWARE:32LOGAND>))
      (FASL-OP-INDEX [3991] {<|PRIMOP//HARDWARE::32LOGAND|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32LOGAND>) <|PRIMOP//HARDWARE::32LOGAND|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32LOGAND>) <|PRIMOP//HARDWARE::32LOGAND|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32LOGAND>) <|PRIMOP//HARDWARE::32LOGAND|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3996] {<HARDWARE:32LOGAND>})
     => (<GLOBAL:QUOTE> <HARDWARE:32LOGAND>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [3997] {(<N1> <N2>)})
     => (<GLOBAL:QUOTE> (<N1> <N2>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32LOGAND>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32LOGAND>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>)))))

(FASL-OP-FRAME
<HW-32LOGXOR>
 18 PUSH FEF|6  ;'<HARDWARE:UNBOXED-CONSTANT>
 19 CALL D-PDL FEF|7  ;'NIL
 20 MOVE D-LAST ARG|0
 21 CALL D-PDL FEF|7  ;'NIL
 22 MOVE D-LAST ARG|1
 23 LOGXOR PDL-POP
 24 PUSH-NUMBER 2
 25 (MISC) %INTERNAL-LIST D-RETURN
)

(FASL-OP-STOREIN-FUNCTION-CELL [4081] {#<DTP-FEF-POINTER <HW-32LOGXOR> 76560213>}
  (FASL-OP-INDEX [4069] {<HW-32LOGXOR>}))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32LOGXOR|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:32LOGXOR>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH-NUMBER 0
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<N1> <N2>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:SIMPLIFY> (<NODE>) (<SIMPLIFY-IF-CONSTANT-EXPRESSION> <NODE> (<GLOBAL:QUOTE> <LOGXOR>))) (<:GENERATE> (<NODE>) (<GENERATE-BINOP> <NODE> (<GLOBAL:QUOTE> <K:XOR>) (<GLOBAL:QUOTE> <K:XOR>) (<GLOBAL:QUOTE> <K:BW-32>))))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:GENERATE>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGXOR|> 0)
 56 PUSH FEF|18  ;'<:SIMPLIFY>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGXOR|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [4124] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32LOGXOR|> 76560440>}
  (FASL-OP-INDEX [4084] {<|PRIMOP//HARDWARE::32LOGXOR|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGXOR|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH ARG|0
 22 PUSH FEF|7  ;'<K:XOR>
 23 PUSH FEF|7  ;'<K:XOR>
 24 MOVE D-LAST FEF|8  ;'<K:BW-32>
)

(FASL-OP-STOREIN-FUNCTION-CELL [4137] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32LOGXOR|> 0) 76561177>}
  (FASL-OP-INDEX [4106] {(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGXOR|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGXOR|> 1)
 18 CALL D-RETURN FEF|6  ;'NIL
 19 PUSH ARG|0
 20 MOVE D-LAST FEF|7  ;'<LOGXOR>
)

(FASL-OP-STOREIN-FUNCTION-CELL [4150] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32LOGXOR|> 1) 76561373>}
  (FASL-OP-INDEX [4108] {(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGXOR|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [4084] {<|PRIMOP//HARDWARE::32LOGXOR|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [4084] {<|PRIMOP//HARDWARE::32LOGXOR|>})
     => (<|PRIMOP//HARDWARE::32LOGXOR|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32LOGXOR|> (<|PRIMOP//HARDWARE::32LOGXOR|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32LOGXOR|> (<|PRIMOP//HARDWARE::32LOGXOR|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [4089] {<HARDWARE:32LOGXOR>})
       => (<GLOBAL:QUOTE> <HARDWARE:32LOGXOR>))
      (FASL-OP-INDEX [4084] {<|PRIMOP//HARDWARE::32LOGXOR|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32LOGXOR>) <|PRIMOP//HARDWARE::32LOGXOR|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32LOGXOR>) <|PRIMOP//HARDWARE::32LOGXOR|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32LOGXOR>) <|PRIMOP//HARDWARE::32LOGXOR|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4089] {<HARDWARE:32LOGXOR>})
     => (<GLOBAL:QUOTE> <HARDWARE:32LOGXOR>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4090] {(<N1> <N2>)})
     => (<GLOBAL:QUOTE> (<N1> <N2>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32LOGXOR>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32LOGXOR>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>)))))

(FASL-OP-FRAME
<HW-32LOGIOR>
 18 PUSH FEF|6  ;'<HARDWARE:UNBOXED-CONSTANT>
 19 CALL D-PDL FEF|7  ;'NIL
 20 MOVE D-LAST ARG|0
 21 CALL D-PDL FEF|7  ;'NIL
 22 MOVE D-LAST ARG|1
 23 LOGIOR PDL-POP
 24 PUSH-NUMBER 2
 25 (MISC) %INTERNAL-LIST D-RETURN
)

(FASL-OP-STOREIN-FUNCTION-CELL [4176] {#<DTP-FEF-POINTER <HW-32LOGIOR> 76563461>}
  (FASL-OP-INDEX [4164] {<HW-32LOGIOR>}))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32LOGIOR|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:32LOGIOR>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH-NUMBER 0
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<N1> <N2>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:SIMPLIFY> (<NODE>) (<SIMPLIFY-IF-CONSTANT-EXPRESSION> <NODE> (<GLOBAL:QUOTE> <HW-32LOGIOR>))) (<:GENERATE> (<NODE>) (<GENERATE-BINOP> <NODE> (<GLOBAL:QUOTE> <OR>) (<GLOBAL:QUOTE> <OR>) (<GLOBAL:QUOTE> <K:BW-32>))))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:GENERATE>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGIOR|> 0)
 56 PUSH FEF|18  ;'<:SIMPLIFY>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGIOR|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [4217] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32LOGIOR|> 76563677>}
  (FASL-OP-INDEX [4179] {<|PRIMOP//HARDWARE::32LOGIOR|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGIOR|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH ARG|0
 22 PUSH FEF|7  ;'<OR>
 23 PUSH FEF|7  ;'<OR>
 24 MOVE D-LAST FEF|8  ;'<K:BW-32>
)

(FASL-OP-STOREIN-FUNCTION-CELL [4230] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32LOGIOR|> 0) 76564366>}
  (FASL-OP-INDEX [4199] {(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGIOR|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGIOR|> 1)
 18 CALL D-RETURN FEF|6  ;'NIL
 19 PUSH ARG|0
 20 MOVE D-LAST FEF|7  ;'<HW-32LOGIOR>
)

(FASL-OP-STOREIN-FUNCTION-CELL [4243] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32LOGIOR|> 1) 76564631>}
  (FASL-OP-INDEX [4201] {(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGIOR|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [4179] {<|PRIMOP//HARDWARE::32LOGIOR|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [4179] {<|PRIMOP//HARDWARE::32LOGIOR|>})
     => (<|PRIMOP//HARDWARE::32LOGIOR|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32LOGIOR|> (<|PRIMOP//HARDWARE::32LOGIOR|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32LOGIOR|> (<|PRIMOP//HARDWARE::32LOGIOR|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [4184] {<HARDWARE:32LOGIOR>})
       => (<GLOBAL:QUOTE> <HARDWARE:32LOGIOR>))
      (FASL-OP-INDEX [4179] {<|PRIMOP//HARDWARE::32LOGIOR|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32LOGIOR>) <|PRIMOP//HARDWARE::32LOGIOR|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32LOGIOR>) <|PRIMOP//HARDWARE::32LOGIOR|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32LOGIOR>) <|PRIMOP//HARDWARE::32LOGIOR|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4184] {<HARDWARE:32LOGIOR>})
     => (<GLOBAL:QUOTE> <HARDWARE:32LOGIOR>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4185] {(<N1> <N2>)})
     => (<GLOBAL:QUOTE> (<N1> <N2>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32LOGIOR>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32LOGIOR>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32-1+|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32-1+>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-UNOP> <NODE> (<GLOBAL:QUOTE> <K:R+1>) (<GLOBAL:QUOTE> <K:BW-32>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32-1+|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [4288] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32-1+|> 76566677>}
  (FASL-OP-INDEX [4257] {<|PRIMOP//HARDWARE::32-1+|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32-1+|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH ARG|0
 22 PUSH FEF|7  ;'<K:R+1>
 23 MOVE D-LAST FEF|8  ;'<K:BW-32>
)

(FASL-OP-STOREIN-FUNCTION-CELL [4301] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32-1+|> 0) 76567301>}
  (FASL-OP-INDEX [4274] {(<:INTERNAL> <|PRIMOP//HARDWARE::32-1+|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [4257] {<|PRIMOP//HARDWARE::32-1+|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [4257] {<|PRIMOP//HARDWARE::32-1+|>})
     => (<|PRIMOP//HARDWARE::32-1+|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-1+|> (<|PRIMOP//HARDWARE::32-1+|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-1+|> (<|PRIMOP//HARDWARE::32-1+|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [4262] {<HARDWARE:32-1+>})
       => (<GLOBAL:QUOTE> <HARDWARE:32-1+>))
      (FASL-OP-INDEX [4257] {<|PRIMOP//HARDWARE::32-1+|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-1+>) <|PRIMOP//HARDWARE::32-1+|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-1+>) <|PRIMOP//HARDWARE::32-1+|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-1+>) <|PRIMOP//HARDWARE::32-1+|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4262] {<HARDWARE:32-1+>})
     => (<GLOBAL:QUOTE> <HARDWARE:32-1+>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4263] {(<N>)})
     => (<GLOBAL:QUOTE> (<N>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-1+>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-1+>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32-2+|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32-2+>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-UNOP> <NODE> (<GLOBAL:QUOTE> <K:R+2>) (<GLOBAL:QUOTE> <K:BW-32>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32-2+|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [4345] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32-2+|> 76572330>}
  (FASL-OP-INDEX [4315] {<|PRIMOP//HARDWARE::32-2+|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32-2+|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH ARG|0
 22 PUSH FEF|7  ;'<K:R+2>
 23 MOVE D-LAST FEF|8  ;'<K:BW-32>
)

(FASL-OP-STOREIN-FUNCTION-CELL [4358] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32-2+|> 0) 76572737>}
  (FASL-OP-INDEX [4331] {(<:INTERNAL> <|PRIMOP//HARDWARE::32-2+|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [4315] {<|PRIMOP//HARDWARE::32-2+|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [4315] {<|PRIMOP//HARDWARE::32-2+|>})
     => (<|PRIMOP//HARDWARE::32-2+|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-2+|> (<|PRIMOP//HARDWARE::32-2+|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-2+|> (<|PRIMOP//HARDWARE::32-2+|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [4320] {<HARDWARE:32-2+>})
       => (<GLOBAL:QUOTE> <HARDWARE:32-2+>))
      (FASL-OP-INDEX [4315] {<|PRIMOP//HARDWARE::32-2+|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-2+>) <|PRIMOP//HARDWARE::32-2+|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-2+>) <|PRIMOP//HARDWARE::32-2+|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-2+>) <|PRIMOP//HARDWARE::32-2+|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4320] {<HARDWARE:32-2+>})
     => (<GLOBAL:QUOTE> <HARDWARE:32-2+>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4321] {(<N>)})
     => (<GLOBAL:QUOTE> (<N>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-2+>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-2+>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32-4+|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32-4+>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-UNOP> <NODE> (<GLOBAL:QUOTE> <K:R+4>) (<GLOBAL:QUOTE> <K:BW-32>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32-4+|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [4402] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32-4+|> 76575073>}
  (FASL-OP-INDEX [4372] {<|PRIMOP//HARDWARE::32-4+|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32-4+|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH ARG|0
 22 PUSH FEF|7  ;'<K:R+4>
 23 MOVE D-LAST FEF|8  ;'<K:BW-32>
)

(FASL-OP-STOREIN-FUNCTION-CELL [4415] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32-4+|> 0) 76575501>}
  (FASL-OP-INDEX [4388] {(<:INTERNAL> <|PRIMOP//HARDWARE::32-4+|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [4372] {<|PRIMOP//HARDWARE::32-4+|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [4372] {<|PRIMOP//HARDWARE::32-4+|>})
     => (<|PRIMOP//HARDWARE::32-4+|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-4+|> (<|PRIMOP//HARDWARE::32-4+|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-4+|> (<|PRIMOP//HARDWARE::32-4+|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [4377] {<HARDWARE:32-4+>})
       => (<GLOBAL:QUOTE> <HARDWARE:32-4+>))
      (FASL-OP-INDEX [4372] {<|PRIMOP//HARDWARE::32-4+|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-4+>) <|PRIMOP//HARDWARE::32-4+|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-4+>) <|PRIMOP//HARDWARE::32-4+|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-4+>) <|PRIMOP//HARDWARE::32-4+|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4377] {<HARDWARE:32-4+>})
     => (<GLOBAL:QUOTE> <HARDWARE:32-4+>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4378] {(<N>)})
     => (<GLOBAL:QUOTE> (<N>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-4+>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-4+>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32-1-|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32-1->
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-UNOP> <NODE> (<GLOBAL:QUOTE> <K:R-1>) (<GLOBAL:QUOTE> <K:BW-32>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32-1-|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [4459] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32-1-|> 76576715>}
  (FASL-OP-INDEX [4429] {<|PRIMOP//HARDWARE::32-1-|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32-1-|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH ARG|0
 22 PUSH FEF|7  ;'<K:R-1>
 23 MOVE D-LAST FEF|8  ;'<K:BW-32>
)

(FASL-OP-STOREIN-FUNCTION-CELL [4472] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32-1-|> 0) 76600242>}
  (FASL-OP-INDEX [4445] {(<:INTERNAL> <|PRIMOP//HARDWARE::32-1-|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [4429] {<|PRIMOP//HARDWARE::32-1-|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [4429] {<|PRIMOP//HARDWARE::32-1-|>})
     => (<|PRIMOP//HARDWARE::32-1-|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-1-|> (<|PRIMOP//HARDWARE::32-1-|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-1-|> (<|PRIMOP//HARDWARE::32-1-|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [4434] {<HARDWARE:32-1->})
       => (<GLOBAL:QUOTE> <HARDWARE:32-1->))
      (FASL-OP-INDEX [4429] {<|PRIMOP//HARDWARE::32-1-|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-1->) <|PRIMOP//HARDWARE::32-1-|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-1->) <|PRIMOP//HARDWARE::32-1-|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-1->) <|PRIMOP//HARDWARE::32-1-|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4434] {<HARDWARE:32-1->})
     => (<GLOBAL:QUOTE> <HARDWARE:32-1->))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4435] {(<N>)})
     => (<GLOBAL:QUOTE> (<N>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-1->) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-1->) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32-2-|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32-2->
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-UNOP> <NODE> (<GLOBAL:QUOTE> <K:R-2>) (<GLOBAL:QUOTE> <K:BW-32>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32-2-|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [4516] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32-2-|> 76601411>}
  (FASL-OP-INDEX [4486] {<|PRIMOP//HARDWARE::32-2-|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32-2-|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH ARG|0
 22 PUSH FEF|7  ;'<K:R-2>
 23 MOVE D-LAST FEF|8  ;'<K:BW-32>
)

(FASL-OP-STOREIN-FUNCTION-CELL [4529] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32-2-|> 0) 76602047>}
  (FASL-OP-INDEX [4502] {(<:INTERNAL> <|PRIMOP//HARDWARE::32-2-|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [4486] {<|PRIMOP//HARDWARE::32-2-|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [4486] {<|PRIMOP//HARDWARE::32-2-|>})
     => (<|PRIMOP//HARDWARE::32-2-|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-2-|> (<|PRIMOP//HARDWARE::32-2-|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-2-|> (<|PRIMOP//HARDWARE::32-2-|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [4491] {<HARDWARE:32-2->})
       => (<GLOBAL:QUOTE> <HARDWARE:32-2->))
      (FASL-OP-INDEX [4486] {<|PRIMOP//HARDWARE::32-2-|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-2->) <|PRIMOP//HARDWARE::32-2-|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-2->) <|PRIMOP//HARDWARE::32-2-|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-2->) <|PRIMOP//HARDWARE::32-2-|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4491] {<HARDWARE:32-2->})
     => (<GLOBAL:QUOTE> <HARDWARE:32-2->))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4492] {(<N>)})
     => (<GLOBAL:QUOTE> (<N>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-2->) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-2->) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32-4-|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32-4->
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-UNOP> <NODE> (<GLOBAL:QUOTE> <K:R-4>) (<GLOBAL:QUOTE> <K:BW-32>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32-4-|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [4573] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32-4-|> 76603222>}
  (FASL-OP-INDEX [4543] {<|PRIMOP//HARDWARE::32-4-|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32-4-|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH ARG|0
 22 PUSH FEF|7  ;'<K:R-4>
 23 MOVE D-LAST FEF|8  ;'<K:BW-32>
)

(FASL-OP-STOREIN-FUNCTION-CELL [4586] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32-4-|> 0) 76603625>}
  (FASL-OP-INDEX [4559] {(<:INTERNAL> <|PRIMOP//HARDWARE::32-4-|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [4543] {<|PRIMOP//HARDWARE::32-4-|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [4543] {<|PRIMOP//HARDWARE::32-4-|>})
     => (<|PRIMOP//HARDWARE::32-4-|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-4-|> (<|PRIMOP//HARDWARE::32-4-|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-4-|> (<|PRIMOP//HARDWARE::32-4-|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [4548] {<HARDWARE:32-4->})
       => (<GLOBAL:QUOTE> <HARDWARE:32-4->))
      (FASL-OP-INDEX [4543] {<|PRIMOP//HARDWARE::32-4-|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-4->) <|PRIMOP//HARDWARE::32-4-|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-4->) <|PRIMOP//HARDWARE::32-4-|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-4->) <|PRIMOP//HARDWARE::32-4-|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4548] {<HARDWARE:32-4->})
     => (<GLOBAL:QUOTE> <HARDWARE:32-4->))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4549] {(<N>)})
     => (<GLOBAL:QUOTE> (<N>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-4->) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-4->) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::ACCUMULATE-BOX-BITS|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:ACCUMULATE-BOX-BITS>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N1> <N2>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<LET> ((<DEST> (<GET-DESTINATION> (<CONT> <NODE>)))) (<IF> (<MD-P> <DEST>) (<MULTIPLE-VALUE-BIND> (<L> <R>) (<GET-OPERANDS> (<CALL-ARG-N> 2 <NODE>) (<CALL-ARG-N> 3 <NODE>)) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:SHIFT-UP-LF-L>) <R0> <L> <R> (<GLOBAL:QUOTE> (<K:BW-24> <K:CARRY-1> <K:BOXED-RIGHT>))) (<GENERATE-MOVE> <R0> <DEST>) <DEST>) (<GENERATE-BINOP> <NODE> (<GLOBAL:QUOTE> <K:SHIFT-UP-LF-L>) (<GLOBAL:QUOTE> <K:SHIFT-UP-LF-L>) (<GLOBAL:QUOTE> <K:BW-24>) (<GLOBAL:QUOTE> <K:CARRY-1>) (<GLOBAL:QUOTE> <K:BOXED-RIGHT>))))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::ACCUMULATE-BOX-BITS|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [4660] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::ACCUMULATE-BOX-BITS|> 76605737>}
  (FASL-OP-INDEX [4600] {<|PRIMOP//HARDWARE::ACCUMULATE-BOX-BITS|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::ACCUMULATE-BOX-BITS|> 0)
 38 CALL D-PDL FEF|7  ;'NIL
 39 PUSH ARG|0
 40 AR-1 (4) D-PDL
 41 CADR D-LAST PDL-POP
 42 POP LOCAL|0
 43 CALL D-IGNORE FEF|8  ;'NIL
 44 MOVE D-LAST LOCAL|0
 45 BR-NIL 67
 46 PUSH FEF|9  ;'NIL
 47 PUSH-NUMBER 2
 48 (MISC) %CALL-MULT-VALUE D-IGNORE
 49 PUSH ARG|0
 50 AR-1 (4) D-PDL
 51 (MISC) CADDR D-PDL
 52 PUSH ARG|0
 53 AR-1 (4) D-PDL
 54 (MISC) CADDDR D-LAST
 55 POP LOCAL|2
 56 POP LOCAL|1
 57 CALL D-IGNORE FEF|10  ;'NIL
 58 PUSH FEF|11  ;'<K:SHIFT-UP-LF-L>
 59 PUSH FEF|6  ;':R0
 60 PUSH LOCAL|1
 61 PUSH LOCAL|2
 62 MOVE D-LAST FEF|12  ;'(<K:BW-24> <K:CARRY-1> <K:BOXED-RIGHT>)
 63 CALL D-IGNORE FEF|13  ;'NIL
 64 PUSH FEF|6  ;':R0
 65 MOVE D-LAST LOCAL|0
 66 MOVE D-RETURN LOCAL|0
 67 CALL D-RETURN FEF|14  ;'NIL
 68 PUSH ARG|0
 69 PUSH FEF|11  ;'<K:SHIFT-UP-LF-L>
 70 PUSH FEF|11  ;'<K:SHIFT-UP-LF-L>
 71 PUSH FEF|15  ;'<K:BW-24>
 72 PUSH FEF|16  ;'<K:CARRY-1>
 73 MOVE D-LAST FEF|17  ;'<K:BOXED-RIGHT>
)

(FASL-OP-STOREIN-FUNCTION-CELL [4680] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::ACCUMULATE-BOX-BITS|> 0) 76607017>}
  (FASL-OP-INDEX [4646] {(<:INTERNAL> <|PRIMOP//HARDWARE::ACCUMULATE-BOX-BITS|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [4600] {<|PRIMOP//HARDWARE::ACCUMULATE-BOX-BITS|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [4600] {<|PRIMOP//HARDWARE::ACCUMULATE-BOX-BITS|>})
     => (<|PRIMOP//HARDWARE::ACCUMULATE-BOX-BITS|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::ACCUMULATE-BOX-BITS|> (<|PRIMOP//HARDWARE::ACCUMULATE-BOX-BITS|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::ACCUMULATE-BOX-BITS|> (<|PRIMOP//HARDWARE::ACCUMULATE-BOX-BITS|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [4605] {<HARDWARE:ACCUMULATE-BOX-BITS>})
       => (<GLOBAL:QUOTE> <HARDWARE:ACCUMULATE-BOX-BITS>))
      (FASL-OP-INDEX [4600] {<|PRIMOP//HARDWARE::ACCUMULATE-BOX-BITS|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:ACCUMULATE-BOX-BITS>) <|PRIMOP//HARDWARE::ACCUMULATE-BOX-BITS|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:ACCUMULATE-BOX-BITS>) <|PRIMOP//HARDWARE::ACCUMULATE-BOX-BITS|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:ACCUMULATE-BOX-BITS>) <|PRIMOP//HARDWARE::ACCUMULATE-BOX-BITS|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4605] {<HARDWARE:ACCUMULATE-BOX-BITS>})
     => (<GLOBAL:QUOTE> <HARDWARE:ACCUMULATE-BOX-BITS>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4606] {(<N1> <N2>)})
     => (<GLOBAL:QUOTE> (<N1> <N2>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:ACCUMULATE-BOX-BITS>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:ACCUMULATE-BOX-BITS>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32+|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32+>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N1> <N2>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-BINOP> <NODE> (<GLOBAL:QUOTE> <K:L+R>) (<GLOBAL:QUOTE> <K:L+R>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32+|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [4724] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32+|> 76611413>}
  (FASL-OP-INDEX [4694] {<|PRIMOP//HARDWARE::32+|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32+|> 0)
 18 CALL D-RETURN FEF|6  ;'NIL
 19 PUSH ARG|0
 20 PUSH FEF|7  ;'<K:L+R>
 21 MOVE D-LAST FEF|7  ;'<K:L+R>
)

(FASL-OP-STOREIN-FUNCTION-CELL [4737] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32+|> 0) 76612044>}
  (FASL-OP-INDEX [4710] {(<:INTERNAL> <|PRIMOP//HARDWARE::32+|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [4694] {<|PRIMOP//HARDWARE::32+|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [4694] {<|PRIMOP//HARDWARE::32+|>})
     => (<|PRIMOP//HARDWARE::32+|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32+|> (<|PRIMOP//HARDWARE::32+|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32+|> (<|PRIMOP//HARDWARE::32+|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [4699] {<HARDWARE:32+>})
       => (<GLOBAL:QUOTE> <HARDWARE:32+>))
      (FASL-OP-INDEX [4694] {<|PRIMOP//HARDWARE::32+|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32+>) <|PRIMOP//HARDWARE::32+|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32+>) <|PRIMOP//HARDWARE::32+|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32+>) <|PRIMOP//HARDWARE::32+|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4699] {<HARDWARE:32+>})
     => (<GLOBAL:QUOTE> <HARDWARE:32+>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4700] {(<N1> <N2>)})
     => (<GLOBAL:QUOTE> (<N1> <N2>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32+>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32+>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32-|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32->
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N1> <N2>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-BINOP> <NODE> (<GLOBAL:QUOTE> <K:L-R>) (<GLOBAL:QUOTE> <K:R-L>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32-|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [4783] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32-|> 76613242>}
  (FASL-OP-INDEX [4751] {<|PRIMOP//HARDWARE::32-|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32-|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH ARG|0
 22 PUSH FEF|7  ;'<K:L-R>
 23 MOVE D-LAST FEF|8  ;'<K:R-L>
)

(FASL-OP-STOREIN-FUNCTION-CELL [4796] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32-|> 0) 76613670>}
  (FASL-OP-INDEX [4769] {(<:INTERNAL> <|PRIMOP//HARDWARE::32-|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [4751] {<|PRIMOP//HARDWARE::32-|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [4751] {<|PRIMOP//HARDWARE::32-|>})
     => (<|PRIMOP//HARDWARE::32-|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-|> (<|PRIMOP//HARDWARE::32-|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-|> (<|PRIMOP//HARDWARE::32-|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [4756] {<HARDWARE:32->})
       => (<GLOBAL:QUOTE> <HARDWARE:32->))
      (FASL-OP-INDEX [4751] {<|PRIMOP//HARDWARE::32-|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32->) <|PRIMOP//HARDWARE::32-|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32->) <|PRIMOP//HARDWARE::32-|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32->) <|PRIMOP//HARDWARE::32-|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4756] {<HARDWARE:32->})
     => (<GLOBAL:QUOTE> <HARDWARE:32->))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4757] {(<N1> <N2>)})
     => (<GLOBAL:QUOTE> (<N1> <N2>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32->) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32->) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::8+|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:8+>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N1> <N2>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-BINOP> <NODE> (<GLOBAL:QUOTE> <K:L+R>) (<GLOBAL:QUOTE> <K:L+R>) (<GLOBAL:QUOTE> <K:BW-8>) (<GLOBAL:QUOTE> <K:BOXED-RIGHT>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::8+|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [4842] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::8+|> 76615773>}
  (FASL-OP-INDEX [4810] {<|PRIMOP//HARDWARE::8+|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::8+|> 0)
 22 CALL D-RETURN FEF|6  ;'NIL
 23 PUSH ARG|0
 24 PUSH FEF|7  ;'<K:L+R>
 25 PUSH FEF|7  ;'<K:L+R>
 26 PUSH FEF|8  ;'<K:BW-8>
 27 MOVE D-LAST FEF|9  ;'<K:BOXED-RIGHT>
)

(FASL-OP-STOREIN-FUNCTION-CELL [4855] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::8+|> 0) 76616433>}
  (FASL-OP-INDEX [4828] {(<:INTERNAL> <|PRIMOP//HARDWARE::8+|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [4810] {<|PRIMOP//HARDWARE::8+|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [4810] {<|PRIMOP//HARDWARE::8+|>})
     => (<|PRIMOP//HARDWARE::8+|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::8+|> (<|PRIMOP//HARDWARE::8+|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::8+|> (<|PRIMOP//HARDWARE::8+|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [4815] {<HARDWARE:8+>})
       => (<GLOBAL:QUOTE> <HARDWARE:8+>))
      (FASL-OP-INDEX [4810] {<|PRIMOP//HARDWARE::8+|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:8+>) <|PRIMOP//HARDWARE::8+|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:8+>) <|PRIMOP//HARDWARE::8+|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:8+>) <|PRIMOP//HARDWARE::8+|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4815] {<HARDWARE:8+>})
     => (<GLOBAL:QUOTE> <HARDWARE:8+>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4816] {(<N1> <N2>)})
     => (<GLOBAL:QUOTE> (<N1> <N2>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:8+>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:8+>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::8-1+|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:8-1+>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-UNOP> <NODE> (<GLOBAL:QUOTE> <K:R+1>) (<GLOBAL:QUOTE> <K:BW-8>) (<GLOBAL:QUOTE> <K:BOXED-RIGHT>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::8-1+|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [4898] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::8-1+|> 76621536>}
  (FASL-OP-INDEX [4869] {<|PRIMOP//HARDWARE::8-1+|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::8-1+|> 0)
 22 CALL D-RETURN FEF|6  ;'NIL
 23 PUSH ARG|0
 24 PUSH FEF|7  ;'<K:R+1>
 25 PUSH FEF|8  ;'<K:BW-8>
 26 MOVE D-LAST FEF|9  ;'<K:BOXED-RIGHT>
)

(FASL-OP-STOREIN-FUNCTION-CELL [4911] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::8-1+|> 0) 76622136>}
  (FASL-OP-INDEX [4884] {(<:INTERNAL> <|PRIMOP//HARDWARE::8-1+|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [4869] {<|PRIMOP//HARDWARE::8-1+|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [4869] {<|PRIMOP//HARDWARE::8-1+|>})
     => (<|PRIMOP//HARDWARE::8-1+|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::8-1+|> (<|PRIMOP//HARDWARE::8-1+|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::8-1+|> (<|PRIMOP//HARDWARE::8-1+|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [4874] {<HARDWARE:8-1+>})
       => (<GLOBAL:QUOTE> <HARDWARE:8-1+>))
      (FASL-OP-INDEX [4869] {<|PRIMOP//HARDWARE::8-1+|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:8-1+>) <|PRIMOP//HARDWARE::8-1+|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:8-1+>) <|PRIMOP//HARDWARE::8-1+|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:8-1+>) <|PRIMOP//HARDWARE::8-1+|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4874] {<HARDWARE:8-1+>})
     => (<GLOBAL:QUOTE> <HARDWARE:8-1+>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4875] {(<N>)})
     => (<GLOBAL:QUOTE> (<N>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:8-1+>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:8-1+>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::8-1-|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:8-1->
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-UNOP> <NODE> (<GLOBAL:QUOTE> <K:R-1>) (<GLOBAL:QUOTE> <K:BW-8>) (<GLOBAL:QUOTE> <K:BOXED-RIGHT>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::8-1-|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [4954] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::8-1-|> 76625142>}
  (FASL-OP-INDEX [4925] {<|PRIMOP//HARDWARE::8-1-|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::8-1-|> 0)
 22 CALL D-RETURN FEF|6  ;'NIL
 23 PUSH ARG|0
 24 PUSH FEF|7  ;'<K:R-1>
 25 PUSH FEF|8  ;'<K:BW-8>
 26 MOVE D-LAST FEF|9  ;'<K:BOXED-RIGHT>
)

(FASL-OP-STOREIN-FUNCTION-CELL [4967] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::8-1-|> 0) 76627376>}
  (FASL-OP-INDEX [4940] {(<:INTERNAL> <|PRIMOP//HARDWARE::8-1-|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [4925] {<|PRIMOP//HARDWARE::8-1-|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [4925] {<|PRIMOP//HARDWARE::8-1-|>})
     => (<|PRIMOP//HARDWARE::8-1-|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::8-1-|> (<|PRIMOP//HARDWARE::8-1-|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::8-1-|> (<|PRIMOP//HARDWARE::8-1-|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [4930] {<HARDWARE:8-1->})
       => (<GLOBAL:QUOTE> <HARDWARE:8-1->))
      (FASL-OP-INDEX [4925] {<|PRIMOP//HARDWARE::8-1-|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:8-1->) <|PRIMOP//HARDWARE::8-1-|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:8-1->) <|PRIMOP//HARDWARE::8-1-|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:8-1->) <|PRIMOP//HARDWARE::8-1-|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4930] {<HARDWARE:8-1->})
     => (<GLOBAL:QUOTE> <HARDWARE:8-1->))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4931] {(<N>)})
     => (<GLOBAL:QUOTE> (<N>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:8-1->) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:8-1->) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::24-1+|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:24-1+>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-UNOP> <NODE> (<GLOBAL:QUOTE> <K:R+1>) (<GLOBAL:QUOTE> <K:BW-24>) (<GLOBAL:QUOTE> <K:BOXED-RIGHT>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::24-1+|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [5010] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::24-1+|> 76631501>}
  (FASL-OP-INDEX [4981] {<|PRIMOP//HARDWARE::24-1+|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::24-1+|> 0)
 22 CALL D-RETURN FEF|6  ;'NIL
 23 PUSH ARG|0
 24 PUSH FEF|7  ;'<K:R+1>
 25 PUSH FEF|8  ;'<K:BW-24>
 26 MOVE D-LAST FEF|9  ;'<K:BOXED-RIGHT>
)

(FASL-OP-STOREIN-FUNCTION-CELL [5023] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::24-1+|> 0) 76633041>}
  (FASL-OP-INDEX [4996] {(<:INTERNAL> <|PRIMOP//HARDWARE::24-1+|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [4981] {<|PRIMOP//HARDWARE::24-1+|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [4981] {<|PRIMOP//HARDWARE::24-1+|>})
     => (<|PRIMOP//HARDWARE::24-1+|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::24-1+|> (<|PRIMOP//HARDWARE::24-1+|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::24-1+|> (<|PRIMOP//HARDWARE::24-1+|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [4986] {<HARDWARE:24-1+>})
       => (<GLOBAL:QUOTE> <HARDWARE:24-1+>))
      (FASL-OP-INDEX [4981] {<|PRIMOP//HARDWARE::24-1+|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24-1+>) <|PRIMOP//HARDWARE::24-1+|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24-1+>) <|PRIMOP//HARDWARE::24-1+|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24-1+>) <|PRIMOP//HARDWARE::24-1+|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4986] {<HARDWARE:24-1+>})
     => (<GLOBAL:QUOTE> <HARDWARE:24-1+>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [4987] {(<N>)})
     => (<GLOBAL:QUOTE> (<N>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:24-1+>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:24-1+>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::24-1-|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:24-1->
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-UNOP> <NODE> (<GLOBAL:QUOTE> <K:R-1>) (<GLOBAL:QUOTE> <K:BW-24>) (<GLOBAL:QUOTE> <K:BOXED-RIGHT>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::24-1-|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [5066] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::24-1-|> 76635131>}
  (FASL-OP-INDEX [5037] {<|PRIMOP//HARDWARE::24-1-|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::24-1-|> 0)
 22 CALL D-RETURN FEF|6  ;'NIL
 23 PUSH ARG|0
 24 PUSH FEF|7  ;'<K:R-1>
 25 PUSH FEF|8  ;'<K:BW-24>
 26 MOVE D-LAST FEF|9  ;'<K:BOXED-RIGHT>
)

(FASL-OP-STOREIN-FUNCTION-CELL [5079] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::24-1-|> 0) 76635552>}
  (FASL-OP-INDEX [5052] {(<:INTERNAL> <|PRIMOP//HARDWARE::24-1-|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [5037] {<|PRIMOP//HARDWARE::24-1-|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [5037] {<|PRIMOP//HARDWARE::24-1-|>})
     => (<|PRIMOP//HARDWARE::24-1-|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::24-1-|> (<|PRIMOP//HARDWARE::24-1-|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::24-1-|> (<|PRIMOP//HARDWARE::24-1-|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [5042] {<HARDWARE:24-1->})
       => (<GLOBAL:QUOTE> <HARDWARE:24-1->))
      (FASL-OP-INDEX [5037] {<|PRIMOP//HARDWARE::24-1-|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24-1->) <|PRIMOP//HARDWARE::24-1-|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24-1->) <|PRIMOP//HARDWARE::24-1-|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24-1->) <|PRIMOP//HARDWARE::24-1-|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5042] {<HARDWARE:24-1->})
     => (<GLOBAL:QUOTE> <HARDWARE:24-1->))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5043] {(<N>)})
     => (<GLOBAL:QUOTE> (<N>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:24-1->) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:24-1->) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::8-|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:8->
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N1> <N2>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-BINOP> <NODE> (<GLOBAL:QUOTE> <K:L-R>) (<GLOBAL:QUOTE> <K:R-L>) (<GLOBAL:QUOTE> <K:BW-8>) (<GLOBAL:QUOTE> <K:BOXED-RIGHT>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::8-|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [5123] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::8-|> 76637644>}
  (FASL-OP-INDEX [5093] {<|PRIMOP//HARDWARE::8-|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::8-|> 0)
 24 CALL D-RETURN FEF|6  ;'NIL
 25 PUSH ARG|0
 26 PUSH FEF|7  ;'<K:L-R>
 27 PUSH FEF|8  ;'<K:R-L>
 28 PUSH FEF|9  ;'<K:BW-8>
 29 MOVE D-LAST FEF|10  ;'<K:BOXED-RIGHT>
)

(FASL-OP-STOREIN-FUNCTION-CELL [5136] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::8-|> 0) 76640255>}
  (FASL-OP-INDEX [5109] {(<:INTERNAL> <|PRIMOP//HARDWARE::8-|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [5093] {<|PRIMOP//HARDWARE::8-|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [5093] {<|PRIMOP//HARDWARE::8-|>})
     => (<|PRIMOP//HARDWARE::8-|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::8-|> (<|PRIMOP//HARDWARE::8-|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::8-|> (<|PRIMOP//HARDWARE::8-|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [5098] {<HARDWARE:8->})
       => (<GLOBAL:QUOTE> <HARDWARE:8->))
      (FASL-OP-INDEX [5093] {<|PRIMOP//HARDWARE::8-|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:8->) <|PRIMOP//HARDWARE::8-|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:8->) <|PRIMOP//HARDWARE::8-|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:8->) <|PRIMOP//HARDWARE::8-|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5098] {<HARDWARE:8->})
     => (<GLOBAL:QUOTE> <HARDWARE:8->))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5099] {(<N1> <N2>)})
     => (<GLOBAL:QUOTE> (<N1> <N2>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:8->) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:8->) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW24|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:LEFT+RIGHT+1-BW24>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N1> <N2>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-BINOP> <NODE> (<GLOBAL:QUOTE> <K:L+R+C>) (<GLOBAL:QUOTE> <K:L+R+C>) (<GLOBAL:QUOTE> <K:BW-24>) (<GLOBAL:QUOTE> <K:CARRY-1>) (<GLOBAL:QUOTE> <K:BOXED-RIGHT>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW24|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [5183] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW24|> 76642347>}
  (FASL-OP-INDEX [5150] {<|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW24|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW24|> 0)
 24 CALL D-RETURN FEF|6  ;'NIL
 25 PUSH ARG|0
 26 PUSH FEF|7  ;'<K:L+R+C>
 27 PUSH FEF|7  ;'<K:L+R+C>
 28 PUSH FEF|8  ;'<K:BW-24>
 29 PUSH FEF|9  ;'<K:CARRY-1>
 30 MOVE D-LAST FEF|10  ;'<K:BOXED-RIGHT>
)

(FASL-OP-STOREIN-FUNCTION-CELL [5196] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW24|> 0) 76643015>}
  (FASL-OP-INDEX [5169] {(<:INTERNAL> <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW24|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [5150] {<|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW24|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [5150] {<|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW24|>})
     => (<|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW24|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW24|> (<|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW24|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW24|> (<|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW24|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [5155] {<HARDWARE:LEFT+RIGHT+1-BW24>})
       => (<GLOBAL:QUOTE> <HARDWARE:LEFT+RIGHT+1-BW24>))
      (FASL-OP-INDEX [5150] {<|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW24|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:LEFT+RIGHT+1-BW24>) <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW24|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:LEFT+RIGHT+1-BW24>) <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW24|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:LEFT+RIGHT+1-BW24>) <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW24|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5155] {<HARDWARE:LEFT+RIGHT+1-BW24>})
     => (<GLOBAL:QUOTE> <HARDWARE:LEFT+RIGHT+1-BW24>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5156] {(<N1> <N2>)})
     => (<GLOBAL:QUOTE> (<N1> <N2>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:LEFT+RIGHT+1-BW24>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:LEFT+RIGHT+1-BW24>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW32|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:LEFT+RIGHT+1-BW32>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N1> <N2>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-BINOP> <NODE> (<GLOBAL:QUOTE> <K:L+R+C>) (<GLOBAL:QUOTE> <K:L+R+C>) (<GLOBAL:QUOTE> <K:BW-32>) (<GLOBAL:QUOTE> <K:CARRY-1>) (<GLOBAL:QUOTE> <K:UNBOXED>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW32|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [5241] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW32|> 76646103>}
  (FASL-OP-INDEX [5210] {<|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW32|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW32|> 0)
 24 CALL D-RETURN FEF|6  ;'NIL
 25 PUSH ARG|0
 26 PUSH FEF|7  ;'<K:L+R+C>
 27 PUSH FEF|7  ;'<K:L+R+C>
 28 PUSH FEF|8  ;'<K:BW-32>
 29 PUSH FEF|9  ;'<K:CARRY-1>
 30 MOVE D-LAST FEF|10  ;'<K:UNBOXED>
)

(FASL-OP-STOREIN-FUNCTION-CELL [5254] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW32|> 0) 76646532>}
  (FASL-OP-INDEX [5227] {(<:INTERNAL> <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW32|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [5210] {<|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW32|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [5210] {<|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW32|>})
     => (<|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW32|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW32|> (<|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW32|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW32|> (<|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW32|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [5215] {<HARDWARE:LEFT+RIGHT+1-BW32>})
       => (<GLOBAL:QUOTE> <HARDWARE:LEFT+RIGHT+1-BW32>))
      (FASL-OP-INDEX [5210] {<|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW32|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:LEFT+RIGHT+1-BW32>) <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW32|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:LEFT+RIGHT+1-BW32>) <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW32|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:LEFT+RIGHT+1-BW32>) <|PRIMOP//HARDWARE::LEFT+RIGHT+1-BW32|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5215] {<HARDWARE:LEFT+RIGHT+1-BW32>})
     => (<GLOBAL:QUOTE> <HARDWARE:LEFT+RIGHT+1-BW32>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5216] {(<N1> <N2>)})
     => (<GLOBAL:QUOTE> (<N1> <N2>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:LEFT+RIGHT+1-BW32>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:LEFT+RIGHT+1-BW32>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32LOGICAL-SHIFT-UP|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32LOGICAL-SHIFT-UP>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N> <NBITS>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <N> <NBITS>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<IF> (<LITERAL-NODE?> <NBITS>) (<LET> ((<AMOUNT> (<LEAF-VALUE> <NBITS>))) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:NB-SHIFT-0F-R>) <DEST> <IGNORED> (<GET-RIGHT-OPERAND> <N>) (<SI:XR-BQ-LIST> (<GLOBAL:QUOTE> <PRIMITIVES:BYTE>) 0 <AMOUNT>) (<GLOBAL:QUOTE> <K:PW-II>))) (<PROGN> (<GENERATE-LOAD-SR-POSITION> <NBITS>) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:NB-SHIFT-0F-R>) <DEST> <IGNORED> (<GET-RIGHT-OPERAND> <N>) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> 0)) (<GLOBAL:QUOTE> <K:PW-RR>)))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-UP|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [5328] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-UP|> 76650671>}
  (FASL-OP-INDEX [5268] {<|PRIMOP//HARDWARE::32LOGICAL-SHIFT-UP|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-UP|> 0)
 38 PUSH ARG|0
 39 AR-1 (4) D-PDL
 40 CDR D-PDL PDL-POP
 41 MOVEM LOCAL|0
 42 (MISC) CADDR D-PDL
 43 CADR D-PDL LOCAL|0
 44 CAR D-PDL LOCAL|0
 45 POP LOCAL|3
 46 POP LOCAL|2
 47 POP LOCAL|1
 48 CALL D-PDL FEF|7  ;'NIL
 49 MOVE D-LAST LOCAL|3
 50 POP LOCAL|4
 51 PUSH LOCAL|1
 52 PUSH FEF|8  ;'<LEAF-NODE>
 53 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 54 BR-NIL 75
 55 PUSH LOCAL|1
 56 AR-1 (5) D-PDL
 57 EQ FEF|9  ;'<LITERAL>
 58 BR-NIL 75
 59 PUSH LOCAL|1
 60 AR-1 (4) D-PDL
 61 POP LOCAL|5
 62 CALL D-IGNORE FEF|10  ;'NIL
 63 PUSH FEF|11  ;'<K:NB-SHIFT-0F-R>
 64 PUSH LOCAL|4
 65 PUSH FEF|6  ;':IGNORED
 66 CALL D-PDL FEF|12  ;'NIL
 67 MOVE D-LAST LOCAL|2
 68 PUSH FEF|13  ;'<PRIMITIVES:BYTE>
 69 PUSH-NUMBER 0
 70 PUSH LOCAL|5
 71 PUSH-NUMBER 3
 72 (MISC) %INTERNAL-LIST D-PDL
 73 MOVE D-LAST FEF|14  ;'<K:PW-II>
 74 MOVE D-RETURN LOCAL|4
 75 CALL D-IGNORE FEF|15  ;'NIL
 76 MOVE D-LAST LOCAL|1
 77 CALL D-IGNORE FEF|10  ;'NIL
 78 PUSH FEF|11  ;'<K:NB-SHIFT-0F-R>
 79 PUSH LOCAL|4
 80 PUSH FEF|6  ;':IGNORED
 81 CALL D-PDL FEF|12  ;'NIL
 82 MOVE D-LAST LOCAL|2
 83 PUSH FEF|16  ;'(<GLOBAL:QUOTE> 0)
 84 MOVE D-LAST FEF|17  ;'<K:PW-RR>
 85 MOVE D-RETURN LOCAL|4
)

(FASL-OP-STOREIN-FUNCTION-CELL [5350] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-UP|> 0) 76651552>}
  (FASL-OP-INDEX [5314] {(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-UP|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [5268] {<|PRIMOP//HARDWARE::32LOGICAL-SHIFT-UP|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [5268] {<|PRIMOP//HARDWARE::32LOGICAL-SHIFT-UP|>})
     => (<|PRIMOP//HARDWARE::32LOGICAL-SHIFT-UP|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-UP|> (<|PRIMOP//HARDWARE::32LOGICAL-SHIFT-UP|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-UP|> (<|PRIMOP//HARDWARE::32LOGICAL-SHIFT-UP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [5273] {<HARDWARE:32LOGICAL-SHIFT-UP>})
       => (<GLOBAL:QUOTE> <HARDWARE:32LOGICAL-SHIFT-UP>))
      (FASL-OP-INDEX [5268] {<|PRIMOP//HARDWARE::32LOGICAL-SHIFT-UP|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32LOGICAL-SHIFT-UP>) <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-UP|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32LOGICAL-SHIFT-UP>) <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-UP|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32LOGICAL-SHIFT-UP>) <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-UP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5273] {<HARDWARE:32LOGICAL-SHIFT-UP>})
     => (<GLOBAL:QUOTE> <HARDWARE:32LOGICAL-SHIFT-UP>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5275] {(<N> <NBITS>)})
     => (<GLOBAL:QUOTE> (<N> <NBITS>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32LOGICAL-SHIFT-UP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N> <NBITS>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32LOGICAL-SHIFT-UP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N> <NBITS>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32LOGICAL-SHIFT-DOWN|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32LOGICAL-SHIFT-DOWN>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N> <NBITS>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <N> <NBITS>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<IF> (<LITERAL-NODE?> <NBITS>) (<LET> ((<AMOUNT> (<LEAF-VALUE> <NBITS>))) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:NB-SHIFT-0F-R>) <DEST> <IGNORED> (<GET-RIGHT-OPERAND> <N>) (<SI:XR-BQ-LIST> (<GLOBAL:QUOTE> <PRIMITIVES:BYTE>) 0 (<-> <AMOUNT>)) (<GLOBAL:QUOTE> <K:PW-II>))) (<PROGN> (<GENERATE-LOAD-SR-MINUS-POSITION> <NBITS>) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:NB-SHIFT-0F-R>) <DEST> <IGNORED> (<GET-RIGHT-OPERAND> <N>) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> 0)) (<GLOBAL:QUOTE> <K:PW-RR>)))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-DOWN|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [5422] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-DOWN|> 76654313>}
  (FASL-OP-INDEX [5364] {<|PRIMOP//HARDWARE::32LOGICAL-SHIFT-DOWN|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-DOWN|> 0)
 38 PUSH ARG|0
 39 AR-1 (4) D-PDL
 40 CDR D-PDL PDL-POP
 41 MOVEM LOCAL|0
 42 (MISC) CADDR D-PDL
 43 CADR D-PDL LOCAL|0
 44 CAR D-PDL LOCAL|0
 45 POP LOCAL|3
 46 POP LOCAL|2
 47 POP LOCAL|1
 48 CALL D-PDL FEF|7  ;'NIL
 49 MOVE D-LAST LOCAL|3
 50 POP LOCAL|4
 51 PUSH LOCAL|1
 52 PUSH FEF|8  ;'<LEAF-NODE>
 53 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 54 BR-NIL 76
 55 PUSH LOCAL|1
 56 AR-1 (5) D-PDL
 57 EQ FEF|9  ;'<LITERAL>
 58 BR-NIL 76
 59 PUSH LOCAL|1
 60 AR-1 (4) D-PDL
 61 POP LOCAL|5
 62 CALL D-IGNORE FEF|10  ;'NIL
 63 PUSH FEF|11  ;'<K:NB-SHIFT-0F-R>
 64 PUSH LOCAL|4
 65 PUSH FEF|6  ;':IGNORED
 66 CALL D-PDL FEF|12  ;'NIL
 67 MOVE D-LAST LOCAL|2
 68 PUSH FEF|13  ;'<PRIMITIVES:BYTE>
 69 PUSH-NUMBER 0
 70 PUSH LOCAL|5
 71 (MISC) MINUS D-PDL
 72 PUSH-NUMBER 3
 73 (MISC) %INTERNAL-LIST D-PDL
 74 MOVE D-LAST FEF|14  ;'<K:PW-II>
 75 MOVE D-RETURN LOCAL|4
 76 CALL D-IGNORE FEF|15  ;'NIL
 77 MOVE D-LAST LOCAL|1
 78 CALL D-IGNORE FEF|10  ;'NIL
 79 PUSH FEF|11  ;'<K:NB-SHIFT-0F-R>
 80 PUSH LOCAL|4
 81 PUSH FEF|6  ;':IGNORED
 82 CALL D-PDL FEF|12  ;'NIL
 83 MOVE D-LAST LOCAL|2
 84 PUSH FEF|16  ;'(<GLOBAL:QUOTE> 0)
 85 MOVE D-LAST FEF|17  ;'<K:PW-RR>
 86 MOVE D-RETURN LOCAL|4
)

(FASL-OP-STOREIN-FUNCTION-CELL [5444] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-DOWN|> 0) 76655204>}
  (FASL-OP-INDEX [5408] {(<:INTERNAL> <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-DOWN|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [5364] {<|PRIMOP//HARDWARE::32LOGICAL-SHIFT-DOWN|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [5364] {<|PRIMOP//HARDWARE::32LOGICAL-SHIFT-DOWN|>})
     => (<|PRIMOP//HARDWARE::32LOGICAL-SHIFT-DOWN|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-DOWN|> (<|PRIMOP//HARDWARE::32LOGICAL-SHIFT-DOWN|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-DOWN|> (<|PRIMOP//HARDWARE::32LOGICAL-SHIFT-DOWN|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [5369] {<HARDWARE:32LOGICAL-SHIFT-DOWN>})
       => (<GLOBAL:QUOTE> <HARDWARE:32LOGICAL-SHIFT-DOWN>))
      (FASL-OP-INDEX [5364] {<|PRIMOP//HARDWARE::32LOGICAL-SHIFT-DOWN|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32LOGICAL-SHIFT-DOWN>) <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-DOWN|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32LOGICAL-SHIFT-DOWN>) <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-DOWN|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32LOGICAL-SHIFT-DOWN>) <|PRIMOP//HARDWARE::32LOGICAL-SHIFT-DOWN|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5369] {<HARDWARE:32LOGICAL-SHIFT-DOWN>})
     => (<GLOBAL:QUOTE> <HARDWARE:32LOGICAL-SHIFT-DOWN>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5370] {(<N> <NBITS>)})
     => (<GLOBAL:QUOTE> (<N> <NBITS>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32LOGICAL-SHIFT-DOWN>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N> <NBITS>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32LOGICAL-SHIFT-DOWN>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N> <NBITS>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-DOWN|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32ARITHMETIC-SHIFT-DOWN>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N> <NBITS>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <N> <NBITS>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<IF> (<LITERAL-NODE?> <NBITS>) (<LET> ((<AMOUNT> (<LEAF-VALUE> <NBITS>))) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:NB-SHIFT-AR-R>) <DEST> <IGNORED> (<GET-RIGHT-OPERAND> <N>) (<SI:XR-BQ-LIST> (<GLOBAL:QUOTE> <PRIMITIVES:BYTE>) 0 (<-> <AMOUNT>)) (<GLOBAL:QUOTE> <K:PW-II>))) (<PROGN> (<GENERATE-LOAD-SR-MINUS-POSITION> <NBITS>) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:NB-SHIFT-AR-R>) <DEST> <IGNORED> (<GET-RIGHT-OPERAND> <N>) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> 0)) (<GLOBAL:QUOTE> <K:PW-RR>)))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-DOWN|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [5517] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-DOWN|> 76656767>}
  (FASL-OP-INDEX [5458] {<|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-DOWN|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-DOWN|> 0)
 38 PUSH ARG|0
 39 AR-1 (4) D-PDL
 40 CDR D-PDL PDL-POP
 41 MOVEM LOCAL|0
 42 (MISC) CADDR D-PDL
 43 CADR D-PDL LOCAL|0
 44 CAR D-PDL LOCAL|0
 45 POP LOCAL|3
 46 POP LOCAL|2
 47 POP LOCAL|1
 48 CALL D-PDL FEF|7  ;'NIL
 49 MOVE D-LAST LOCAL|3
 50 POP LOCAL|4
 51 PUSH LOCAL|1
 52 PUSH FEF|8  ;'<LEAF-NODE>
 53 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 54 BR-NIL 76
 55 PUSH LOCAL|1
 56 AR-1 (5) D-PDL
 57 EQ FEF|9  ;'<LITERAL>
 58 BR-NIL 76
 59 PUSH LOCAL|1
 60 AR-1 (4) D-PDL
 61 POP LOCAL|5
 62 CALL D-IGNORE FEF|10  ;'NIL
 63 PUSH FEF|11  ;'<K:NB-SHIFT-AR-R>
 64 PUSH LOCAL|4
 65 PUSH FEF|6  ;':IGNORED
 66 CALL D-PDL FEF|12  ;'NIL
 67 MOVE D-LAST LOCAL|2
 68 PUSH FEF|13  ;'<PRIMITIVES:BYTE>
 69 PUSH-NUMBER 0
 70 PUSH LOCAL|5
 71 (MISC) MINUS D-PDL
 72 PUSH-NUMBER 3
 73 (MISC) %INTERNAL-LIST D-PDL
 74 MOVE D-LAST FEF|14  ;'<K:PW-II>
 75 MOVE D-RETURN LOCAL|4
 76 CALL D-IGNORE FEF|15  ;'NIL
 77 MOVE D-LAST LOCAL|1
 78 CALL D-IGNORE FEF|10  ;'NIL
 79 PUSH FEF|11  ;'<K:NB-SHIFT-AR-R>
 80 PUSH LOCAL|4
 81 PUSH FEF|6  ;':IGNORED
 82 CALL D-PDL FEF|12  ;'NIL
 83 MOVE D-LAST LOCAL|2
 84 PUSH FEF|16  ;'(<GLOBAL:QUOTE> 0)
 85 MOVE D-LAST FEF|17  ;'<K:PW-RR>
 86 MOVE D-RETURN LOCAL|4
)

(FASL-OP-STOREIN-FUNCTION-CELL [5539] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-DOWN|> 0) 76660653>}
  (FASL-OP-INDEX [5503] {(<:INTERNAL> <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-DOWN|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [5458] {<|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-DOWN|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [5458] {<|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-DOWN|>})
     => (<|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-DOWN|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-DOWN|> (<|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-DOWN|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-DOWN|> (<|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-DOWN|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [5463] {<HARDWARE:32ARITHMETIC-SHIFT-DOWN>})
       => (<GLOBAL:QUOTE> <HARDWARE:32ARITHMETIC-SHIFT-DOWN>))
      (FASL-OP-INDEX [5458] {<|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-DOWN|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32ARITHMETIC-SHIFT-DOWN>) <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-DOWN|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32ARITHMETIC-SHIFT-DOWN>) <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-DOWN|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32ARITHMETIC-SHIFT-DOWN>) <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-DOWN|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5463] {<HARDWARE:32ARITHMETIC-SHIFT-DOWN>})
     => (<GLOBAL:QUOTE> <HARDWARE:32ARITHMETIC-SHIFT-DOWN>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5464] {(<N> <NBITS>)})
     => (<GLOBAL:QUOTE> (<N> <NBITS>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32ARITHMETIC-SHIFT-DOWN>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N> <NBITS>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32ARITHMETIC-SHIFT-DOWN>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N> <NBITS>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-UP|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32ARITHMETIC-SHIFT-UP>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N> <NBITS>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <N> <NBITS>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<IF> (<LITERAL-NODE?> <NBITS>) (<LET> ((<AMOUNT> (<LEAF-VALUE> <NBITS>))) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:NB-SHIFT-AR-R>) <DEST> <IGNORED> (<GET-RIGHT-OPERAND> <N>) (<SI:XR-BQ-LIST> (<GLOBAL:QUOTE> <PRIMITIVES:BYTE>) 0 <AMOUNT>) (<GLOBAL:QUOTE> <K:PW-II>))) (<PROGN> (<GENERATE-LOAD-SR-POSITION> <NBITS>) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:NB-SHIFT-AR-R>) <DEST> <IGNORED> (<GET-RIGHT-OPERAND> <N>) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> 0)) (<GLOBAL:QUOTE> <K:PW-RR>)))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-UP|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [5609] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-UP|> 76663044>}
  (FASL-OP-INDEX [5553] {<|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-UP|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-UP|> 0)
 38 PUSH ARG|0
 39 AR-1 (4) D-PDL
 40 CDR D-PDL PDL-POP
 41 MOVEM LOCAL|0
 42 (MISC) CADDR D-PDL
 43 CADR D-PDL LOCAL|0
 44 CAR D-PDL LOCAL|0
 45 POP LOCAL|3
 46 POP LOCAL|2
 47 POP LOCAL|1
 48 CALL D-PDL FEF|7  ;'NIL
 49 MOVE D-LAST LOCAL|3
 50 POP LOCAL|4
 51 PUSH LOCAL|1
 52 PUSH FEF|8  ;'<LEAF-NODE>
 53 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 54 BR-NIL 75
 55 PUSH LOCAL|1
 56 AR-1 (5) D-PDL
 57 EQ FEF|9  ;'<LITERAL>
 58 BR-NIL 75
 59 PUSH LOCAL|1
 60 AR-1 (4) D-PDL
 61 POP LOCAL|5
 62 CALL D-IGNORE FEF|10  ;'NIL
 63 PUSH FEF|11  ;'<K:NB-SHIFT-AR-R>
 64 PUSH LOCAL|4
 65 PUSH FEF|6  ;':IGNORED
 66 CALL D-PDL FEF|12  ;'NIL
 67 MOVE D-LAST LOCAL|2
 68 PUSH FEF|13  ;'<PRIMITIVES:BYTE>
 69 PUSH-NUMBER 0
 70 PUSH LOCAL|5
 71 PUSH-NUMBER 3
 72 (MISC) %INTERNAL-LIST D-PDL
 73 MOVE D-LAST FEF|14  ;'<K:PW-II>
 74 MOVE D-RETURN LOCAL|4
 75 CALL D-IGNORE FEF|15  ;'NIL
 76 MOVE D-LAST LOCAL|1
 77 CALL D-IGNORE FEF|10  ;'NIL
 78 PUSH FEF|11  ;'<K:NB-SHIFT-AR-R>
 79 PUSH LOCAL|4
 80 PUSH FEF|6  ;':IGNORED
 81 CALL D-PDL FEF|12  ;'NIL
 82 MOVE D-LAST LOCAL|2
 83 PUSH FEF|16  ;'(<GLOBAL:QUOTE> 0)
 84 MOVE D-LAST FEF|17  ;'<K:PW-RR>
 85 MOVE D-RETURN LOCAL|4
)

(FASL-OP-STOREIN-FUNCTION-CELL [5631] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-UP|> 0) 76664202>}
  (FASL-OP-INDEX [5595] {(<:INTERNAL> <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-UP|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [5553] {<|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-UP|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [5553] {<|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-UP|>})
     => (<|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-UP|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-UP|> (<|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-UP|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-UP|> (<|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-UP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [5558] {<HARDWARE:32ARITHMETIC-SHIFT-UP>})
       => (<GLOBAL:QUOTE> <HARDWARE:32ARITHMETIC-SHIFT-UP>))
      (FASL-OP-INDEX [5553] {<|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-UP|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32ARITHMETIC-SHIFT-UP>) <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-UP|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32ARITHMETIC-SHIFT-UP>) <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-UP|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32ARITHMETIC-SHIFT-UP>) <|PRIMOP//HARDWARE::32ARITHMETIC-SHIFT-UP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5558] {<HARDWARE:32ARITHMETIC-SHIFT-UP>})
     => (<GLOBAL:QUOTE> <HARDWARE:32ARITHMETIC-SHIFT-UP>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5559] {(<N> <NBITS>)})
     => (<GLOBAL:QUOTE> (<N> <NBITS>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32ARITHMETIC-SHIFT-UP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N> <NBITS>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32ARITHMETIC-SHIFT-UP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N> <NBITS>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32-ROTATE-UP|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32-ROTATE-UP>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<N> <NBITS>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <N> <NBITS>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<IF> (<LITERAL-NODE?> <NBITS>) (<LET> ((<AMOUNT> (<LEAF-VALUE> <NBITS>))) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:ROTATE-R>) <DEST> <IGNORED> (<GET-RIGHT-OPERAND> <N>) (<SI:XR-BQ-LIST> (<GLOBAL:QUOTE> <PRIMITIVES:BYTE>) 0 <AMOUNT>) (<GLOBAL:QUOTE> <K:PW-II>) (<GLOBAL:QUOTE> <K:UNBOXED>))) (<PROGN> (<GENERATE-LOAD-SR-POSITION> <NBITS>) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:ROTATE-R>) <DEST> <IGNORED> (<GET-RIGHT-OPERAND> <N>) (<GLOBAL:QUOTE> (<GLOBAL:QUOTE> 0)) (<GLOBAL:QUOTE> <K:PW-RR>) (<GLOBAL:QUOTE> <K:UNBOXED>)))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32-ROTATE-UP|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [5705] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32-ROTATE-UP|> 76665753>}
  (FASL-OP-INDEX [5645] {<|PRIMOP//HARDWARE::32-ROTATE-UP|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32-ROTATE-UP|> 0)
 40 PUSH ARG|0
 41 AR-1 (4) D-PDL
 42 CDR D-PDL PDL-POP
 43 MOVEM LOCAL|0
 44 (MISC) CADDR D-PDL
 45 CADR D-PDL LOCAL|0
 46 CAR D-PDL LOCAL|0
 47 POP LOCAL|3
 48 POP LOCAL|2
 49 POP LOCAL|1
 50 CALL D-PDL FEF|7  ;'NIL
 51 MOVE D-LAST LOCAL|3
 52 POP LOCAL|4
 53 PUSH LOCAL|1
 54 PUSH FEF|8  ;'<LEAF-NODE>
 55 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 56 BR-NIL 77
 57 PUSH LOCAL|1
 58 AR-1 (5) D-PDL
 59 EQ FEF|9  ;'<LITERAL>
 60 BR-NIL 77
 61 PUSH LOCAL|1
 62 AR-1 (4) D-PDL
 63 POP LOCAL|5
 64 CALL D-IGNORE FEF|10  ;'NIL
 65 PUSH FEF|11  ;'<K:ROTATE-R>
 66 PUSH LOCAL|4
 67 PUSH FEF|6  ;':IGNORED
 68 CALL D-PDL FEF|12  ;'NIL
 69 MOVE D-LAST LOCAL|2
 70 PUSH FEF|13  ;'<PRIMITIVES:BYTE>
 71 PUSH-NUMBER 0
 72 PUSH LOCAL|5
 73 PUSH-NUMBER 3
 74 (MISC) %INTERNAL-LIST D-PDL
 75 PUSH FEF|14  ;'<K:PW-II>
 76 BR 87
 77 CALL D-IGNORE FEF|15  ;'NIL
 78 MOVE D-LAST LOCAL|1
 79 CALL D-IGNORE FEF|10  ;'NIL
 80 PUSH FEF|11  ;'<K:ROTATE-R>
 81 PUSH LOCAL|4
 82 PUSH FEF|6  ;':IGNORED
 83 CALL D-PDL FEF|12  ;'NIL
 84 MOVE D-LAST LOCAL|2
 85 PUSH FEF|16  ;'(<GLOBAL:QUOTE> 0)
 86 PUSH FEF|17  ;'<K:PW-RR>
 87 MOVE D-LAST FEF|18  ;'<K:UNBOXED>
 88 MOVE D-RETURN LOCAL|4
)

(FASL-OP-STOREIN-FUNCTION-CELL [5727] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32-ROTATE-UP|> 0) 76666660>}
  (FASL-OP-INDEX [5691] {(<:INTERNAL> <|PRIMOP//HARDWARE::32-ROTATE-UP|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [5645] {<|PRIMOP//HARDWARE::32-ROTATE-UP|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [5645] {<|PRIMOP//HARDWARE::32-ROTATE-UP|>})
     => (<|PRIMOP//HARDWARE::32-ROTATE-UP|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-ROTATE-UP|> (<|PRIMOP//HARDWARE::32-ROTATE-UP|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-ROTATE-UP|> (<|PRIMOP//HARDWARE::32-ROTATE-UP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [5650] {<HARDWARE:32-ROTATE-UP>})
       => (<GLOBAL:QUOTE> <HARDWARE:32-ROTATE-UP>))
      (FASL-OP-INDEX [5645] {<|PRIMOP//HARDWARE::32-ROTATE-UP|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-ROTATE-UP>) <|PRIMOP//HARDWARE::32-ROTATE-UP|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-ROTATE-UP>) <|PRIMOP//HARDWARE::32-ROTATE-UP|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-ROTATE-UP>) <|PRIMOP//HARDWARE::32-ROTATE-UP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5650] {<HARDWARE:32-ROTATE-UP>})
     => (<GLOBAL:QUOTE> <HARDWARE:32-ROTATE-UP>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5651] {(<N> <NBITS>)})
     => (<GLOBAL:QUOTE> (<N> <NBITS>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-ROTATE-UP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N> <NBITS>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-ROTATE-UP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N> <NBITS>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::24=|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:24=>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH '2000
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<N1> <N2>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<COMPARATOR> <NODE> (<GLOBAL:QUOTE> <K:BR-NOT-EQUAL>) (<GLOBAL:QUOTE> <K:BW-24>))) (<:PRESIMPLIFY> (<NODE>) (<PRESIMPLIFY-TO-CONDITIONAL> <NODE>)) (<:CONDITIONAL?> <GLOBAL:T>))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:PRESIMPLIFY>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::24=|> 0)
 56 PUSH FEF|18  ;'<:GENERATE>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::24=|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [5777] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::24=|> 76673135>}
  (FASL-OP-INDEX [5741] {<|PRIMOP//HARDWARE::24=|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::24=|> 0)
 16 CALL D-RETURN FEF|6  ;'NIL
 17 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [5790] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::24=|> 0) 76673744>}
  (FASL-OP-INDEX [5759] {(<:INTERNAL> <|PRIMOP//HARDWARE::24=|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::24=|> 1)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH ARG|0
 22 PUSH FEF|7  ;'<K:BR-NOT-EQUAL>
 23 MOVE D-LAST FEF|8  ;'<K:BW-24>
)

(FASL-OP-STOREIN-FUNCTION-CELL [5803] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::24=|> 1) 76674133>}
  (FASL-OP-INDEX [5761] {(<:INTERNAL> <|PRIMOP//HARDWARE::24=|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [5741] {<|PRIMOP//HARDWARE::24=|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [5741] {<|PRIMOP//HARDWARE::24=|>})
     => (<|PRIMOP//HARDWARE::24=|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::24=|> (<|PRIMOP//HARDWARE::24=|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::24=|> (<|PRIMOP//HARDWARE::24=|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [5746] {<HARDWARE:24=>})
       => (<GLOBAL:QUOTE> <HARDWARE:24=>))
      (FASL-OP-INDEX [5741] {<|PRIMOP//HARDWARE::24=|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24=>) <|PRIMOP//HARDWARE::24=|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24=>) <|PRIMOP//HARDWARE::24=|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24=>) <|PRIMOP//HARDWARE::24=|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5746] {<HARDWARE:24=>})
     => (<GLOBAL:QUOTE> <HARDWARE:24=>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5747] {(<N1> <N2>)})
     => (<GLOBAL:QUOTE> (<N1> <N2>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:24=>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:24=>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::24>|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:24>>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH '2000
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<N1> <N2>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<COMPARATOR> <NODE> (<GLOBAL:QUOTE> <K:BR-NOT-GREATER-THAN>) (<GLOBAL:QUOTE> <K:BW-24>))) (<:PRESIMPLIFY> (<NODE>) (<PRESIMPLIFY-TO-CONDITIONAL> <NODE>)) (<:CONDITIONAL?> <GLOBAL:T>))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:PRESIMPLIFY>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::24>|> 0)
 56 PUSH FEF|18  ;'<:GENERATE>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::24>|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [5853] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::24>|> 76677141>}
  (FASL-OP-INDEX [5817] {<|PRIMOP//HARDWARE::24>|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::24>|> 0)
 16 CALL D-RETURN FEF|6  ;'NIL
 17 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [5866] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::24>|> 0) 76700261>}
  (FASL-OP-INDEX [5835] {(<:INTERNAL> <|PRIMOP//HARDWARE::24>|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::24>|> 1)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH ARG|0
 22 PUSH FEF|7  ;'<K:BR-NOT-GREATER-THAN>
 23 MOVE D-LAST FEF|8  ;'<K:BW-24>
)

(FASL-OP-STOREIN-FUNCTION-CELL [5879] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::24>|> 1) 76701514>}
  (FASL-OP-INDEX [5837] {(<:INTERNAL> <|PRIMOP//HARDWARE::24>|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [5817] {<|PRIMOP//HARDWARE::24>|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [5817] {<|PRIMOP//HARDWARE::24>|>})
     => (<|PRIMOP//HARDWARE::24>|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::24>|> (<|PRIMOP//HARDWARE::24>|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::24>|> (<|PRIMOP//HARDWARE::24>|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [5822] {<HARDWARE:24>>})
       => (<GLOBAL:QUOTE> <HARDWARE:24>>))
      (FASL-OP-INDEX [5817] {<|PRIMOP//HARDWARE::24>|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24>>) <|PRIMOP//HARDWARE::24>|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24>>) <|PRIMOP//HARDWARE::24>|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24>>) <|PRIMOP//HARDWARE::24>|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5822] {<HARDWARE:24>>})
     => (<GLOBAL:QUOTE> <HARDWARE:24>>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5823] {(<N1> <N2>)})
     => (<GLOBAL:QUOTE> (<N1> <N2>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:24>>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:24>>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<N1> <N2>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::24+|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:24+>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<LEFT> <RIGHT>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-BINOP> <NODE> (<GLOBAL:QUOTE> <K:L+R>) (<GLOBAL:QUOTE> <K:L+R>) (<GLOBAL:QUOTE> <K:BW-24>) (<GLOBAL:QUOTE> <K:BOXED-RIGHT>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::24+|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [5924] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::24+|> 76703370>}
  (FASL-OP-INDEX [5893] {<|PRIMOP//HARDWARE::24+|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::24+|> 0)
 22 CALL D-RETURN FEF|6  ;'NIL
 23 PUSH ARG|0
 24 PUSH FEF|7  ;'<K:L+R>
 25 PUSH FEF|7  ;'<K:L+R>
 26 PUSH FEF|8  ;'<K:BW-24>
 27 MOVE D-LAST FEF|9  ;'<K:BOXED-RIGHT>
)

(FASL-OP-STOREIN-FUNCTION-CELL [5937] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::24+|> 0) 76705271>}
  (FASL-OP-INDEX [5910] {(<:INTERNAL> <|PRIMOP//HARDWARE::24+|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [5893] {<|PRIMOP//HARDWARE::24+|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [5893] {<|PRIMOP//HARDWARE::24+|>})
     => (<|PRIMOP//HARDWARE::24+|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::24+|> (<|PRIMOP//HARDWARE::24+|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::24+|> (<|PRIMOP//HARDWARE::24+|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [5898] {<HARDWARE:24+>})
       => (<GLOBAL:QUOTE> <HARDWARE:24+>))
      (FASL-OP-INDEX [5893] {<|PRIMOP//HARDWARE::24+|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24+>) <|PRIMOP//HARDWARE::24+|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24+>) <|PRIMOP//HARDWARE::24+|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24+>) <|PRIMOP//HARDWARE::24+|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5898] {<HARDWARE:24+>})
     => (<GLOBAL:QUOTE> <HARDWARE:24+>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5900] {(<LEFT> <RIGHT>)})
     => (<GLOBAL:QUOTE> (<LEFT> <RIGHT>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:24+>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<LEFT> <RIGHT>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:24+>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<LEFT> <RIGHT>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::24-|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:24->
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<LEFT> <RIGHT>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-BINOP> <NODE> (<GLOBAL:QUOTE> <K:L-R>) (<GLOBAL:QUOTE> <K:L-R>) (<GLOBAL:QUOTE> <K:BW-24>) (<GLOBAL:QUOTE> <K:BOXED-RIGHT>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::24-|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [5981] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::24-|> 76707411>}
  (FASL-OP-INDEX [5951] {<|PRIMOP//HARDWARE::24-|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::24-|> 0)
 22 CALL D-RETURN FEF|6  ;'NIL
 23 PUSH ARG|0
 24 PUSH FEF|7  ;'<K:L-R>
 25 PUSH FEF|7  ;'<K:L-R>
 26 PUSH FEF|8  ;'<K:BW-24>
 27 MOVE D-LAST FEF|9  ;'<K:BOXED-RIGHT>
)

(FASL-OP-STOREIN-FUNCTION-CELL [5994] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::24-|> 0) 76710022>}
  (FASL-OP-INDEX [5967] {(<:INTERNAL> <|PRIMOP//HARDWARE::24-|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [5951] {<|PRIMOP//HARDWARE::24-|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [5951] {<|PRIMOP//HARDWARE::24-|>})
     => (<|PRIMOP//HARDWARE::24-|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::24-|> (<|PRIMOP//HARDWARE::24-|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::24-|> (<|PRIMOP//HARDWARE::24-|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [5956] {<HARDWARE:24->})
       => (<GLOBAL:QUOTE> <HARDWARE:24->))
      (FASL-OP-INDEX [5951] {<|PRIMOP//HARDWARE::24-|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24->) <|PRIMOP//HARDWARE::24-|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24->) <|PRIMOP//HARDWARE::24-|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24->) <|PRIMOP//HARDWARE::24-|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5956] {<HARDWARE:24->})
     => (<GLOBAL:QUOTE> <HARDWARE:24->))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [5957] {(<LEFT> <RIGHT>)})
     => (<GLOBAL:QUOTE> (<LEFT> <RIGHT>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:24->) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<LEFT> <RIGHT>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:24->) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<LEFT> <RIGHT>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::FIELD=|>
 42 CALL D-RETURN FEF|6  ;'NIL
 43 PUSH FEF|7  ;'<:NAME>
 44 PUSH FEF|8  ;'<HARDWARE:FIELD=>
 45 PUSH FEF|9  ;'<:BITV>
 46 PUSH '2000
 47 PUSH FEF|10  ;'<:ARGLIST>
 48 PUSH FEF|11  ;'(<X> <Y> <BYTE-SPEC>)
 49 PUSH FEF|12  ;'<:SOURCE>
 50 PUSH FEF|13  ;'((<:CONDITIONAL?> <GLOBAL:T>) (<:PRESIMPLIFY> (<NODE>) (<PRESIMPLIFY-TO-CONDITIONAL> <NODE>)) (<:GENERATE> (<NODE>) (<LET> ((<BYTE-SPEC> (<CALL-ARG-N> 6 <NODE>))) (<MULTIPLE-VALUE-BIND> (<L> <R>) (<GET-OPERANDS> (<CALL-ARG-N> 4 <NODE>) (<CALL-ARG-N> 5 <NODE>)) (<IF> (<LITERAL-NODE?> <BYTE-SPEC>) (<EMIT-ALU-FIELD> (<GLOBAL:QUOTE> <K:ALIGNED-FIELD-XOR>) (<GLOBAL:QUOTE> <K:NOP>) <L> <R> (<SI:XR-BQ-LIST> (<GLOBAL:QUOTE> <GLOBAL:QUOTE>) (<LEAF-VALUE> <BYTE-SPEC>)) (<GLOBAL:QUOTE> <K:PW-II>)) (<ERROR> "not yet implemented")) (<GENERATE-CONDITIONAL> <NODE> (<GLOBAL:QUOTE> <K:BR-NOT-EQUAL>))))))
 51 PUSH FEF|14  ;'<:HANDLER>
 52 CALL0 D-PDL FEF|15  ;'NIL
 53 MOVEM LOCAL|0
 54 PUSH FEF|16  ;'<:GENERATE>
 55 PUSH FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::FIELD=|> 0)
 56 PUSH FEF|18  ;'<:PRESIMPLIFY>
 57 MOVE D-LAST FEF|19  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::FIELD=|> 1)
)

(FASL-OP-STOREIN-FUNCTION-CELL [6070] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::FIELD=|> 76712123>}
  (FASL-OP-INDEX [6008] {<|PRIMOP//HARDWARE::FIELD=|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::FIELD=|> 0)
 38 PUSH-NUMBER 6
 39 PUSH ARG|0
 40 AR-1 (4) D-PDL
 41 (MISC) NTH D-PDL
 42 POP LOCAL|0
 43 PUSH FEF|6  ;'NIL
 44 PUSH-NUMBER 2
 45 (MISC) %CALL-MULT-VALUE D-IGNORE
 46 PUSH-NUMBER 4
 47 PUSH ARG|0
 48 AR-1 (4) D-PDL
 49 (MISC) NTH D-PDL
 50 PUSH-NUMBER 5
 51 PUSH ARG|0
 52 AR-1 (4) D-PDL
 53 (MISC) NTH D-LAST
 54 POP LOCAL|2
 55 POP LOCAL|1
 56 PUSH LOCAL|0
 57 PUSH FEF|7  ;'<LEAF-NODE>
 58 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
 59 BR-NIL 76
 60 PUSH LOCAL|0
 61 AR-1 (5) D-PDL
 62 EQ FEF|8  ;'<LITERAL>
 63 BR-NIL 76
 64 CALL D-IGNORE FEF|9  ;'NIL
 65 PUSH FEF|10  ;'<K:ALIGNED-FIELD-XOR>
 66 PUSH FEF|11  ;'<K:NOP>
 67 PUSH LOCAL|1
 68 PUSH LOCAL|2
 69 PUSH FEF|12  ;'<GLOBAL:QUOTE>
 70 PUSH LOCAL|0
 71 AR-1 (4) D-PDL
 72 PUSH-NUMBER 2
 73 (MISC) %INTERNAL-LIST D-PDL
 74 MOVE D-LAST FEF|13  ;'<K:PW-II>
 75 BR 78
 76 CALL D-IGNORE FEF|14  ;'NIL
 77 MOVE D-LAST FEF|15  ;'"not yet implemented"
 78 CALL D-RETURN FEF|16  ;'NIL
 79 PUSH ARG|0
 80 MOVE D-LAST FEF|17  ;'<K:BR-NOT-EQUAL>
)

(FASL-OP-STOREIN-FUNCTION-CELL [6090] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::FIELD=|> 0) 76713067>}
  (FASL-OP-INDEX [6052] {(<:INTERNAL> <|PRIMOP//HARDWARE::FIELD=|> 0)}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::FIELD=|> 1)
 16 CALL D-RETURN FEF|6  ;'NIL
 17 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [6103] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::FIELD=|> 1) 76714462>}
  (FASL-OP-INDEX [6054] {(<:INTERNAL> <|PRIMOP//HARDWARE::FIELD=|> 1)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [6008] {<|PRIMOP//HARDWARE::FIELD=|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [6008] {<|PRIMOP//HARDWARE::FIELD=|>})
     => (<|PRIMOP//HARDWARE::FIELD=|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FIELD=|> (<|PRIMOP//HARDWARE::FIELD=|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FIELD=|> (<|PRIMOP//HARDWARE::FIELD=|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [6013] {<HARDWARE:FIELD=>})
       => (<GLOBAL:QUOTE> <HARDWARE:FIELD=>))
      (FASL-OP-INDEX [6008] {<|PRIMOP//HARDWARE::FIELD=|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FIELD=>) <|PRIMOP//HARDWARE::FIELD=|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FIELD=>) <|PRIMOP//HARDWARE::FIELD=|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FIELD=>) <|PRIMOP//HARDWARE::FIELD=|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6013] {<HARDWARE:FIELD=>})
     => (<GLOBAL:QUOTE> <HARDWARE:FIELD=>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6016] {(<X> <Y> <BYTE-SPEC>)})
     => (<GLOBAL:QUOTE> (<X> <Y> <BYTE-SPEC>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FIELD=>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y> <BYTE-SPEC>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FIELD=>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y> <BYTE-SPEC>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::LOAD-Q-REGISTER|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:LOAD-Q-REGISTER>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<VALUE>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <VALUE>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:LOAD-Q-R>) <DEST> (<GET-LEFT-OPERAND> <VALUE>) (<GET-RIGHT-OPERAND> <VALUE>) (<GLOBAL:QUOTE> (<K:BW-32> <K:BOXED-RIGHT>))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::LOAD-Q-REGISTER|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [6160] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::LOAD-Q-REGISTER|> 76717212>}
  (FASL-OP-INDEX [6117] {<|PRIMOP//HARDWARE::LOAD-Q-REGISTER|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::LOAD-Q-REGISTER|> 0)
 26 PUSH ARG|0
 27 AR-1 (4) D-PDL
 28 CDR D-PDL PDL-POP
 29 POP LOCAL|0
 30 CADR D-PDL LOCAL|0
 31 CAR D-PDL LOCAL|0
 32 POP LOCAL|2
 33 POP LOCAL|1
 34 CALL D-PDL FEF|6  ;'NIL
 35 MOVE D-LAST LOCAL|2
 36 POP LOCAL|3
 37 CALL D-IGNORE FEF|7  ;'NIL
 38 PUSH FEF|8  ;'<K:LOAD-Q-R>
 39 PUSH LOCAL|3
 40 CALL D-PDL FEF|9  ;'NIL
 41 MOVE D-LAST LOCAL|1
 42 CALL D-PDL FEF|10  ;'NIL
 43 MOVE D-LAST LOCAL|1
 44 MOVE D-LAST FEF|11  ;'(<K:BW-32> <K:BOXED-RIGHT>)
 45 MOVE D-RETURN LOCAL|3
)

(FASL-OP-STOREIN-FUNCTION-CELL [6180] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::LOAD-Q-REGISTER|> 0) 76720253>}
  (FASL-OP-INDEX [6146] {(<:INTERNAL> <|PRIMOP//HARDWARE::LOAD-Q-REGISTER|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [6117] {<|PRIMOP//HARDWARE::LOAD-Q-REGISTER|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [6117] {<|PRIMOP//HARDWARE::LOAD-Q-REGISTER|>})
     => (<|PRIMOP//HARDWARE::LOAD-Q-REGISTER|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::LOAD-Q-REGISTER|> (<|PRIMOP//HARDWARE::LOAD-Q-REGISTER|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::LOAD-Q-REGISTER|> (<|PRIMOP//HARDWARE::LOAD-Q-REGISTER|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [6122] {<HARDWARE:LOAD-Q-REGISTER>})
       => (<GLOBAL:QUOTE> <HARDWARE:LOAD-Q-REGISTER>))
      (FASL-OP-INDEX [6117] {<|PRIMOP//HARDWARE::LOAD-Q-REGISTER|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:LOAD-Q-REGISTER>) <|PRIMOP//HARDWARE::LOAD-Q-REGISTER|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:LOAD-Q-REGISTER>) <|PRIMOP//HARDWARE::LOAD-Q-REGISTER|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:LOAD-Q-REGISTER>) <|PRIMOP//HARDWARE::LOAD-Q-REGISTER|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6122] {<HARDWARE:LOAD-Q-REGISTER>})
     => (<GLOBAL:QUOTE> <HARDWARE:LOAD-Q-REGISTER>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6123] {(<VALUE>)})
     => (<GLOBAL:QUOTE> (<VALUE>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:LOAD-Q-REGISTER>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:LOAD-Q-REGISTER>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<VALUE>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::READ-Q-REGISTER|>
 36 CALL D-RETURN FEF|6  ;'NIL
 37 PUSH FEF|7  ;'<:NAME>
 38 PUSH FEF|8  ;'<HARDWARE:READ-Q-REGISTER>
 39 PUSH FEF|9  ;'<:BITV>
 40 PUSH-NUMBER 0
 41 PUSH FEF|10  ;'<:ARGLIST>
 42 PUSH 'NIL
 43 PUSH FEF|11  ;'<:SOURCE>
 44 PUSH FEF|12  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:PASS-Q>) <DEST> (<GLOBAL:QUOTE> <IGNORE>) (<GLOBAL:QUOTE> <IGNORE>) (<GLOBAL:QUOTE> (<K:BW-32> <K:UNBOXED>))) <DEST>))))
 45 PUSH FEF|13  ;'<:HANDLER>
 46 CALL0 D-PDL FEF|14  ;'NIL
 47 MOVEM LOCAL|0
 48 PUSH FEF|15  ;'<:GENERATE>
 49 MOVE D-LAST FEF|16  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::READ-Q-REGISTER|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [6235] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::READ-Q-REGISTER|> 76722531>}
  (FASL-OP-INDEX [6194] {<|PRIMOP//HARDWARE::READ-Q-REGISTER|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::READ-Q-REGISTER|> 0)
 24 PUSH ARG|0
 25 AR-1 (4) D-PDL
 26 CDR D-PDL PDL-POP
 27 POP LOCAL|0
 28 CAR D-PDL LOCAL|0
 29 POP LOCAL|1
 30 CALL D-PDL FEF|6  ;'NIL
 31 MOVE D-LAST LOCAL|1
 32 POP LOCAL|2
 33 CALL D-IGNORE FEF|7  ;'NIL
 34 PUSH FEF|8  ;'<K:PASS-Q>
 35 PUSH LOCAL|2
 36 PUSH FEF|9  ;'<IGNORE>
 37 PUSH FEF|9  ;'<IGNORE>
 38 MOVE D-LAST FEF|10  ;'(<K:BW-32> <K:UNBOXED>)
 39 MOVE D-RETURN LOCAL|2
)

(FASL-OP-STOREIN-FUNCTION-CELL [6254] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::READ-Q-REGISTER|> 0) 76723276>}
  (FASL-OP-INDEX [6221] {(<:INTERNAL> <|PRIMOP//HARDWARE::READ-Q-REGISTER|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [6194] {<|PRIMOP//HARDWARE::READ-Q-REGISTER|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [6194] {<|PRIMOP//HARDWARE::READ-Q-REGISTER|>})
     => (<|PRIMOP//HARDWARE::READ-Q-REGISTER|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::READ-Q-REGISTER|> (<|PRIMOP//HARDWARE::READ-Q-REGISTER|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::READ-Q-REGISTER|> (<|PRIMOP//HARDWARE::READ-Q-REGISTER|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [6199] {<HARDWARE:READ-Q-REGISTER>})
       => (<GLOBAL:QUOTE> <HARDWARE:READ-Q-REGISTER>))
      (FASL-OP-INDEX [6194] {<|PRIMOP//HARDWARE::READ-Q-REGISTER|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:READ-Q-REGISTER>) <|PRIMOP//HARDWARE::READ-Q-REGISTER|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:READ-Q-REGISTER>) <|PRIMOP//HARDWARE::READ-Q-REGISTER|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:READ-Q-REGISTER>) <|PRIMOP//HARDWARE::READ-Q-REGISTER|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6199] {<HARDWARE:READ-Q-REGISTER>})
     => (<GLOBAL:QUOTE> <HARDWARE:READ-Q-REGISTER>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [125] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:READ-Q-REGISTER>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:READ-Q-REGISTER>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::READ-Q-REGISTER-BOXED|>
 36 CALL D-RETURN FEF|6  ;'NIL
 37 PUSH FEF|7  ;'<:NAME>
 38 PUSH FEF|8  ;'<HARDWARE:READ-Q-REGISTER-BOXED>
 39 PUSH FEF|9  ;'<:BITV>
 40 PUSH-NUMBER 0
 41 PUSH FEF|10  ;'<:ARGLIST>
 42 PUSH 'NIL
 43 PUSH FEF|11  ;'<:SOURCE>
 44 PUSH FEF|12  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:PASS-Q>) <DEST> (<GLOBAL:QUOTE> <IGNORE>) (<GLOBAL:QUOTE> <IGNORE>) (<GLOBAL:QUOTE> (<K:BW-32> <K:BOXED>))) <DEST>))))
 45 PUSH FEF|13  ;'<:HANDLER>
 46 CALL0 D-PDL FEF|14  ;'NIL
 47 MOVEM LOCAL|0
 48 PUSH FEF|15  ;'<:GENERATE>
 49 MOVE D-LAST FEF|16  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::READ-Q-REGISTER-BOXED|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [6307] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::READ-Q-REGISTER-BOXED|> 76724540>}
  (FASL-OP-INDEX [6268] {<|PRIMOP//HARDWARE::READ-Q-REGISTER-BOXED|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::READ-Q-REGISTER-BOXED|> 0)
 24 PUSH ARG|0
 25 AR-1 (4) D-PDL
 26 CDR D-PDL PDL-POP
 27 POP LOCAL|0
 28 CAR D-PDL LOCAL|0
 29 POP LOCAL|1
 30 CALL D-PDL FEF|6  ;'NIL
 31 MOVE D-LAST LOCAL|1
 32 POP LOCAL|2
 33 CALL D-IGNORE FEF|7  ;'NIL
 34 PUSH FEF|8  ;'<K:PASS-Q>
 35 PUSH LOCAL|2
 36 PUSH FEF|9  ;'<IGNORE>
 37 PUSH FEF|9  ;'<IGNORE>
 38 MOVE D-LAST FEF|10  ;'(<K:BW-32> <K:BOXED>)
 39 MOVE D-RETURN LOCAL|2
)

(FASL-OP-STOREIN-FUNCTION-CELL [6326] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::READ-Q-REGISTER-BOXED|> 0) 76726217>}
  (FASL-OP-INDEX [6293] {(<:INTERNAL> <|PRIMOP//HARDWARE::READ-Q-REGISTER-BOXED|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [6268] {<|PRIMOP//HARDWARE::READ-Q-REGISTER-BOXED|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [6268] {<|PRIMOP//HARDWARE::READ-Q-REGISTER-BOXED|>})
     => (<|PRIMOP//HARDWARE::READ-Q-REGISTER-BOXED|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::READ-Q-REGISTER-BOXED|> (<|PRIMOP//HARDWARE::READ-Q-REGISTER-BOXED|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::READ-Q-REGISTER-BOXED|> (<|PRIMOP//HARDWARE::READ-Q-REGISTER-BOXED|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [6273] {<HARDWARE:READ-Q-REGISTER-BOXED>})
       => (<GLOBAL:QUOTE> <HARDWARE:READ-Q-REGISTER-BOXED>))
      (FASL-OP-INDEX [6268] {<|PRIMOP//HARDWARE::READ-Q-REGISTER-BOXED|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:READ-Q-REGISTER-BOXED>) <|PRIMOP//HARDWARE::READ-Q-REGISTER-BOXED|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:READ-Q-REGISTER-BOXED>) <|PRIMOP//HARDWARE::READ-Q-REGISTER-BOXED|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:READ-Q-REGISTER-BOXED>) <|PRIMOP//HARDWARE::READ-Q-REGISTER-BOXED|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6273] {<HARDWARE:READ-Q-REGISTER-BOXED>})
     => (<GLOBAL:QUOTE> <HARDWARE:READ-Q-REGISTER-BOXED>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [125] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:READ-Q-REGISTER-BOXED>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:READ-Q-REGISTER-BOXED>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::READ-ALU-STATUS|>
 36 CALL D-RETURN FEF|6  ;'NIL
 37 PUSH FEF|7  ;'<:NAME>
 38 PUSH FEF|8  ;'<HARDWARE:READ-ALU-STATUS>
 39 PUSH FEF|9  ;'<:BITV>
 40 PUSH-NUMBER 10
 41 PUSH FEF|10  ;'<:ARGLIST>
 42 PUSH 'NIL
 43 PUSH FEF|11  ;'<:SOURCE>
 44 PUSH FEF|12  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:PASS-STATUS>) <DEST> (<GLOBAL:QUOTE> <GLOBAL-REGISTERS:*ZERO*>) (<GLOBAL:QUOTE> <GLOBAL-REGISTERS:*ZERO*>) (<GLOBAL:QUOTE> (<K:BW-24> <K:BOXED>))) <DEST>))))
 45 PUSH FEF|13  ;'<:HANDLER>
 46 CALL0 D-PDL FEF|14  ;'NIL
 47 MOVEM LOCAL|0
 48 PUSH FEF|15  ;'<:GENERATE>
 49 MOVE D-LAST FEF|16  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::READ-ALU-STATUS|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [6382] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::READ-ALU-STATUS|> 76727534>}
  (FASL-OP-INDEX [6340] {<|PRIMOP//HARDWARE::READ-ALU-STATUS|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::READ-ALU-STATUS|> 0)
 24 PUSH ARG|0
 25 AR-1 (4) D-PDL
 26 CDR D-PDL PDL-POP
 27 POP LOCAL|0
 28 CAR D-PDL LOCAL|0
 29 POP LOCAL|1
 30 CALL D-PDL FEF|6  ;'NIL
 31 MOVE D-LAST LOCAL|1
 32 POP LOCAL|2
 33 CALL D-IGNORE FEF|7  ;'NIL
 34 PUSH FEF|8  ;'<K:PASS-STATUS>
 35 PUSH LOCAL|2
 36 PUSH FEF|9  ;'<GLOBAL-REGISTERS:*ZERO*>
 37 PUSH FEF|9  ;'<GLOBAL-REGISTERS:*ZERO*>
 38 MOVE D-LAST FEF|10  ;'(<K:BW-24> <K:BOXED>)
 39 MOVE D-RETURN LOCAL|2
)

(FASL-OP-STOREIN-FUNCTION-CELL [6401] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::READ-ALU-STATUS|> 0) 76730264>}
  (FASL-OP-INDEX [6368] {(<:INTERNAL> <|PRIMOP//HARDWARE::READ-ALU-STATUS|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [6340] {<|PRIMOP//HARDWARE::READ-ALU-STATUS|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [6340] {<|PRIMOP//HARDWARE::READ-ALU-STATUS|>})
     => (<|PRIMOP//HARDWARE::READ-ALU-STATUS|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::READ-ALU-STATUS|> (<|PRIMOP//HARDWARE::READ-ALU-STATUS|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::READ-ALU-STATUS|> (<|PRIMOP//HARDWARE::READ-ALU-STATUS|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [6345] {<HARDWARE:READ-ALU-STATUS>})
       => (<GLOBAL:QUOTE> <HARDWARE:READ-ALU-STATUS>))
      (FASL-OP-INDEX [6340] {<|PRIMOP//HARDWARE::READ-ALU-STATUS|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:READ-ALU-STATUS>) <|PRIMOP//HARDWARE::READ-ALU-STATUS|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:READ-ALU-STATUS>) <|PRIMOP//HARDWARE::READ-ALU-STATUS|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:READ-ALU-STATUS>) <|PRIMOP//HARDWARE::READ-ALU-STATUS|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6345] {<HARDWARE:READ-ALU-STATUS>})
     => (<GLOBAL:QUOTE> <HARDWARE:READ-ALU-STATUS>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [125] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:READ-ALU-STATUS>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:READ-ALU-STATUS>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> <NIL>))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::SIGNED-MULTIPLY-FIRST-STEP|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:SIGNED-MULTIPLY-FIRST-STEP>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<A> <B>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <A> <B>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:SMUL-FIRST>) <DEST> (<GET-LEFT-OPERAND> <A>) (<GET-RIGHT-OPERAND> <B>) (<GLOBAL:QUOTE> (<K:BW-24> <K:BOXED-RIGHT>))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-FIRST-STEP|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [6460] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-FIRST-STEP|> 76731545>}
  (FASL-OP-INDEX [6415] {<|PRIMOP//HARDWARE::SIGNED-MULTIPLY-FIRST-STEP|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-FIRST-STEP|> 0)
 26 PUSH ARG|0
 27 AR-1 (4) D-PDL
 28 CDR D-PDL PDL-POP
 29 MOVEM LOCAL|0
 30 (MISC) CADDR D-PDL
 31 CADR D-PDL LOCAL|0
 32 CAR D-PDL LOCAL|0
 33 POP LOCAL|3
 34 POP LOCAL|2
 35 POP LOCAL|1
 36 CALL D-PDL FEF|6  ;'NIL
 37 MOVE D-LAST LOCAL|3
 38 POP LOCAL|4
 39 CALL D-IGNORE FEF|7  ;'NIL
 40 PUSH FEF|8  ;'<K:SMUL-FIRST>
 41 PUSH LOCAL|4
 42 CALL D-PDL FEF|9  ;'NIL
 43 MOVE D-LAST LOCAL|2
 44 CALL D-PDL FEF|10  ;'NIL
 45 MOVE D-LAST LOCAL|1
 46 MOVE D-LAST FEF|11  ;'(<K:BW-24> <K:BOXED-RIGHT>)
 47 MOVE D-RETURN LOCAL|4
)

(FASL-OP-STOREIN-FUNCTION-CELL [6481] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-FIRST-STEP|> 0) 76733313>}
  (FASL-OP-INDEX [6446] {(<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-FIRST-STEP|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [6415] {<|PRIMOP//HARDWARE::SIGNED-MULTIPLY-FIRST-STEP|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [6415] {<|PRIMOP//HARDWARE::SIGNED-MULTIPLY-FIRST-STEP|>})
     => (<|PRIMOP//HARDWARE::SIGNED-MULTIPLY-FIRST-STEP|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-FIRST-STEP|> (<|PRIMOP//HARDWARE::SIGNED-MULTIPLY-FIRST-STEP|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-FIRST-STEP|> (<|PRIMOP//HARDWARE::SIGNED-MULTIPLY-FIRST-STEP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [6420] {<HARDWARE:SIGNED-MULTIPLY-FIRST-STEP>})
       => (<GLOBAL:QUOTE> <HARDWARE:SIGNED-MULTIPLY-FIRST-STEP>))
      (FASL-OP-INDEX [6415] {<|PRIMOP//HARDWARE::SIGNED-MULTIPLY-FIRST-STEP|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-MULTIPLY-FIRST-STEP>) <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-FIRST-STEP|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-MULTIPLY-FIRST-STEP>) <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-FIRST-STEP|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-MULTIPLY-FIRST-STEP>) <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-FIRST-STEP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6420] {<HARDWARE:SIGNED-MULTIPLY-FIRST-STEP>})
     => (<GLOBAL:QUOTE> <HARDWARE:SIGNED-MULTIPLY-FIRST-STEP>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6423] {(<A> <B>)})
     => (<GLOBAL:QUOTE> (<A> <B>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-MULTIPLY-FIRST-STEP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<A> <B>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-MULTIPLY-FIRST-STEP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<A> <B>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::SIGNED-MULTIPLY-STEP|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:SIGNED-MULTIPLY-STEP>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<A> <B>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <A> <B>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:SMUL-STEP>) <DEST> (<GET-LEFT-OPERAND> <A>) (<GET-RIGHT-OPERAND> <B>) (<GLOBAL:QUOTE> (<K:BW-24> <K:BOXED-RIGHT>))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-STEP|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [6538] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-STEP|> 76734647>}
  (FASL-OP-INDEX [6495] {<|PRIMOP//HARDWARE::SIGNED-MULTIPLY-STEP|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-STEP|> 0)
 26 PUSH ARG|0
 27 AR-1 (4) D-PDL
 28 CDR D-PDL PDL-POP
 29 MOVEM LOCAL|0
 30 (MISC) CADDR D-PDL
 31 CADR D-PDL LOCAL|0
 32 CAR D-PDL LOCAL|0
 33 POP LOCAL|3
 34 POP LOCAL|2
 35 POP LOCAL|1
 36 CALL D-PDL FEF|6  ;'NIL
 37 MOVE D-LAST LOCAL|3
 38 POP LOCAL|4
 39 CALL D-IGNORE FEF|7  ;'NIL
 40 PUSH FEF|8  ;'<K:SMUL-STEP>
 41 PUSH LOCAL|4
 42 CALL D-PDL FEF|9  ;'NIL
 43 MOVE D-LAST LOCAL|2
 44 CALL D-PDL FEF|10  ;'NIL
 45 MOVE D-LAST LOCAL|1
 46 MOVE D-LAST FEF|11  ;'(<K:BW-24> <K:BOXED-RIGHT>)
 47 MOVE D-RETURN LOCAL|4
)

(FASL-OP-STOREIN-FUNCTION-CELL [6559] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-STEP|> 0) 76736333>}
  (FASL-OP-INDEX [6524] {(<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-STEP|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [6495] {<|PRIMOP//HARDWARE::SIGNED-MULTIPLY-STEP|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [6495] {<|PRIMOP//HARDWARE::SIGNED-MULTIPLY-STEP|>})
     => (<|PRIMOP//HARDWARE::SIGNED-MULTIPLY-STEP|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-STEP|> (<|PRIMOP//HARDWARE::SIGNED-MULTIPLY-STEP|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-STEP|> (<|PRIMOP//HARDWARE::SIGNED-MULTIPLY-STEP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [6500] {<HARDWARE:SIGNED-MULTIPLY-STEP>})
       => (<GLOBAL:QUOTE> <HARDWARE:SIGNED-MULTIPLY-STEP>))
      (FASL-OP-INDEX [6495] {<|PRIMOP//HARDWARE::SIGNED-MULTIPLY-STEP|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-MULTIPLY-STEP>) <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-STEP|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-MULTIPLY-STEP>) <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-STEP|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-MULTIPLY-STEP>) <|PRIMOP//HARDWARE::SIGNED-MULTIPLY-STEP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6500] {<HARDWARE:SIGNED-MULTIPLY-STEP>})
     => (<GLOBAL:QUOTE> <HARDWARE:SIGNED-MULTIPLY-STEP>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6501] {(<A> <B>)})
     => (<GLOBAL:QUOTE> (<A> <B>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-MULTIPLY-STEP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<A> <B>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-MULTIPLY-STEP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<A> <B>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32-SIGN-FILL|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32-SIGN-FILL>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<A>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <A>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:SIGN>) <DEST> (<GET-LEFT-OPERAND> <A>) (<GET-RIGHT-OPERAND> <A>) (<GLOBAL:QUOTE> (<K:BW-32> <K:UNBOXED>))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32-SIGN-FILL|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [6615] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32-SIGN-FILL|> 76737647>}
  (FASL-OP-INDEX [6573] {<|PRIMOP//HARDWARE::32-SIGN-FILL|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32-SIGN-FILL|> 0)
 26 PUSH ARG|0
 27 AR-1 (4) D-PDL
 28 CDR D-PDL PDL-POP
 29 POP LOCAL|0
 30 CADR D-PDL LOCAL|0
 31 CAR D-PDL LOCAL|0
 32 POP LOCAL|2
 33 POP LOCAL|1
 34 CALL D-PDL FEF|6  ;'NIL
 35 MOVE D-LAST LOCAL|2
 36 POP LOCAL|3
 37 CALL D-IGNORE FEF|7  ;'NIL
 38 PUSH FEF|8  ;'<K:SIGN>
 39 PUSH LOCAL|3
 40 CALL D-PDL FEF|9  ;'NIL
 41 MOVE D-LAST LOCAL|1
 42 CALL D-PDL FEF|10  ;'NIL
 43 MOVE D-LAST LOCAL|1
 44 MOVE D-LAST FEF|11  ;'(<K:BW-32> <K:UNBOXED>)
 45 MOVE D-RETURN LOCAL|3
)

(FASL-OP-STOREIN-FUNCTION-CELL [6635] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32-SIGN-FILL|> 0) 76740404>}
  (FASL-OP-INDEX [6601] {(<:INTERNAL> <|PRIMOP//HARDWARE::32-SIGN-FILL|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [6573] {<|PRIMOP//HARDWARE::32-SIGN-FILL|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [6573] {<|PRIMOP//HARDWARE::32-SIGN-FILL|>})
     => (<|PRIMOP//HARDWARE::32-SIGN-FILL|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-SIGN-FILL|> (<|PRIMOP//HARDWARE::32-SIGN-FILL|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-SIGN-FILL|> (<|PRIMOP//HARDWARE::32-SIGN-FILL|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [6578] {<HARDWARE:32-SIGN-FILL>})
       => (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-FILL>))
      (FASL-OP-INDEX [6573] {<|PRIMOP//HARDWARE::32-SIGN-FILL|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-FILL>) <|PRIMOP//HARDWARE::32-SIGN-FILL|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-FILL>) <|PRIMOP//HARDWARE::32-SIGN-FILL|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-FILL>) <|PRIMOP//HARDWARE::32-SIGN-FILL|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6578] {<HARDWARE:32-SIGN-FILL>})
     => (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-FILL>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6579] {(<A>)})
     => (<GLOBAL:QUOTE> (<A>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-FILL>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<A>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-FILL>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<A>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::24-SIGN-FILL|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:24-SIGN-FILL>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<A>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <A>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:SIGN>) <DEST> (<GET-LEFT-OPERAND> <A>) (<GET-RIGHT-OPERAND> <A>) (<GLOBAL:QUOTE> (<K:BW-24> <K:BOXED-RIGHT>))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::24-SIGN-FILL|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [6689] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::24-SIGN-FILL|> 76742631>}
  (FASL-OP-INDEX [6649] {<|PRIMOP//HARDWARE::24-SIGN-FILL|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::24-SIGN-FILL|> 0)
 26 PUSH ARG|0
 27 AR-1 (4) D-PDL
 28 CDR D-PDL PDL-POP
 29 POP LOCAL|0
 30 CADR D-PDL LOCAL|0
 31 CAR D-PDL LOCAL|0
 32 POP LOCAL|2
 33 POP LOCAL|1
 34 CALL D-PDL FEF|6  ;'NIL
 35 MOVE D-LAST LOCAL|2
 36 POP LOCAL|3
 37 CALL D-IGNORE FEF|7  ;'NIL
 38 PUSH FEF|8  ;'<K:SIGN>
 39 PUSH LOCAL|3
 40 CALL D-PDL FEF|9  ;'NIL
 41 MOVE D-LAST LOCAL|1
 42 CALL D-PDL FEF|10  ;'NIL
 43 MOVE D-LAST LOCAL|1
 44 MOVE D-LAST FEF|11  ;'(<K:BW-24> <K:BOXED-RIGHT>)
 45 MOVE D-RETURN LOCAL|3
)

(FASL-OP-STOREIN-FUNCTION-CELL [6709] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::24-SIGN-FILL|> 0) 76743366>}
  (FASL-OP-INDEX [6675] {(<:INTERNAL> <|PRIMOP//HARDWARE::24-SIGN-FILL|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [6649] {<|PRIMOP//HARDWARE::24-SIGN-FILL|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [6649] {<|PRIMOP//HARDWARE::24-SIGN-FILL|>})
     => (<|PRIMOP//HARDWARE::24-SIGN-FILL|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::24-SIGN-FILL|> (<|PRIMOP//HARDWARE::24-SIGN-FILL|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::24-SIGN-FILL|> (<|PRIMOP//HARDWARE::24-SIGN-FILL|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [6654] {<HARDWARE:24-SIGN-FILL>})
       => (<GLOBAL:QUOTE> <HARDWARE:24-SIGN-FILL>))
      (FASL-OP-INDEX [6649] {<|PRIMOP//HARDWARE::24-SIGN-FILL|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24-SIGN-FILL>) <|PRIMOP//HARDWARE::24-SIGN-FILL|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24-SIGN-FILL>) <|PRIMOP//HARDWARE::24-SIGN-FILL|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24-SIGN-FILL>) <|PRIMOP//HARDWARE::24-SIGN-FILL|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6654] {<HARDWARE:24-SIGN-FILL>})
     => (<GLOBAL:QUOTE> <HARDWARE:24-SIGN-FILL>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6655] {(<A>)})
     => (<GLOBAL:QUOTE> (<A>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:24-SIGN-FILL>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<A>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:24-SIGN-FILL>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<A>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32-SIGN-EXTEND-BYTE|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32-SIGN-EXTEND-BYTE>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<A>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <A>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:SEX-R>) <DEST> (<GET-LEFT-OPERAND> <A>) (<GET-RIGHT-OPERAND> <A>) (<GLOBAL:QUOTE> (<K:BW-8> <K:UNBOXED>))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32-SIGN-EXTEND-BYTE|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [6765] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32-SIGN-EXTEND-BYTE|> 76746603>}
  (FASL-OP-INDEX [6723] {<|PRIMOP//HARDWARE::32-SIGN-EXTEND-BYTE|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32-SIGN-EXTEND-BYTE|> 0)
 26 PUSH ARG|0
 27 AR-1 (4) D-PDL
 28 CDR D-PDL PDL-POP
 29 POP LOCAL|0
 30 CADR D-PDL LOCAL|0
 31 CAR D-PDL LOCAL|0
 32 POP LOCAL|2
 33 POP LOCAL|1
 34 CALL D-PDL FEF|6  ;'NIL
 35 MOVE D-LAST LOCAL|2
 36 POP LOCAL|3
 37 CALL D-IGNORE FEF|7  ;'NIL
 38 PUSH FEF|8  ;'<K:SEX-R>
 39 PUSH LOCAL|3
 40 CALL D-PDL FEF|9  ;'NIL
 41 MOVE D-LAST LOCAL|1
 42 CALL D-PDL FEF|10  ;'NIL
 43 MOVE D-LAST LOCAL|1
 44 MOVE D-LAST FEF|11  ;'(<K:BW-8> <K:UNBOXED>)
 45 MOVE D-RETURN LOCAL|3
)

(FASL-OP-STOREIN-FUNCTION-CELL [6785] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32-SIGN-EXTEND-BYTE|> 0) 76747354>}
  (FASL-OP-INDEX [6751] {(<:INTERNAL> <|PRIMOP//HARDWARE::32-SIGN-EXTEND-BYTE|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [6723] {<|PRIMOP//HARDWARE::32-SIGN-EXTEND-BYTE|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [6723] {<|PRIMOP//HARDWARE::32-SIGN-EXTEND-BYTE|>})
     => (<|PRIMOP//HARDWARE::32-SIGN-EXTEND-BYTE|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-SIGN-EXTEND-BYTE|> (<|PRIMOP//HARDWARE::32-SIGN-EXTEND-BYTE|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-SIGN-EXTEND-BYTE|> (<|PRIMOP//HARDWARE::32-SIGN-EXTEND-BYTE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [6728] {<HARDWARE:32-SIGN-EXTEND-BYTE>})
       => (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-EXTEND-BYTE>))
      (FASL-OP-INDEX [6723] {<|PRIMOP//HARDWARE::32-SIGN-EXTEND-BYTE|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-EXTEND-BYTE>) <|PRIMOP//HARDWARE::32-SIGN-EXTEND-BYTE|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-EXTEND-BYTE>) <|PRIMOP//HARDWARE::32-SIGN-EXTEND-BYTE|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-EXTEND-BYTE>) <|PRIMOP//HARDWARE::32-SIGN-EXTEND-BYTE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6728] {<HARDWARE:32-SIGN-EXTEND-BYTE>})
     => (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-EXTEND-BYTE>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6729] {(<A>)})
     => (<GLOBAL:QUOTE> (<A>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-EXTEND-BYTE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<A>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-EXTEND-BYTE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<A>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32-SIGN-EXTEND|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32-SIGN-EXTEND>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<A>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <A>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:SEX-R>) <DEST> (<GET-LEFT-OPERAND> <A>) (<GET-RIGHT-OPERAND> <A>) (<GLOBAL:QUOTE> (<K:BW-24> <K:UNBOXED>))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32-SIGN-EXTEND|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [6839] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32-SIGN-EXTEND|> 76753244>}
  (FASL-OP-INDEX [6799] {<|PRIMOP//HARDWARE::32-SIGN-EXTEND|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32-SIGN-EXTEND|> 0)
 26 PUSH ARG|0
 27 AR-1 (4) D-PDL
 28 CDR D-PDL PDL-POP
 29 POP LOCAL|0
 30 CADR D-PDL LOCAL|0
 31 CAR D-PDL LOCAL|0
 32 POP LOCAL|2
 33 POP LOCAL|1
 34 CALL D-PDL FEF|6  ;'NIL
 35 MOVE D-LAST LOCAL|2
 36 POP LOCAL|3
 37 CALL D-IGNORE FEF|7  ;'NIL
 38 PUSH FEF|8  ;'<K:SEX-R>
 39 PUSH LOCAL|3
 40 CALL D-PDL FEF|9  ;'NIL
 41 MOVE D-LAST LOCAL|1
 42 CALL D-PDL FEF|10  ;'NIL
 43 MOVE D-LAST LOCAL|1
 44 MOVE D-LAST FEF|11  ;'(<K:BW-24> <K:UNBOXED>)
 45 MOVE D-RETURN LOCAL|3
)

(FASL-OP-STOREIN-FUNCTION-CELL [6859] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32-SIGN-EXTEND|> 0) 76755103>}
  (FASL-OP-INDEX [6825] {(<:INTERNAL> <|PRIMOP//HARDWARE::32-SIGN-EXTEND|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [6799] {<|PRIMOP//HARDWARE::32-SIGN-EXTEND|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [6799] {<|PRIMOP//HARDWARE::32-SIGN-EXTEND|>})
     => (<|PRIMOP//HARDWARE::32-SIGN-EXTEND|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-SIGN-EXTEND|> (<|PRIMOP//HARDWARE::32-SIGN-EXTEND|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-SIGN-EXTEND|> (<|PRIMOP//HARDWARE::32-SIGN-EXTEND|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [6804] {<HARDWARE:32-SIGN-EXTEND>})
       => (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-EXTEND>))
      (FASL-OP-INDEX [6799] {<|PRIMOP//HARDWARE::32-SIGN-EXTEND|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-EXTEND>) <|PRIMOP//HARDWARE::32-SIGN-EXTEND|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-EXTEND>) <|PRIMOP//HARDWARE::32-SIGN-EXTEND|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-EXTEND>) <|PRIMOP//HARDWARE::32-SIGN-EXTEND|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6804] {<HARDWARE:32-SIGN-EXTEND>})
     => (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-EXTEND>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6805] {(<A>)})
     => (<GLOBAL:QUOTE> (<A>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-EXTEND>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<A>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-SIGN-EXTEND>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<A>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::32-PRIORITIZE|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:32-PRIORITIZE>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<A>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <A>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:PRIORITIZE-R>) <DEST> (<GET-LEFT-OPERAND> <A>) (<GET-RIGHT-OPERAND> <A>) (<GLOBAL:QUOTE> (<K:BW-32> <K:UNBOXED>))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::32-PRIORITIZE|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [6915] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::32-PRIORITIZE|> 76761221>}
  (FASL-OP-INDEX [6873] {<|PRIMOP//HARDWARE::32-PRIORITIZE|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::32-PRIORITIZE|> 0)
 26 PUSH ARG|0
 27 AR-1 (4) D-PDL
 28 CDR D-PDL PDL-POP
 29 POP LOCAL|0
 30 CADR D-PDL LOCAL|0
 31 CAR D-PDL LOCAL|0
 32 POP LOCAL|2
 33 POP LOCAL|1
 34 CALL D-PDL FEF|6  ;'NIL
 35 MOVE D-LAST LOCAL|2
 36 POP LOCAL|3
 37 CALL D-IGNORE FEF|7  ;'NIL
 38 PUSH FEF|8  ;'<K:PRIORITIZE-R>
 39 PUSH LOCAL|3
 40 CALL D-PDL FEF|9  ;'NIL
 41 MOVE D-LAST LOCAL|1
 42 CALL D-PDL FEF|10  ;'NIL
 43 MOVE D-LAST LOCAL|1
 44 MOVE D-LAST FEF|11  ;'(<K:BW-32> <K:UNBOXED>)
 45 MOVE D-RETURN LOCAL|3
)

(FASL-OP-STOREIN-FUNCTION-CELL [6935] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::32-PRIORITIZE|> 0) 76761734>}
  (FASL-OP-INDEX [6901] {(<:INTERNAL> <|PRIMOP//HARDWARE::32-PRIORITIZE|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [6873] {<|PRIMOP//HARDWARE::32-PRIORITIZE|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [6873] {<|PRIMOP//HARDWARE::32-PRIORITIZE|>})
     => (<|PRIMOP//HARDWARE::32-PRIORITIZE|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-PRIORITIZE|> (<|PRIMOP//HARDWARE::32-PRIORITIZE|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::32-PRIORITIZE|> (<|PRIMOP//HARDWARE::32-PRIORITIZE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [6878] {<HARDWARE:32-PRIORITIZE>})
       => (<GLOBAL:QUOTE> <HARDWARE:32-PRIORITIZE>))
      (FASL-OP-INDEX [6873] {<|PRIMOP//HARDWARE::32-PRIORITIZE|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-PRIORITIZE>) <|PRIMOP//HARDWARE::32-PRIORITIZE|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-PRIORITIZE>) <|PRIMOP//HARDWARE::32-PRIORITIZE|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:32-PRIORITIZE>) <|PRIMOP//HARDWARE::32-PRIORITIZE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6878] {<HARDWARE:32-PRIORITIZE>})
     => (<GLOBAL:QUOTE> <HARDWARE:32-PRIORITIZE>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6879] {(<A>)})
     => (<GLOBAL:QUOTE> (<A>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-PRIORITIZE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<A>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:32-PRIORITIZE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<A>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::24-PRIORITIZE|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:24-PRIORITIZE>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<A>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <A>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:PRIORITIZE-R>) <DEST> (<GET-RIGHT-OPERAND> <A>) (<GET-RIGHT-OPERAND> <A>) (<GLOBAL:QUOTE> (<K:BW-24> <K:UNBOXED>))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::24-PRIORITIZE|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [6989] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::24-PRIORITIZE|> 76764233>}
  (FASL-OP-INDEX [6949] {<|PRIMOP//HARDWARE::24-PRIORITIZE|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::24-PRIORITIZE|> 0)
 24 PUSH ARG|0
 25 AR-1 (4) D-PDL
 26 CDR D-PDL PDL-POP
 27 POP LOCAL|0
 28 CADR D-PDL LOCAL|0
 29 CAR D-PDL LOCAL|0
 30 POP LOCAL|2
 31 POP LOCAL|1
 32 CALL D-PDL FEF|6  ;'NIL
 33 MOVE D-LAST LOCAL|2
 34 POP LOCAL|3
 35 CALL D-IGNORE FEF|7  ;'NIL
 36 PUSH FEF|8  ;'<K:PRIORITIZE-R>
 37 PUSH LOCAL|3
 38 CALL D-PDL FEF|9  ;'NIL
 39 MOVE D-LAST LOCAL|1
 40 CALL D-PDL FEF|9  ;'NIL
 41 MOVE D-LAST LOCAL|1
 42 MOVE D-LAST FEF|10  ;'(<K:BW-24> <K:UNBOXED>)
 43 MOVE D-RETURN LOCAL|3
)

(FASL-OP-STOREIN-FUNCTION-CELL [7009] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::24-PRIORITIZE|> 0) 76764711>}
  (FASL-OP-INDEX [6975] {(<:INTERNAL> <|PRIMOP//HARDWARE::24-PRIORITIZE|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [6949] {<|PRIMOP//HARDWARE::24-PRIORITIZE|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [6949] {<|PRIMOP//HARDWARE::24-PRIORITIZE|>})
     => (<|PRIMOP//HARDWARE::24-PRIORITIZE|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::24-PRIORITIZE|> (<|PRIMOP//HARDWARE::24-PRIORITIZE|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::24-PRIORITIZE|> (<|PRIMOP//HARDWARE::24-PRIORITIZE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [6954] {<HARDWARE:24-PRIORITIZE>})
       => (<GLOBAL:QUOTE> <HARDWARE:24-PRIORITIZE>))
      (FASL-OP-INDEX [6949] {<|PRIMOP//HARDWARE::24-PRIORITIZE|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24-PRIORITIZE>) <|PRIMOP//HARDWARE::24-PRIORITIZE|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24-PRIORITIZE>) <|PRIMOP//HARDWARE::24-PRIORITIZE|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:24-PRIORITIZE>) <|PRIMOP//HARDWARE::24-PRIORITIZE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6954] {<HARDWARE:24-PRIORITIZE>})
     => (<GLOBAL:QUOTE> <HARDWARE:24-PRIORITIZE>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [6955] {(<A>)})
     => (<GLOBAL:QUOTE> (<A>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:24-PRIORITIZE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<A>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:24-PRIORITIZE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<A>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::SIGNED-DIVIDE-FIRST-STEP|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:SIGNED-DIVIDE-FIRST-STEP>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<X> <Y>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <X> <Y>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:SDIV-FIRST>) <DEST> (<GET-LEFT-OPERAND> <X>) (<GET-RIGHT-OPERAND> <Y>) (<GLOBAL:QUOTE> (<K:BW-24> <K:BOXED>))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-FIRST-STEP|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [7066] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::SIGNED-DIVIDE-FIRST-STEP|> 76767174>}
  (FASL-OP-INDEX [7023] {<|PRIMOP//HARDWARE::SIGNED-DIVIDE-FIRST-STEP|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-FIRST-STEP|> 0)
 26 PUSH ARG|0
 27 AR-1 (4) D-PDL
 28 CDR D-PDL PDL-POP
 29 MOVEM LOCAL|0
 30 (MISC) CADDR D-PDL
 31 CADR D-PDL LOCAL|0
 32 CAR D-PDL LOCAL|0
 33 POP LOCAL|3
 34 POP LOCAL|2
 35 POP LOCAL|1
 36 CALL D-PDL FEF|6  ;'NIL
 37 MOVE D-LAST LOCAL|3
 38 POP LOCAL|4
 39 CALL D-IGNORE FEF|7  ;'NIL
 40 PUSH FEF|8  ;'<K:SDIV-FIRST>
 41 PUSH LOCAL|4
 42 CALL D-PDL FEF|9  ;'NIL
 43 MOVE D-LAST LOCAL|2
 44 CALL D-PDL FEF|10  ;'NIL
 45 MOVE D-LAST LOCAL|1
 46 MOVE D-LAST FEF|11  ;'(<K:BW-24> <K:BOXED>)
 47 MOVE D-RETURN LOCAL|4
)

(FASL-OP-STOREIN-FUNCTION-CELL [7087] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-FIRST-STEP|> 0) 76767742>}
  (FASL-OP-INDEX [7052] {(<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-FIRST-STEP|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [7023] {<|PRIMOP//HARDWARE::SIGNED-DIVIDE-FIRST-STEP|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [7023] {<|PRIMOP//HARDWARE::SIGNED-DIVIDE-FIRST-STEP|>})
     => (<|PRIMOP//HARDWARE::SIGNED-DIVIDE-FIRST-STEP|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-FIRST-STEP|> (<|PRIMOP//HARDWARE::SIGNED-DIVIDE-FIRST-STEP|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-FIRST-STEP|> (<|PRIMOP//HARDWARE::SIGNED-DIVIDE-FIRST-STEP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [7028] {<HARDWARE:SIGNED-DIVIDE-FIRST-STEP>})
       => (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-FIRST-STEP>))
      (FASL-OP-INDEX [7023] {<|PRIMOP//HARDWARE::SIGNED-DIVIDE-FIRST-STEP|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-FIRST-STEP>) <|PRIMOP//HARDWARE::SIGNED-DIVIDE-FIRST-STEP|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-FIRST-STEP>) <|PRIMOP//HARDWARE::SIGNED-DIVIDE-FIRST-STEP|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-FIRST-STEP>) <|PRIMOP//HARDWARE::SIGNED-DIVIDE-FIRST-STEP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7028] {<HARDWARE:SIGNED-DIVIDE-FIRST-STEP>})
     => (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-FIRST-STEP>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7029] {(<X> <Y>)})
     => (<GLOBAL:QUOTE> (<X> <Y>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-FIRST-STEP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-FIRST-STEP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::SIGNED-DIVIDE-STEP|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:SIGNED-DIVIDE-STEP>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<X> <Y>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <X> <Y>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:SDIV-STEP>) <DEST> (<GET-LEFT-OPERAND> <X>) (<GET-RIGHT-OPERAND> <Y>) (<GLOBAL:QUOTE> (<K:BW-24> <K:BOXED>))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-STEP|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [7144] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::SIGNED-DIVIDE-STEP|> 76773154>}
  (FASL-OP-INDEX [7101] {<|PRIMOP//HARDWARE::SIGNED-DIVIDE-STEP|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-STEP|> 0)
 26 PUSH ARG|0
 27 AR-1 (4) D-PDL
 28 CDR D-PDL PDL-POP
 29 MOVEM LOCAL|0
 30 (MISC) CADDR D-PDL
 31 CADR D-PDL LOCAL|0
 32 CAR D-PDL LOCAL|0
 33 POP LOCAL|3
 34 POP LOCAL|2
 35 POP LOCAL|1
 36 CALL D-PDL FEF|6  ;'NIL
 37 MOVE D-LAST LOCAL|3
 38 POP LOCAL|4
 39 CALL D-IGNORE FEF|7  ;'NIL
 40 PUSH FEF|8  ;'<K:SDIV-STEP>
 41 PUSH LOCAL|4
 42 CALL D-PDL FEF|9  ;'NIL
 43 MOVE D-LAST LOCAL|2
 44 CALL D-PDL FEF|10  ;'NIL
 45 MOVE D-LAST LOCAL|1
 46 MOVE D-LAST FEF|11  ;'(<K:BW-24> <K:BOXED>)
 47 MOVE D-RETURN LOCAL|4
)

(FASL-OP-STOREIN-FUNCTION-CELL [7165] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-STEP|> 0) 76773727>}
  (FASL-OP-INDEX [7130] {(<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-STEP|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [7101] {<|PRIMOP//HARDWARE::SIGNED-DIVIDE-STEP|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [7101] {<|PRIMOP//HARDWARE::SIGNED-DIVIDE-STEP|>})
     => (<|PRIMOP//HARDWARE::SIGNED-DIVIDE-STEP|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-STEP|> (<|PRIMOP//HARDWARE::SIGNED-DIVIDE-STEP|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-STEP|> (<|PRIMOP//HARDWARE::SIGNED-DIVIDE-STEP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [7106] {<HARDWARE:SIGNED-DIVIDE-STEP>})
       => (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-STEP>))
      (FASL-OP-INDEX [7101] {<|PRIMOP//HARDWARE::SIGNED-DIVIDE-STEP|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-STEP>) <|PRIMOP//HARDWARE::SIGNED-DIVIDE-STEP|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-STEP>) <|PRIMOP//HARDWARE::SIGNED-DIVIDE-STEP|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-STEP>) <|PRIMOP//HARDWARE::SIGNED-DIVIDE-STEP|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7106] {<HARDWARE:SIGNED-DIVIDE-STEP>})
     => (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-STEP>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7107] {(<X> <Y>)})
     => (<GLOBAL:QUOTE> (<X> <Y>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-STEP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-STEP>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST1|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:SIGNED-DIVIDE-LAST1>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<X> <Y>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <X> <Y>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:SDIV-LAST1>) <DEST> (<GET-LEFT-OPERAND> <X>) (<GET-RIGHT-OPERAND> <Y>) (<GLOBAL:QUOTE> (<K:BW-24> <K:BOXED>))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST1|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [7222] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST1|> 76776247>}
  (FASL-OP-INDEX [7179] {<|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST1|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST1|> 0)
 26 PUSH ARG|0
 27 AR-1 (4) D-PDL
 28 CDR D-PDL PDL-POP
 29 MOVEM LOCAL|0
 30 (MISC) CADDR D-PDL
 31 CADR D-PDL LOCAL|0
 32 CAR D-PDL LOCAL|0
 33 POP LOCAL|3
 34 POP LOCAL|2
 35 POP LOCAL|1
 36 CALL D-PDL FEF|6  ;'NIL
 37 MOVE D-LAST LOCAL|3
 38 POP LOCAL|4
 39 CALL D-IGNORE FEF|7  ;'NIL
 40 PUSH FEF|8  ;'<K:SDIV-LAST1>
 41 PUSH LOCAL|4
 42 CALL D-PDL FEF|9  ;'NIL
 43 MOVE D-LAST LOCAL|2
 44 CALL D-PDL FEF|10  ;'NIL
 45 MOVE D-LAST LOCAL|1
 46 MOVE D-LAST FEF|11  ;'(<K:BW-24> <K:BOXED>)
 47 MOVE D-RETURN LOCAL|4
)

(FASL-OP-STOREIN-FUNCTION-CELL [7243] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST1|> 0) 76776774>}
  (FASL-OP-INDEX [7208] {(<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST1|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [7179] {<|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST1|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [7179] {<|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST1|>})
     => (<|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST1|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST1|> (<|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST1|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST1|> (<|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST1|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [7184] {<HARDWARE:SIGNED-DIVIDE-LAST1>})
       => (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-LAST1>))
      (FASL-OP-INDEX [7179] {<|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST1|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-LAST1>) <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST1|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-LAST1>) <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST1|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-LAST1>) <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST1|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7184] {<HARDWARE:SIGNED-DIVIDE-LAST1>})
     => (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-LAST1>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7185] {(<X> <Y>)})
     => (<GLOBAL:QUOTE> (<X> <Y>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-LAST1>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-LAST1>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST2|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:SIGNED-DIVIDE-LAST2>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<X> <Y>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <X> <Y>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:SDIV-LAST2>) <DEST> (<GET-LEFT-OPERAND> <X>) (<GET-RIGHT-OPERAND> <Y>) (<GLOBAL:QUOTE> (<K:BW-24> <K:BOXED>))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST2|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [7300] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST2|> 77001313>}
  (FASL-OP-INDEX [7257] {<|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST2|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST2|> 0)
 26 PUSH ARG|0
 27 AR-1 (4) D-PDL
 28 CDR D-PDL PDL-POP
 29 MOVEM LOCAL|0
 30 (MISC) CADDR D-PDL
 31 CADR D-PDL LOCAL|0
 32 CAR D-PDL LOCAL|0
 33 POP LOCAL|3
 34 POP LOCAL|2
 35 POP LOCAL|1
 36 CALL D-PDL FEF|6  ;'NIL
 37 MOVE D-LAST LOCAL|3
 38 POP LOCAL|4
 39 CALL D-IGNORE FEF|7  ;'NIL
 40 PUSH FEF|8  ;'<K:SDIV-LAST2>
 41 PUSH LOCAL|4
 42 CALL D-PDL FEF|9  ;'NIL
 43 MOVE D-LAST LOCAL|2
 44 CALL D-PDL FEF|10  ;'NIL
 45 MOVE D-LAST LOCAL|1
 46 MOVE D-LAST FEF|11  ;'(<K:BW-24> <K:BOXED>)
 47 MOVE D-RETURN LOCAL|4
)

(FASL-OP-STOREIN-FUNCTION-CELL [7321] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST2|> 0) 77002026>}
  (FASL-OP-INDEX [7286] {(<:INTERNAL> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST2|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [7257] {<|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST2|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [7257] {<|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST2|>})
     => (<|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST2|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST2|> (<|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST2|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST2|> (<|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST2|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [7262] {<HARDWARE:SIGNED-DIVIDE-LAST2>})
       => (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-LAST2>))
      (FASL-OP-INDEX [7257] {<|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST2|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-LAST2>) <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST2|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-LAST2>) <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST2|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-LAST2>) <|PRIMOP//HARDWARE::SIGNED-DIVIDE-LAST2|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7262] {<HARDWARE:SIGNED-DIVIDE-LAST2>})
     => (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-LAST2>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7263] {(<X> <Y>)})
     => (<GLOBAL:QUOTE> (<X> <Y>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-LAST2>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:SIGNED-DIVIDE-LAST2>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::QUOTIENT-CORRECT|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:QUOTIENT-CORRECT>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<X>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <X>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:QUO-CORR>) <DEST> (<GET-LEFT-OPERAND> <X>) (<GET-RIGHT-OPERAND> <X>) (<GLOBAL:QUOTE> (<K:BW-24> <K:BOXED>))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::QUOTIENT-CORRECT|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [7378] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::QUOTIENT-CORRECT|> 77003426>}
  (FASL-OP-INDEX [7335] {<|PRIMOP//HARDWARE::QUOTIENT-CORRECT|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::QUOTIENT-CORRECT|> 0)
 26 PUSH ARG|0
 27 AR-1 (4) D-PDL
 28 CDR D-PDL PDL-POP
 29 POP LOCAL|0
 30 CADR D-PDL LOCAL|0
 31 CAR D-PDL LOCAL|0
 32 POP LOCAL|2
 33 POP LOCAL|1
 34 CALL D-PDL FEF|6  ;'NIL
 35 MOVE D-LAST LOCAL|2
 36 POP LOCAL|3
 37 CALL D-IGNORE FEF|7  ;'NIL
 38 PUSH FEF|8  ;'<K:QUO-CORR>
 39 PUSH LOCAL|3
 40 CALL D-PDL FEF|9  ;'NIL
 41 MOVE D-LAST LOCAL|1
 42 CALL D-PDL FEF|10  ;'NIL
 43 MOVE D-LAST LOCAL|1
 44 MOVE D-LAST FEF|11  ;'(<K:BW-24> <K:BOXED>)
 45 MOVE D-RETURN LOCAL|3
)

(FASL-OP-STOREIN-FUNCTION-CELL [7398] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::QUOTIENT-CORRECT|> 0) 77004160>}
  (FASL-OP-INDEX [7364] {(<:INTERNAL> <|PRIMOP//HARDWARE::QUOTIENT-CORRECT|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [7335] {<|PRIMOP//HARDWARE::QUOTIENT-CORRECT|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [7335] {<|PRIMOP//HARDWARE::QUOTIENT-CORRECT|>})
     => (<|PRIMOP//HARDWARE::QUOTIENT-CORRECT|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::QUOTIENT-CORRECT|> (<|PRIMOP//HARDWARE::QUOTIENT-CORRECT|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::QUOTIENT-CORRECT|> (<|PRIMOP//HARDWARE::QUOTIENT-CORRECT|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [7340] {<HARDWARE:QUOTIENT-CORRECT>})
       => (<GLOBAL:QUOTE> <HARDWARE:QUOTIENT-CORRECT>))
      (FASL-OP-INDEX [7335] {<|PRIMOP//HARDWARE::QUOTIENT-CORRECT|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:QUOTIENT-CORRECT>) <|PRIMOP//HARDWARE::QUOTIENT-CORRECT|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:QUOTIENT-CORRECT>) <|PRIMOP//HARDWARE::QUOTIENT-CORRECT|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:QUOTIENT-CORRECT>) <|PRIMOP//HARDWARE::QUOTIENT-CORRECT|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7340] {<HARDWARE:QUOTIENT-CORRECT>})
     => (<GLOBAL:QUOTE> <HARDWARE:QUOTIENT-CORRECT>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7341] {(<X>)})
     => (<GLOBAL:QUOTE> (<X>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:QUOTIENT-CORRECT>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:QUOTIENT-CORRECT>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::REMAINDER-CORRECT|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:REMAINDER-CORRECT>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<X> <Y>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<DESTRUCTURE> (((<CONT> <X> <Y>) (<CALL-ARGS> <NODE>))) (<LET> ((<DEST> (<GET-DESTINATION> <CONT>))) (<EMIT-ALU> (<GLOBAL:QUOTE> <K:REM-CORR>) <DEST> (<GET-LEFT-OPERAND> <X>) (<GET-RIGHT-OPERAND> <Y>) (<GLOBAL:QUOTE> (<K:BW-24> <K:BOXED>))) <DEST>))))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::REMAINDER-CORRECT|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [7455] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::REMAINDER-CORRECT|> 77006471>}
  (FASL-OP-INDEX [7412] {<|PRIMOP//HARDWARE::REMAINDER-CORRECT|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::REMAINDER-CORRECT|> 0)
 26 PUSH ARG|0
 27 AR-1 (4) D-PDL
 28 CDR D-PDL PDL-POP
 29 MOVEM LOCAL|0
 30 (MISC) CADDR D-PDL
 31 CADR D-PDL LOCAL|0
 32 CAR D-PDL LOCAL|0
 33 POP LOCAL|3
 34 POP LOCAL|2
 35 POP LOCAL|1
 36 CALL D-PDL FEF|6  ;'NIL
 37 MOVE D-LAST LOCAL|3
 38 POP LOCAL|4
 39 CALL D-IGNORE FEF|7  ;'NIL
 40 PUSH FEF|8  ;'<K:REM-CORR>
 41 PUSH LOCAL|4
 42 CALL D-PDL FEF|9  ;'NIL
 43 MOVE D-LAST LOCAL|2
 44 CALL D-PDL FEF|10  ;'NIL
 45 MOVE D-LAST LOCAL|1
 46 MOVE D-LAST FEF|11  ;'(<K:BW-24> <K:BOXED>)
 47 MOVE D-RETURN LOCAL|4
)

(FASL-OP-STOREIN-FUNCTION-CELL [7476] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::REMAINDER-CORRECT|> 0) 77007211>}
  (FASL-OP-INDEX [7441] {(<:INTERNAL> <|PRIMOP//HARDWARE::REMAINDER-CORRECT|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [7412] {<|PRIMOP//HARDWARE::REMAINDER-CORRECT|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [7412] {<|PRIMOP//HARDWARE::REMAINDER-CORRECT|>})
     => (<|PRIMOP//HARDWARE::REMAINDER-CORRECT|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::REMAINDER-CORRECT|> (<|PRIMOP//HARDWARE::REMAINDER-CORRECT|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::REMAINDER-CORRECT|> (<|PRIMOP//HARDWARE::REMAINDER-CORRECT|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [7417] {<HARDWARE:REMAINDER-CORRECT>})
       => (<GLOBAL:QUOTE> <HARDWARE:REMAINDER-CORRECT>))
      (FASL-OP-INDEX [7412] {<|PRIMOP//HARDWARE::REMAINDER-CORRECT|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:REMAINDER-CORRECT>) <|PRIMOP//HARDWARE::REMAINDER-CORRECT|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:REMAINDER-CORRECT>) <|PRIMOP//HARDWARE::REMAINDER-CORRECT|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:REMAINDER-CORRECT>) <|PRIMOP//HARDWARE::REMAINDER-CORRECT|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7417] {<HARDWARE:REMAINDER-CORRECT>})
     => (<GLOBAL:QUOTE> <HARDWARE:REMAINDER-CORRECT>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7418] {(<X> <Y>)})
     => (<GLOBAL:QUOTE> (<X> <Y>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:REMAINDER-CORRECT>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:REMAINDER-CORRECT>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::FLOAT-ADD-SINGLE|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:FLOAT-ADD-SINGLE>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<X> <Y>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-FLOAT-SINGLE-OP> (<GLOBAL:QUOTE> <K:FALU>) (<GLOBAL:QUOTE> <K:SINGLE-ADD>) <NODE>)))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-ADD-SINGLE|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [7523] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::FLOAT-ADD-SINGLE|> 77011512>}
  (FASL-OP-INDEX [7490] {<|PRIMOP//HARDWARE::FLOAT-ADD-SINGLE|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-ADD-SINGLE|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH FEF|7  ;'<K:FALU>
 22 PUSH FEF|8  ;'<K:SINGLE-ADD>
 23 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [7536] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-ADD-SINGLE|> 0) 77012163>}
  (FASL-OP-INDEX [7509] {(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-ADD-SINGLE|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [7490] {<|PRIMOP//HARDWARE::FLOAT-ADD-SINGLE|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [7490] {<|PRIMOP//HARDWARE::FLOAT-ADD-SINGLE|>})
     => (<|PRIMOP//HARDWARE::FLOAT-ADD-SINGLE|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-ADD-SINGLE|> (<|PRIMOP//HARDWARE::FLOAT-ADD-SINGLE|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-ADD-SINGLE|> (<|PRIMOP//HARDWARE::FLOAT-ADD-SINGLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [7495] {<HARDWARE:FLOAT-ADD-SINGLE>})
       => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-ADD-SINGLE>))
      (FASL-OP-INDEX [7490] {<|PRIMOP//HARDWARE::FLOAT-ADD-SINGLE|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-ADD-SINGLE>) <|PRIMOP//HARDWARE::FLOAT-ADD-SINGLE|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-ADD-SINGLE>) <|PRIMOP//HARDWARE::FLOAT-ADD-SINGLE|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-ADD-SINGLE>) <|PRIMOP//HARDWARE::FLOAT-ADD-SINGLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7495] {<HARDWARE:FLOAT-ADD-SINGLE>})
     => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-ADD-SINGLE>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7496] {(<X> <Y>)})
     => (<GLOBAL:QUOTE> (<X> <Y>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-ADD-SINGLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-ADD-SINGLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::FLOAT-SUBTRACT-SINGLE|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:FLOAT-SUBTRACT-SINGLE>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<X> <Y>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-FLOAT-SINGLE-OP> (<GLOBAL:QUOTE> <K:FALU>) (<GLOBAL:QUOTE> <K:SINGLE-SUBTRACT>) <NODE>)))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-SINGLE|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [7580] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-SINGLE|> 77013411>}
  (FASL-OP-INDEX [7550] {<|PRIMOP//HARDWARE::FLOAT-SUBTRACT-SINGLE|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-SINGLE|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH FEF|7  ;'<K:FALU>
 22 PUSH FEF|8  ;'<K:SINGLE-SUBTRACT>
 23 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [7593] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-SINGLE|> 0) 77014045>}
  (FASL-OP-INDEX [7566] {(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-SINGLE|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [7550] {<|PRIMOP//HARDWARE::FLOAT-SUBTRACT-SINGLE|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [7550] {<|PRIMOP//HARDWARE::FLOAT-SUBTRACT-SINGLE|>})
     => (<|PRIMOP//HARDWARE::FLOAT-SUBTRACT-SINGLE|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-SINGLE|> (<|PRIMOP//HARDWARE::FLOAT-SUBTRACT-SINGLE|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-SINGLE|> (<|PRIMOP//HARDWARE::FLOAT-SUBTRACT-SINGLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [7555] {<HARDWARE:FLOAT-SUBTRACT-SINGLE>})
       => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-SUBTRACT-SINGLE>))
      (FASL-OP-INDEX [7550] {<|PRIMOP//HARDWARE::FLOAT-SUBTRACT-SINGLE|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-SUBTRACT-SINGLE>) <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-SINGLE|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-SUBTRACT-SINGLE>) <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-SINGLE|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-SUBTRACT-SINGLE>) <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-SINGLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7555] {<HARDWARE:FLOAT-SUBTRACT-SINGLE>})
     => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-SUBTRACT-SINGLE>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7556] {(<X> <Y>)})
     => (<GLOBAL:QUOTE> (<X> <Y>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-SUBTRACT-SINGLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-SUBTRACT-SINGLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::FLOAT-MULTIPLY-SINGLE|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:FLOAT-MULTIPLY-SINGLE>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<X> <Y>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-FLOAT-SINGLE-OP> (<GLOBAL:QUOTE> <K:FMUL>) (<GLOBAL:QUOTE> <K:SINGLE-MULTIPLY>) <NODE>)))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-SINGLE|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [7639] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-SINGLE|> 77016145>}
  (FASL-OP-INDEX [7607] {<|PRIMOP//HARDWARE::FLOAT-MULTIPLY-SINGLE|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-SINGLE|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH FEF|7  ;'<K:FMUL>
 22 PUSH FEF|8  ;'<K:SINGLE-MULTIPLY>
 23 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [7652] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-SINGLE|> 0) 77016602>}
  (FASL-OP-INDEX [7625] {(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-SINGLE|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [7607] {<|PRIMOP//HARDWARE::FLOAT-MULTIPLY-SINGLE|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [7607] {<|PRIMOP//HARDWARE::FLOAT-MULTIPLY-SINGLE|>})
     => (<|PRIMOP//HARDWARE::FLOAT-MULTIPLY-SINGLE|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-SINGLE|> (<|PRIMOP//HARDWARE::FLOAT-MULTIPLY-SINGLE|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-SINGLE|> (<|PRIMOP//HARDWARE::FLOAT-MULTIPLY-SINGLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [7612] {<HARDWARE:FLOAT-MULTIPLY-SINGLE>})
       => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-MULTIPLY-SINGLE>))
      (FASL-OP-INDEX [7607] {<|PRIMOP//HARDWARE::FLOAT-MULTIPLY-SINGLE|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-MULTIPLY-SINGLE>) <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-SINGLE|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-MULTIPLY-SINGLE>) <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-SINGLE|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-MULTIPLY-SINGLE>) <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-SINGLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7612] {<HARDWARE:FLOAT-MULTIPLY-SINGLE>})
     => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-MULTIPLY-SINGLE>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7613] {(<X> <Y>)})
     => (<GLOBAL:QUOTE> (<X> <Y>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-MULTIPLY-SINGLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-MULTIPLY-SINGLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::FLOAT-DIVIDE-SINGLE|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:FLOAT-DIVIDE-SINGLE>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 0
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<DIVISOR> <DIVIDEND>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:GENERATE> (<NODE>) (<GENERATE-FLOAT-SINGLE-OP> (<GLOBAL:QUOTE> <K:FMUL>) (<GLOBAL:QUOTE> <K:SINGLE-DIVIDE>) <NODE> 11)))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-DIVIDE-SINGLE|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [7699] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::FLOAT-DIVIDE-SINGLE|> 77021736>}
  (FASL-OP-INDEX [7666] {<|PRIMOP//HARDWARE::FLOAT-DIVIDE-SINGLE|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-DIVIDE-SINGLE|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH FEF|7  ;'<K:FMUL>
 22 PUSH FEF|8  ;'<K:SINGLE-DIVIDE>
 23 PUSH ARG|0
 24 MOVE D-LAST '11
)

(FASL-OP-STOREIN-FUNCTION-CELL [7712] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-DIVIDE-SINGLE|> 0) 77023356>}
  (FASL-OP-INDEX [7685] {(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-DIVIDE-SINGLE|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [7666] {<|PRIMOP//HARDWARE::FLOAT-DIVIDE-SINGLE|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [7666] {<|PRIMOP//HARDWARE::FLOAT-DIVIDE-SINGLE|>})
     => (<|PRIMOP//HARDWARE::FLOAT-DIVIDE-SINGLE|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-DIVIDE-SINGLE|> (<|PRIMOP//HARDWARE::FLOAT-DIVIDE-SINGLE|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-DIVIDE-SINGLE|> (<|PRIMOP//HARDWARE::FLOAT-DIVIDE-SINGLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [7671] {<HARDWARE:FLOAT-DIVIDE-SINGLE>})
       => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-DIVIDE-SINGLE>))
      (FASL-OP-INDEX [7666] {<|PRIMOP//HARDWARE::FLOAT-DIVIDE-SINGLE|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-DIVIDE-SINGLE>) <|PRIMOP//HARDWARE::FLOAT-DIVIDE-SINGLE|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-DIVIDE-SINGLE>) <|PRIMOP//HARDWARE::FLOAT-DIVIDE-SINGLE|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-DIVIDE-SINGLE>) <|PRIMOP//HARDWARE::FLOAT-DIVIDE-SINGLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7671] {<HARDWARE:FLOAT-DIVIDE-SINGLE>})
     => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-DIVIDE-SINGLE>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7674] {(<DIVISOR> <DIVIDEND>)})
     => (<GLOBAL:QUOTE> (<DIVISOR> <DIVIDEND>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-DIVIDE-SINGLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<DIVISOR> <DIVIDEND>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-DIVIDE-SINGLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<DIVISOR> <DIVIDEND>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::FLOAT-COMPARE-SINGLE|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:FLOAT-COMPARE-SINGLE>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 10
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<X> <Y>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<GENERATE-FLOAT-SINGLE-OP> (<GLOBAL:QUOTE> <K:FALU>) (<GLOBAL:QUOTE> <K:SINGLE-COMPARE>) <NODE>)))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-COMPARE-SINGLE|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [7757] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::FLOAT-COMPARE-SINGLE|> 77027354>}
  (FASL-OP-INDEX [7726] {<|PRIMOP//HARDWARE::FLOAT-COMPARE-SINGLE|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-COMPARE-SINGLE|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH FEF|7  ;'<K:FALU>
 22 PUSH FEF|8  ;'<K:SINGLE-COMPARE>
 23 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [7770] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-COMPARE-SINGLE|> 0) 77027752>}
  (FASL-OP-INDEX [7743] {(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-COMPARE-SINGLE|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [7726] {<|PRIMOP//HARDWARE::FLOAT-COMPARE-SINGLE|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [7726] {<|PRIMOP//HARDWARE::FLOAT-COMPARE-SINGLE|>})
     => (<|PRIMOP//HARDWARE::FLOAT-COMPARE-SINGLE|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-COMPARE-SINGLE|> (<|PRIMOP//HARDWARE::FLOAT-COMPARE-SINGLE|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-COMPARE-SINGLE|> (<|PRIMOP//HARDWARE::FLOAT-COMPARE-SINGLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [7731] {<HARDWARE:FLOAT-COMPARE-SINGLE>})
       => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-COMPARE-SINGLE>))
      (FASL-OP-INDEX [7726] {<|PRIMOP//HARDWARE::FLOAT-COMPARE-SINGLE|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-COMPARE-SINGLE>) <|PRIMOP//HARDWARE::FLOAT-COMPARE-SINGLE|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-COMPARE-SINGLE>) <|PRIMOP//HARDWARE::FLOAT-COMPARE-SINGLE|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-COMPARE-SINGLE>) <|PRIMOP//HARDWARE::FLOAT-COMPARE-SINGLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7731] {<HARDWARE:FLOAT-COMPARE-SINGLE>})
     => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-COMPARE-SINGLE>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7732] {(<X> <Y>)})
     => (<GLOBAL:QUOTE> (<X> <Y>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-COMPARE-SINGLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-COMPARE-SINGLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<X> <Y>)))))

(FASL-OP-FRAME
<GENERATE-FLOAT-SINGLE-OP>
 30 PUSH ARG|2
 31 AR-1 (4) D-PDL
 32 CDR D-PDL PDL-POP
 33 MOVEM LOCAL|0
 34 (MISC) CADDR D-PDL
 35 CADR D-PDL LOCAL|0
 36 CAR D-PDL LOCAL|0
 37 POP LOCAL|3
 38 POP LOCAL|2
 39 POP LOCAL|1
 40 PUSH FEF|6  ;'NIL
 41 PUSH-NUMBER 3
 42 (MISC) %CALL-MULT-VALUE D-IGNORE
 43 PUSH LOCAL|3
 44 PUSH LOCAL|2
 45 MOVE D-LAST LOCAL|1
 46 POP LOCAL|6
 47 POP LOCAL|5
 48 POP LOCAL|4
 49 CALL D-IGNORE FEF|7  ;'NIL
 50 PUSH ARG|0
 51 PUSH ARG|1
 52 PUSH FEF|8  ;'<K:NOP>
 53 PUSH LOCAL|5
 54 PUSH LOCAL|6
 55 PUSH FEF|9  ;'<K:FPU-LOAD-XY>
 56 PUSH FEF|10  ;'<K:FPU-UNLOAD-HIGH>
 57 MOVE D-LAST FEF|11  ;'<K:UNBOXED>
 58 CALL D-IGNORE FEF|7  ;'NIL
 59 PUSH ARG|0
 60 PUSH ARG|1
 61 PUSH FEF|8  ;'<K:NOP>
 62 PUSH LOCAL|5
 63 PUSH LOCAL|6
 64 PUSH FEF|12  ;'<K:FPU-LOAD-NOP>
 65 PUSH FEF|10  ;'<K:FPU-UNLOAD-HIGH>
 66 MOVE D-LAST FEF|11  ;'<K:UNBOXED>
 67 MOVE D-IGNORE ARG|3
 68 BR-NIL 71
 69 CALL D-IGNORE FEF|13  ;'NIL
 70 MOVE D-LAST ARG|3
 71 CALL D-IGNORE FEF|7  ;'NIL
 72 PUSH ARG|0
 73 PUSH ARG|1
 74 PUSH FEF|8  ;'<K:NOP>
 75 PUSH LOCAL|5
 76 PUSH LOCAL|6
 77 PUSH FEF|12  ;'<K:FPU-LOAD-NOP>
 78 PUSH FEF|10  ;'<K:FPU-UNLOAD-HIGH>
 79 MOVE D-LAST FEF|11  ;'<K:UNBOXED>
 80 CALL D-IGNORE FEF|7  ;'NIL
 81 PUSH ARG|0
 82 PUSH ARG|1
 83 PUSH FEF|8  ;'<K:NOP>
 84 PUSH LOCAL|5
 85 PUSH LOCAL|6
 86 PUSH FEF|12  ;'<K:FPU-LOAD-NOP>
 87 PUSH FEF|10  ;'<K:FPU-UNLOAD-HIGH>
 88 MOVE D-LAST FEF|11  ;'<K:UNBOXED>
 89 CALL D-IGNORE FEF|7  ;'NIL
 90 PUSH ARG|0
 91 PUSH ARG|1
 92 PUSH LOCAL|4
 93 PUSH LOCAL|5
 94 PUSH LOCAL|6
 95 PUSH FEF|12  ;'<K:FPU-LOAD-NOP>
 96 PUSH FEF|10  ;'<K:FPU-UNLOAD-HIGH>
 97 MOVE D-LAST FEF|11  ;'<K:UNBOXED>
 98 MOVE D-RETURN LOCAL|4
)

(FASL-OP-STOREIN-FUNCTION-CELL [7817] {#<DTP-FEF-POINTER <GENERATE-FLOAT-SINGLE-OP> 77033377>}
  (FASL-OP-INDEX [7498] {<GENERATE-FLOAT-SINGLE-OP>}))

(FASL-OP-FRAME
<GENERATE-DELAY>
Arg 0 (NIL) is required, local, not initialized.
Arg 1 (NIL) is optional, local, initialized to the contents of #<DTP-LOCATIVE 76606316>.

 58 PUSH 1- ARG|0
 59 PUSH-NUMBER 3
 60 (MISC) FLOOR two values to stack
 61 POP LOCAL|1
 62 POP LOCAL|0
 63 CALL D-PDL FEF|15  ;'NIL
 64 MOVE D-LAST FEF|16  ;'<LOOP>
 65 POP LOCAL|2
 66 PUSH-NUMBER 0
 67 PUSH LOCAL|1
 68 POP LOCAL|4
 69 POP LOCAL|3
 70 BR 74
 71 CALL D-IGNORE FEF|17  ;'NIL
 72 MOVE D-LAST FEF|18  ;'<K:NOP>
 73 INCF LOCAL|3
 74 PUSH LOCAL|3
 75 < LOCAL|4
 76 BR-NOT-NIL 71
 77 ZEROP LOCAL|0
 78 BR-NIL 81
 79 CALL D-RETURN FEF|17  ;'NIL
 80 MOVE D-LAST FEF|18  ;'<K:NOP>
 81 CALL D-RETURN FEF|19  ;'NIL
 82 PUSH FEF|20  ;'<K:MOVEI>
 83 PUSH ARG|1
 84 PUSH FEF|21  ;'<GLOBAL:QUOTE>
 85 PUSH LOCAL|0
 86 PUSH-NUMBER 2
 87 (MISC) %INTERNAL-LIST D-PDL
 88 PUSH-NUMBER 3
 89 (MISC) %INTERNAL-LIST D-PDL
 90 PUSH LOCAL|2
 91 PUSH FEF|22  ;'<K:ALU>
 92 PUSH FEF|23  ;'<K:R-1>
 93 PUSH ARG|1
 94 PUSH FEF|24  ;'<IGNORE>
 95 PUSH ARG|1
 96 PUSH FEF|25  ;'(<K:BW-24>)
 97 PUSH-NUMBER 6
 98 (MISC) %INTERNAL-LIST* D-PDL
 99 PUSH FEF|26  ;'(<K:TEST> <K:BR-NOT-ZERO>)
100 PUSH FEF|27  ;'<K:BRANCH>
101 PUSH LOCAL|2
102 PUSH-NUMBER 2
103 (MISC) %INTERNAL-LIST D-PDL
104 PUSH-NUMBER 5
105 (MISC) %INTERNAL-LIST D-LAST
)

(FASL-OP-STOREIN-FUNCTION-CELL [7864] {#<DTP-FEF-POINTER <GENERATE-DELAY> 77034645>}
  (FASL-OP-INDEX [7794] {<GENERATE-DELAY>}))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::FLOAT-ADD-DOUBLE|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:FLOAT-ADD-DOUBLE>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 200
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<XHI> <XLO> <YHI> <YLO>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SPECIAL?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<GENERATE-FLOAT-DOUBLE-OP> (<GLOBAL:QUOTE> <K:FALU>) (<GLOBAL:QUOTE> <K:DOUBLE-ADD>) <NODE>)))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-ADD-DOUBLE|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [7903] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::FLOAT-ADD-DOUBLE|> 77036564>}
  (FASL-OP-INDEX [7867] {<|PRIMOP//HARDWARE::FLOAT-ADD-DOUBLE|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-ADD-DOUBLE|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH FEF|7  ;'<K:FALU>
 22 PUSH FEF|8  ;'<K:DOUBLE-ADD>
 23 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [7916] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-ADD-DOUBLE|> 0) 77037324>}
  (FASL-OP-INDEX [7889] {(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-ADD-DOUBLE|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [7867] {<|PRIMOP//HARDWARE::FLOAT-ADD-DOUBLE|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [7867] {<|PRIMOP//HARDWARE::FLOAT-ADD-DOUBLE|>})
     => (<|PRIMOP//HARDWARE::FLOAT-ADD-DOUBLE|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-ADD-DOUBLE|> (<|PRIMOP//HARDWARE::FLOAT-ADD-DOUBLE|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-ADD-DOUBLE|> (<|PRIMOP//HARDWARE::FLOAT-ADD-DOUBLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [7872] {<HARDWARE:FLOAT-ADD-DOUBLE>})
       => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-ADD-DOUBLE>))
      (FASL-OP-INDEX [7867] {<|PRIMOP//HARDWARE::FLOAT-ADD-DOUBLE|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-ADD-DOUBLE>) <|PRIMOP//HARDWARE::FLOAT-ADD-DOUBLE|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-ADD-DOUBLE>) <|PRIMOP//HARDWARE::FLOAT-ADD-DOUBLE|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-ADD-DOUBLE>) <|PRIMOP//HARDWARE::FLOAT-ADD-DOUBLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7872] {<HARDWARE:FLOAT-ADD-DOUBLE>})
     => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-ADD-DOUBLE>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7877] {(<XHI> <XLO> <YHI> <YLO>)})
     => (<GLOBAL:QUOTE> (<XHI> <XLO> <YHI> <YLO>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-ADD-DOUBLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<XHI> <XLO> <YHI> <YLO>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-ADD-DOUBLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<XHI> <XLO> <YHI> <YLO>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::FLOAT-SUBTRACT-DOUBLE|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:FLOAT-SUBTRACT-DOUBLE>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 200
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<XHI> <XLO> <YHI> <YLO>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SPECIAL?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<GENERATE-FLOAT-DOUBLE-OP> (<GLOBAL:QUOTE> <K:FALU>) (<GLOBAL:QUOTE> <K:DOUBLE-SUBTRACT>) <NODE>)))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-DOUBLE|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [7961] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-DOUBLE|> 77041447>}
  (FASL-OP-INDEX [7930] {<|PRIMOP//HARDWARE::FLOAT-SUBTRACT-DOUBLE|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-DOUBLE|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH FEF|7  ;'<K:FALU>
 22 PUSH FEF|8  ;'<K:DOUBLE-SUBTRACT>
 23 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [7974] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-DOUBLE|> 0) 77042075>}
  (FASL-OP-INDEX [7947] {(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-DOUBLE|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [7930] {<|PRIMOP//HARDWARE::FLOAT-SUBTRACT-DOUBLE|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [7930] {<|PRIMOP//HARDWARE::FLOAT-SUBTRACT-DOUBLE|>})
     => (<|PRIMOP//HARDWARE::FLOAT-SUBTRACT-DOUBLE|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-DOUBLE|> (<|PRIMOP//HARDWARE::FLOAT-SUBTRACT-DOUBLE|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-DOUBLE|> (<|PRIMOP//HARDWARE::FLOAT-SUBTRACT-DOUBLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [7935] {<HARDWARE:FLOAT-SUBTRACT-DOUBLE>})
       => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-SUBTRACT-DOUBLE>))
      (FASL-OP-INDEX [7930] {<|PRIMOP//HARDWARE::FLOAT-SUBTRACT-DOUBLE|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-SUBTRACT-DOUBLE>) <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-DOUBLE|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-SUBTRACT-DOUBLE>) <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-DOUBLE|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-SUBTRACT-DOUBLE>) <|PRIMOP//HARDWARE::FLOAT-SUBTRACT-DOUBLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7935] {<HARDWARE:FLOAT-SUBTRACT-DOUBLE>})
     => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-SUBTRACT-DOUBLE>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7936] {(<XHI> <XLO> <YHI> <YLO>)})
     => (<GLOBAL:QUOTE> (<XHI> <XLO> <YHI> <YLO>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-SUBTRACT-DOUBLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<XHI> <XLO> <YHI> <YLO>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-SUBTRACT-DOUBLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<XHI> <XLO> <YHI> <YLO>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::FLOAT-MULTIPLY-DOUBLE|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:FLOAT-MULTIPLY-DOUBLE>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 200
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<XHI> <XLO> <YHI> <YLO>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SPECIAL?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<GENERATE-FLOAT-DOUBLE-OP> (<GLOBAL:QUOTE> <K:FMUL>) (<GLOBAL:QUOTE> <K:DOUBLE-MULTIPLY>) <NODE>)))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-DOUBLE|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [8019] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-DOUBLE|> 77045162>}
  (FASL-OP-INDEX [7988] {<|PRIMOP//HARDWARE::FLOAT-MULTIPLY-DOUBLE|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-DOUBLE|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH FEF|7  ;'<K:FMUL>
 22 PUSH FEF|8  ;'<K:DOUBLE-MULTIPLY>
 23 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [8032] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-DOUBLE|> 0) 77045612>}
  (FASL-OP-INDEX [8005] {(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-DOUBLE|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [7988] {<|PRIMOP//HARDWARE::FLOAT-MULTIPLY-DOUBLE|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [7988] {<|PRIMOP//HARDWARE::FLOAT-MULTIPLY-DOUBLE|>})
     => (<|PRIMOP//HARDWARE::FLOAT-MULTIPLY-DOUBLE|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-DOUBLE|> (<|PRIMOP//HARDWARE::FLOAT-MULTIPLY-DOUBLE|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-DOUBLE|> (<|PRIMOP//HARDWARE::FLOAT-MULTIPLY-DOUBLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [7993] {<HARDWARE:FLOAT-MULTIPLY-DOUBLE>})
       => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-MULTIPLY-DOUBLE>))
      (FASL-OP-INDEX [7988] {<|PRIMOP//HARDWARE::FLOAT-MULTIPLY-DOUBLE|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-MULTIPLY-DOUBLE>) <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-DOUBLE|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-MULTIPLY-DOUBLE>) <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-DOUBLE|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-MULTIPLY-DOUBLE>) <|PRIMOP//HARDWARE::FLOAT-MULTIPLY-DOUBLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7993] {<HARDWARE:FLOAT-MULTIPLY-DOUBLE>})
     => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-MULTIPLY-DOUBLE>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [7994] {(<XHI> <XLO> <YHI> <YLO>)})
     => (<GLOBAL:QUOTE> (<XHI> <XLO> <YHI> <YLO>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-MULTIPLY-DOUBLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<XHI> <XLO> <YHI> <YLO>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-MULTIPLY-DOUBLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<XHI> <XLO> <YHI> <YLO>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::FLOAT-DIVIDE-DOUBLE|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:FLOAT-DIVIDE-DOUBLE>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 200
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<XHI> <XLO> <YHI> <YLO>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SPECIAL?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<GENERATE-FLOAT-DOUBLE-OP> (<GLOBAL:QUOTE> <K:FMUL>) (<GLOBAL:QUOTE> <K:DOUBLE-DIVIDE>) <NODE> 25)))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-DIVIDE-DOUBLE|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [8078] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::FLOAT-DIVIDE-DOUBLE|> 77047731>}
  (FASL-OP-INDEX [8046] {<|PRIMOP//HARDWARE::FLOAT-DIVIDE-DOUBLE|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-DIVIDE-DOUBLE|> 0)
 22 CALL D-RETURN FEF|6  ;'NIL
 23 PUSH FEF|7  ;'<K:FMUL>
 24 PUSH FEF|8  ;'<K:DOUBLE-DIVIDE>
 25 PUSH ARG|0
 26 MOVE D-LAST FEF|9  ;'25
)

(FASL-OP-STOREIN-FUNCTION-CELL [8092] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-DIVIDE-DOUBLE|> 0) 77050375>}
  (FASL-OP-INDEX [8064] {(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-DIVIDE-DOUBLE|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [8046] {<|PRIMOP//HARDWARE::FLOAT-DIVIDE-DOUBLE|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [8046] {<|PRIMOP//HARDWARE::FLOAT-DIVIDE-DOUBLE|>})
     => (<|PRIMOP//HARDWARE::FLOAT-DIVIDE-DOUBLE|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-DIVIDE-DOUBLE|> (<|PRIMOP//HARDWARE::FLOAT-DIVIDE-DOUBLE|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-DIVIDE-DOUBLE|> (<|PRIMOP//HARDWARE::FLOAT-DIVIDE-DOUBLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [8051] {<HARDWARE:FLOAT-DIVIDE-DOUBLE>})
       => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-DIVIDE-DOUBLE>))
      (FASL-OP-INDEX [8046] {<|PRIMOP//HARDWARE::FLOAT-DIVIDE-DOUBLE|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-DIVIDE-DOUBLE>) <|PRIMOP//HARDWARE::FLOAT-DIVIDE-DOUBLE|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-DIVIDE-DOUBLE>) <|PRIMOP//HARDWARE::FLOAT-DIVIDE-DOUBLE|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-DIVIDE-DOUBLE>) <|PRIMOP//HARDWARE::FLOAT-DIVIDE-DOUBLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [8051] {<HARDWARE:FLOAT-DIVIDE-DOUBLE>})
     => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-DIVIDE-DOUBLE>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [8052] {(<XHI> <XLO> <YHI> <YLO>)})
     => (<GLOBAL:QUOTE> (<XHI> <XLO> <YHI> <YLO>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-DIVIDE-DOUBLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<XHI> <XLO> <YHI> <YLO>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-DIVIDE-DOUBLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<XHI> <XLO> <YHI> <YLO>)))))

(FASL-OP-FRAME
<|PRIMOP//HARDWARE::FLOAT-COMPARE-DOUBLE|>
 38 CALL D-RETURN FEF|6  ;'NIL
 39 PUSH FEF|7  ;'<:NAME>
 40 PUSH FEF|8  ;'<HARDWARE:FLOAT-COMPARE-DOUBLE>
 41 PUSH FEF|9  ;'<:BITV>
 42 PUSH-NUMBER 210
 43 PUSH FEF|10  ;'<:ARGLIST>
 44 PUSH FEF|11  ;'(<XHI> <XLO> <YHI> <YLO>)
 45 PUSH FEF|12  ;'<:SOURCE>
 46 PUSH FEF|13  ;'((<:SPECIAL?> <GLOBAL:T>) (<:SIDE-EFFECTS?> <GLOBAL:T>) (<:GENERATE> (<NODE>) (<GENERATE-FLOAT-DOUBLE-OP> (<GLOBAL:QUOTE> <K:FALU>) (<GLOBAL:QUOTE> <K:DOUBLE-COMPARE>) <NODE>)))
 47 PUSH FEF|14  ;'<:HANDLER>
 48 CALL0 D-PDL FEF|15  ;'NIL
 49 MOVEM LOCAL|0
 50 PUSH FEF|16  ;'<:GENERATE>
 51 MOVE D-LAST FEF|17  ;'(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-COMPARE-DOUBLE|> 0)
)

(FASL-OP-STOREIN-FUNCTION-CELL [8138] {#<DTP-FEF-POINTER <|PRIMOP//HARDWARE::FLOAT-COMPARE-DOUBLE|> 77051603>}
  (FASL-OP-INDEX [8106] {<|PRIMOP//HARDWARE::FLOAT-COMPARE-DOUBLE|>}))

(FASL-OP-FRAME
(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-COMPARE-DOUBLE|> 0)
 20 CALL D-RETURN FEF|6  ;'NIL
 21 PUSH FEF|7  ;'<K:FALU>
 22 PUSH FEF|8  ;'<K:DOUBLE-COMPARE>
 23 MOVE D-LAST ARG|0
)

(FASL-OP-STOREIN-FUNCTION-CELL [8151] {#<DTP-FEF-POINTER (<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-COMPARE-DOUBLE|> 0) 77053173>}
  (FASL-OP-INDEX [8124] {(<:INTERNAL> <|PRIMOP//HARDWARE::FLOAT-COMPARE-DOUBLE|> 0)}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [183] {<SI:DEFCONST-1>})
    (FASL-OP-INDEX [8106] {<|PRIMOP//HARDWARE::FLOAT-COMPARE-DOUBLE|>})
    (FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [8106] {<|PRIMOP//HARDWARE::FLOAT-COMPARE-DOUBLE|>})
     => (<|PRIMOP//HARDWARE::FLOAT-COMPARE-DOUBLE|>))
   => (<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-COMPARE-DOUBLE|> (<|PRIMOP//HARDWARE::FLOAT-COMPARE-DOUBLE|>)))
  (EVAL '(<SI:DEFCONST-1> <|PRIMOP//HARDWARE::FLOAT-COMPARE-DOUBLE|> (<|PRIMOP//HARDWARE::FLOAT-COMPARE-DOUBLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [187] {<VALUES>})
    (FASL-OP-LIST [5] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [189] {<GLOBAL:SEND>})
      (FASL-OP-INDEX [190] {<*PRIMOP-TABLE*>})
      (FASL-OP-INDEX [192] {<:PUT-HASH>})
      (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (FASL-OP-INDEX [8111] {<HARDWARE:FLOAT-COMPARE-DOUBLE>})
       => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-COMPARE-DOUBLE>))
      (FASL-OP-INDEX [8106] {<|PRIMOP//HARDWARE::FLOAT-COMPARE-DOUBLE|>})
     => (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-COMPARE-DOUBLE>) <|PRIMOP//HARDWARE::FLOAT-COMPARE-DOUBLE|>))
   => (<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-COMPARE-DOUBLE>) <|PRIMOP//HARDWARE::FLOAT-COMPARE-DOUBLE|>)))
  (EVAL '(<VALUES> (<GLOBAL:SEND> <*PRIMOP-TABLE*> <:PUT-HASH> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-COMPARE-DOUBLE>) <|PRIMOP//HARDWARE::FLOAT-COMPARE-DOUBLE|>))))

(FASL-OP-EVAL1
  (FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (FASL-OP-INDEX [198] {<SI:SETPROP>})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [8111] {<HARDWARE:FLOAT-COMPARE-DOUBLE>})
     => (<GLOBAL:QUOTE> <HARDWARE:FLOAT-COMPARE-DOUBLE>))
    (FASL-OP-INDEX [202] {(<GLOBAL:QUOTE> <GLOBAL:ARGLIST>)})
    (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (FASL-OP-INDEX [8112] {(<XHI> <XLO> <YHI> <YLO>)})
     => (<GLOBAL:QUOTE> (<XHI> <XLO> <YHI> <YLO>)))
   => (<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-COMPARE-DOUBLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<XHI> <XLO> <YHI> <YLO>))))
  (EVAL '(<SI:SETPROP> (<GLOBAL:QUOTE> <HARDWARE:FLOAT-COMPARE-DOUBLE>) (<GLOBAL:QUOTE> <GLOBAL:ARGLIST>) (<GLOBAL:QUOTE> (<XHI> <XLO> <YHI> <YLO>)))))

(FASL-OP-FRAME
<GENERATE-FLOAT-DOUBLE-OP>
Arg 0 (NIL) is required, local, not initialized.
Arg 1 (NIL) is required, local, not initialized.
Arg 2 (NIL) is required, local, not initialized.
Arg 3 (NIL) is optional, local, initialized to '3.

 98 PUSH ARG|2
 99 AR-1 (4) D-PDL
100 CDR D-PDL PDL-POP
101 POP LOCAL|0
102 CDR D-PDL LOCAL|0
103 (MISC) CADDDR D-PDL
104 PUSH LOCAL|0
105 (MISC) CADDDR D-PDL
106 PUSH LOCAL|0
107 (MISC) CADDR D-PDL
108 CADR D-PDL LOCAL|0
109 CAR D-PDL LOCAL|0
110 POP LOCAL|5
111 POP LOCAL|4
112 POP LOCAL|3
113 POP LOCAL|2
114 POP LOCAL|1
115 PUSH FEF|29  ;'NIL
116 PUSH-NUMBER 2
117 (MISC) %CALL-MULT-VALUE D-IGNORE
118 PUSH LOCAL|2
119 MOVE D-LAST LOCAL|1
120 POP LOCAL|7
121 POP LOCAL|6
122 CALL D-IGNORE FEF|30  ;'NIL
123 PUSH ARG|0
124 PUSH ARG|1
125 PUSH FEF|31  ;'<K:NOP>
126 PUSH LOCAL|6
127 PUSH LOCAL|7
128 PUSH FEF|32  ;'<K:FPU-LOAD-Y>
129 PUSH FEF|33  ;'<K:FPU-UNLOAD-HIGH>
130 MOVE D-LAST FEF|34  ;'<K:UNBOXED>
131 PUSH FEF|29  ;'NIL
132 PUSH-NUMBER 2
133 (MISC) %CALL-MULT-VALUE D-IGNORE
134 PUSH LOCAL|4
135 MOVE D-LAST LOCAL|3
136 POP LOCAL|9
137 POP LOCAL|8
138 CALL D-IGNORE FEF|30  ;'NIL
139 PUSH ARG|0
140 PUSH ARG|1
141 PUSH FEF|31  ;'<K:NOP>
142 PUSH LOCAL|8
143 PUSH LOCAL|9
144 PUSH FEF|35  ;'<K:FPU-LOAD-X>
145 PUSH FEF|33  ;'<K:FPU-UNLOAD-HIGH>
146 MOVE D-LAST FEF|34  ;'<K:UNBOXED>
147 CALL D-IGNORE FEF|36  ;'NIL
148 MOVE D-LAST ARG|3
149 PUSH LOCAL|5
150 PUSH FEF|37  ;'<LAMBDA-NODE>
151 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE
152 BR-NOT-NIL 159
153 CALL D-IGNORE FEF|38  ;'NIL
154 MOVE D-LAST FEF|39  ;'"You should use MULTIPLE-VALUE-BIND with double-float operations"
155 CALL D-RETURN FEF|40  ;'NIL
156 PUSH FEF|41  ;'(<GLOBAL:QUOTE> <NIL>)
157 PUSH LOCAL|5
158 MOVE D-LAST '1
159 PUSH LOCAL|5
160 AR-1 (5) D-PDL
161 CDDR D-PDL PDL-POP
162 POP LOCAL|10
163 CADR D-PDL LOCAL|10
164 CAR D-PDL LOCAL|10
165 POP LOCAL|12
166 POP LOCAL|11
167 CALL D-PDL FEF|42  ;'NIL
168 MOVE D-LAST LOCAL|12
169 MOVE D-IGNORE LOCAL|11
170 BR-NIL 174
171 CALL D-PDL FEF|42  ;'NIL
172 MOVE D-LAST LOCAL|11
173 BR 175
174 PUSH FEF|8  ;':IGNORED
175 POP LOCAL|14
176 POP LOCAL|13
177 CALL D-IGNORE FEF|30  ;'NIL
178 PUSH ARG|0
179 PUSH ARG|1
180 PUSH FEF|31  ;'<K:NOP>
181 PUSH FEF|8  ;':IGNORED
182 PUSH FEF|8  ;':IGNORED
183 PUSH FEF|43  ;'<K:FPU-LOAD-NOP>
184 PUSH FEF|33  ;'<K:FPU-UNLOAD-HIGH>
185 MOVE D-LAST FEF|34  ;'<K:UNBOXED>
186 CALL D-IGNORE FEF|30  ;'NIL
187 PUSH ARG|0
188 PUSH ARG|1
189 PUSH FEF|31  ;'<K:NOP>
190 PUSH FEF|8  ;':IGNORED
191 PUSH FEF|8  ;':IGNORED
192 PUSH FEF|43  ;'<K:FPU-LOAD-NOP>
193 PUSH FEF|44  ;'<K:FPU-UNLOAD-LOW>
194 MOVE D-LAST FEF|34  ;'<K:UNBOXED>
195 CALL D-IGNORE FEF|30  ;'NIL
196 PUSH ARG|0
197 PUSH ARG|1
198 CALL D-IGNORE FEF|45  ;'NIL
199 MOVE D-LAST LOCAL|13
200 BR-NOT-NIL 204
201 CALL D-IGNORE FEF|46  ;'NIL
202 MOVE D-LAST LOCAL|13
203 BR-NIL 206
204 PUSH LOCAL|13
205 BR 207
206 PUSH FEF|7  ;':R0
207 PUSH FEF|8  ;':IGNORED
208 PUSH FEF|8  ;':IGNORED
209 PUSH FEF|43  ;'<K:FPU-LOAD-NOP>
210 PUSH FEF|44  ;'<K:FPU-UNLOAD-LOW>
211 MOVE D-LAST FEF|34  ;'<K:UNBOXED>
212 CALL D-IGNORE FEF|30  ;'NIL
213 PUSH ARG|0
214 PUSH ARG|1
215 CALL D-IGNORE FEF|45  ;'NIL
216 MOVE D-LAST LOCAL|14
217 BR-NOT-NIL 221
218 CALL D-IGNORE FEF|46  ;'NIL
219 MOVE D-LAST LOCAL|14
220 BR-NIL 223
221 PUSH LOCAL|14
222 BR 224
223 PUSH FEF|6  ;':R1
224 PUSH FEF|8  ;':IGNORED
225 PUSH FEF|8  ;':IGNORED
226 PUSH FEF|43  ;'<K:FPU-LOAD-NOP>
227 PUSH FEF|44  ;'<K:FPU-UNLOAD-LOW>
228 MOVE D-LAST FEF|34  ;'<K:UNBOXED>
229 CALL D-IGNORE FEF|45  ;'NIL
230 MOVE D-LAST LOCAL|13
231 BR-NOT-NIL 238
232 CALL D-IGNORE FEF|46  ;'NIL
233 MOVE D-LAST LOCAL|13
234 BR-NOT-NIL 238
235 CALL D-IGNORE FEF|47  ;'NIL
236 PUSH FEF|7  ;':R0
237 MOVE D-LAST LOCAL|13
238 CALL D-IGNORE FEF|45  ;'NIL
239 MOVE D-LAST LOCAL|14
240 BR-NOT-NIL 247
241 CALL D-IGNORE FEF|46  ;'NIL
242 MOVE D-LAST LOCAL|14
243 BR-NOT-NIL 247
244 CALL D-IGNORE FEF|47  ;'NIL
245 PUSH FEF|6  ;':R1
246 MOVE D-LAST LOCAL|14
247 CALL D-RETURN FEF|40  ;'NIL
248 PUSH LOCAL|13
249 PUSH LOCAL|5
250 MOVE D-LAST '2
)

(FASL-OP-STOREIN-FUNCTION-CELL [8238] {#<DTP-FEF-POINTER <GENERATE-FLOAT-DOUBLE-OP> 52312142>}
  (FASL-OP-INDEX [7880] {<GENERATE-FLOAT-DOUBLE-OP>}))

(FASL-OP-EVAL1
  (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (FASL-OP-PACKAGE-SYMBOL
      (FASL-OP-INDEX [181] {"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 [58] {<GLOBAL:QUOTE>})
      (FASL-OP-LIST [29] Area=WORKING-STORAGE-AREA
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [8204] {<LAMBDA-NODE?>})
          (FASL-OP-FIXED 12313451)
         => (<LAMBDA-NODE?> 12313451))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [8203] {<LAMBDA-NODE-P>})
          (FASL-OP-FIXED 34066054)
         => (<LAMBDA-NODE-P> 34066054))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [8202] {<LAMBDA-VARIABLES>})
          (FASL-OP-FIXED 26055312)
         => (<LAMBDA-VARIABLES> 26055312))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [8201] {<LAMBDA-ALL-VARIABLES>})
          (FASL-OP-FIXED 13260024)
         => (<LAMBDA-ALL-VARIABLES> 13260024))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [7843] {<DOTIMES>})
          (FASL-OP-FIXED 1056157)
         => (<DOTIMES> 1056157))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [7795] {<WHEN>})
          (FASL-OP-FIXED 37707667)
         => (<WHEN> 37707667))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [804] {<CONT>})
          (FASL-OP-FIXED 36144210)
         => (<CONT> 36144210))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [1190] {<UNBOXED-FCN>})
          (FASL-OP-FIXED 22706134)
         => (<UNBOXED-FCN> 22706134))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [3253] {<UNLESS>})
          (FASL-OP-FIXED 16640044)
         => (<UNLESS> 16640044))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [2973] {<LITERAL-VALUE>})
          (FASL-OP-FIXED 5065024)
         => (<LITERAL-VALUE> 5065024))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [1951] {<LITERAL-NODE?>})
          (FASL-OP-FIXED 33320523)
         => (<LITERAL-NODE?> 33320523))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [2019] {<LEAF-NODE-P>})
          (FASL-OP-FIXED 11223674)
         => (<LEAF-NODE-P> 11223674))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [2018] {<LEAF-VARIANT>})
          (FASL-OP-FIXED 22074732)
         => (<LEAF-VARIANT> 22074732))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [1682] {<LOGNOT>})
          (FASL-OP-FIXED 603564)
         => (<LOGNOT> 603564))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [1470] {<NLISP:LDB>})
          (FASL-OP-FIXED 10147256)
         => (<NLISP:LDB> 10147256))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [798] {<NLISP:DPB>})
          (FASL-OP-FIXED 6301772)
         => (<NLISP:DPB> 6301772))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [1248] {<BYTE>})
          (FASL-OP-FIXED 37573463)
         => (<BYTE> 37573463))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [1197] {<SI:XR-BQ-LIST>})
          (FASL-OP-FIXED 37403313)
         => (<SI:XR-BQ-LIST> 37403313))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [1207] {<SI:XR-BQ-LIST*>})
          (FASL-OP-FIXED 20425672)
         => (<SI:XR-BQ-LIST*> 20425672))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [1205] {<GLOBAL:INHIBIT-STYLE-WARNINGS>})
          (FASL-OP-FIXED 27740223)
         => (<GLOBAL:INHIBIT-STYLE-WARNINGS> 27740223))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [1203] {<PSETQ>})
          (FASL-OP-FIXED 12776506)
         => (<PSETQ> 12776506))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [1178] {<CONSP>})
          (FASL-OP-FIXED 23530756)
         => (<CONSP> 23530756))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [803] {<DESTRUCTURE>})
          (FASL-OP-FIXED 20257660)
         => (<DESTRUCTURE> 20257660))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [806] {<CALL-ARGS>})
          (FASL-OP-FIXED 33076514)
         => (<CALL-ARGS> 33076514))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [344] {<IF>})
          (FASL-OP-FIXED 35276704)
         => (<IF> 35276704))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [277] {<CALL-ARG-N>})
          (FASL-OP-FIXED 37122754)
         => (<CALL-ARG-N> 37122754))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [306] {<CALL-PROC+ARGS>})
          (FASL-OP-FIXED 37305264)
         => (<CALL-PROC+ARGS> 37305264))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [276] {<LEAF-VALUE>})
          (FASL-OP-FIXED 22075732)
         => (<LEAF-VALUE> 22075732))
        (FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (FASL-OP-INDEX [139] {<MAKE-TABLE>})
          (FASL-OP-FIXED 35660211)
         => (<MAKE-TABLE> 35660211))
       => ((<LAMBDA-NODE?> 12313451) (<LAMBDA-NODE-P> 34066054) (<LAMBDA-VARIABLES> 26055312) (<LAMBDA-ALL-VARIABLES> 13260024) (<DOTIMES> 1056157) (<WHEN> 37707667) (<CONT> 36144210) (<UNBOXED-FCN> 22706134) (<UNLESS> 16640044) (<LITERAL-VALUE> 5065024) (<LITERAL-NODE?> 33320523) (<LEAF-NODE-P> 11223674) (<LEAF-VARIANT> 22074732) (<LOGNOT> 603564) (<NLISP:LDB> 10147256) (<NLISP:DPB> 6301772) (<BYTE> 37573463) (<SI:XR-BQ-LIST> 37403313) (<SI:XR-BQ-LIST*> 20425672) (<GLOBAL:INHIBIT-STYLE-WARNINGS> 27740223) (<PSETQ> 12776506) (<CONSP> 23530756) (<DESTRUCTURE> 20257660) (<CALL-ARGS> 33076514) (<IF> 35276704) (<CALL-ARG-N> 37122754) (<CALL-PROC+ARGS> 37305264) (<LEAF-VALUE> 22075732) (<MAKE-TABLE> 35660211)))
     => (<GLOBAL:QUOTE> ((<LAMBDA-NODE?> 12313451) (<LAMBDA-NODE-P> 34066054) (<LAMBDA-VARIABLES> 26055312) (<LAMBDA-ALL-VARIABLES> 13260024) (<DOTIMES> 1056157) (<WHEN> 37707667) (<CONT> 36144210) (<UNBOXED-FCN> 22706134) (<UNLESS> 16640044) (<LITERAL-VALUE> 5065024) (<LITERAL-NODE?> 33320523) (<LEAF-NODE-P> 11223674) (<LEAF-VARIANT> 22074732) (<LOGNOT> 603564) (<NLISP:LDB> 10147256) (<NLISP:DPB> 6301772) (<BYTE> 37573463) (<SI:XR-BQ-LIST> 37403313) (<SI:XR-BQ-LIST*> 20425672) (<GLOBAL:INHIBIT-STYLE-WARNINGS> 27740223) (<PSETQ> 12776506) (<CONSP> 23530756) (<DESTRUCTURE> 20257660) (<CALL-ARGS> 33076514) (<IF> 35276704) (<CALL-ARG-N> 37122754) (<CALL-PROC+ARGS> 37305264) (<LEAF-VALUE> 22075732) (<MAKE-TABLE> 35660211))))
   => (<SI:FASL-RECORD-FILE-MACROS-EXPANDED> (<GLOBAL:QUOTE> ((<LAMBDA-NODE?> 12313451) (<LAMBDA-NODE-P> 34066054) (<LAMBDA-VARIABLES> 26055312) (<LAMBDA-ALL-VARIABLES> 13260024) (<DOTIMES> 1056157) (<WHEN> 37707667) (<CONT> 36144210) (<UNBOXED-FCN> 22706134) (<UNLESS> 16640044) (<LITERAL-VALUE> 5065024) (<LITERAL-NODE?> 33320523) (<LEAF-NODE-P> 11223674) (<LEAF-VARIANT> 22074732) (<LOGNOT> 603564) (<NLISP:LDB> 10147256) (<NLISP:DPB> 6301772) (<BYTE> 37573463) (<SI:XR-BQ-LIST> 37403313) (<SI:XR-BQ-LIST*> 20425672) (<GLOBAL:INHIBIT-STYLE-WARNINGS> 27740223) (<PSETQ> 12776506) (<CONSP> 23530756) (<DESTRUCTURE> 20257660) (<CALL-ARGS> 33076514) (<IF> 35276704) (<CALL-ARG-N> 37122754) (<CALL-PROC+ARGS> 37305264) (<LEAF-VALUE> 22075732) (<MAKE-TABLE> 35660211)))))
  (EVAL '(<SI:FASL-RECORD-FILE-MACROS-EXPANDED> (<GLOBAL:QUOTE> ((<LAMBDA-NODE?> 12313451) (<LAMBDA-NODE-P> 34066054) (<LAMBDA-VARIABLES> 26055312) (<LAMBDA-ALL-VARIABLES> 13260024) (<DOTIMES> 1056157) (<WHEN> 37707667) (<CONT> 36144210) (<UNBOXED-FCN> 22706134) (<UNLESS> 16640044) (<LITERAL-VALUE> 5065024) (<LITERAL-NODE?> 33320523) (<LEAF-NODE-P> 11223674) (<LEAF-VARIANT> 22074732) (<LOGNOT> 603564) (<NLISP:LDB> 10147256) (<NLISP:DPB> 6301772) (<BYTE> 37573463) (<SI:XR-BQ-LIST> 37403313) (<SI:XR-BQ-LIST*> 20425672) (<GLOBAL:INHIBIT-STYLE-WARNINGS> 27740223) (<PSETQ> 12776506) (<CONSP> 23530756) (<DESTRUCTURE> 20257660) (<CALL-ARGS> 33076514) (<IF> 35276704) (<CALL-ARG-N> 37122754) (<CALL-PROC+ARGS> 37305264) (<LEAF-VALUE> 22075732) (<MAKE-TABLE> 35660211))))))

(FASL-OP-END-OF-WHACK)

(FASL-OP-END-OF-FILE)