; -*- Mode:TEXT -*-
; This is the UNFASL for DJ: L.NETWORK.KERNEL; ARP.QFASL#130



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

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

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

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-SYMBOL <EXPORT>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-SYMBOL <GET-HARDWARE-ADDRESS>)
        (SYSTEM:FASL-OP-SYMBOL <FLUSH-HARDWARE-ADDRESS>)
        (SYSTEM:FASL-OP-SYMBOL <DESCRIBE-ARP-PACKET>)
        (SYSTEM:FASL-OP-SYMBOL <SETUP-ARP>)
       => (<GET-HARDWARE-ADDRESS> <FLUSH-HARDWARE-ADDRESS> <DESCRIBE-ARP-PACKET> <SETUP-ARP>))
     => (<GLOBAL:QUOTE> (<GET-HARDWARE-ADDRESS> <FLUSH-HARDWARE-ADDRESS> <DESCRIBE-ARP-PACKET> <SETUP-ARP>)))
   => (<EXPORT> (<GLOBAL:QUOTE> (<GET-HARDWARE-ADDRESS> <FLUSH-HARDWARE-ADDRESS> <DESCRIBE-ARP-PACKET> <SETUP-ARP>))))
  (EVAL '(<EXPORT> (<GLOBAL:QUOTE> (<GET-HARDWARE-ADDRESS> <FLUSH-HARDWARE-ADDRESS> <DESCRIBE-ARP-PACKET> <SETUP-ARP>)))))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-STRING "SI")
      (SYSTEM:FASL-OP-STRING "DEFVAR-1")
      <SI:DEFVAR-1>)
    (SYSTEM:FASL-OP-SYMBOL <*ARP-STREAM*>)
    (SYSTEM:FASL-OP-SYMBOL <NIL>)
    (SYSTEM:FASL-OP-STRING "arp-network-protocol for ARP protocol")
   => (<SI:DEFVAR-1> <*ARP-STREAM*> <NIL> "arp-network-protocol for ARP protocol"))
  (EVAL '(<SI:DEFVAR-1> <*ARP-STREAM*> <NIL> "arp-network-protocol for ARP protocol")))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [43] {"GLOBAL"})
      (SYSTEM:FASL-OP-STRING "DEFPROP")
      <GLOBAL:DEFPROP>)
    (SYSTEM:FASL-OP-SYMBOL <ARP-REQUEST>)
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-STRING "SYSTEM")
      (SYSTEM:FASL-OP-STRING "SYSTEM-CONSTANT")
      <SYSTEM:SYSTEM-CONSTANT>)
   => (<GLOBAL:DEFPROP> <ARP-REQUEST> <GLOBAL:T> <SYSTEM:SYSTEM-CONSTANT>))
  (EVAL '(<GLOBAL:DEFPROP> <ARP-REQUEST> <GLOBAL:T> <SYSTEM:SYSTEM-CONSTANT>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [97] {"SI"})
      (SYSTEM:FASL-OP-STRING "DEFCONST-1")
      <SI:DEFCONST-1>)
    (SYSTEM:FASL-OP-INDEX [107] {<ARP-REQUEST>})
    (SYSTEM:FASL-OP-FIXED 1)
   => (<SI:DEFCONST-1> <ARP-REQUEST> 1))
  (EVAL '(<SI:DEFCONST-1> <ARP-REQUEST> 1)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [106] {<GLOBAL:DEFPROP>})
    (SYSTEM:FASL-OP-SYMBOL <ARP-REPLY>)
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
    (SYSTEM:FASL-OP-INDEX [110] {<SYSTEM:SYSTEM-CONSTANT>})
   => (<GLOBAL:DEFPROP> <ARP-REPLY> <GLOBAL:T> <SYSTEM:SYSTEM-CONSTANT>))
  (EVAL '(<GLOBAL:DEFPROP> <ARP-REPLY> <GLOBAL:T> <SYSTEM:SYSTEM-CONSTANT>)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [114] {<SI:DEFCONST-1>})
    (SYSTEM:FASL-OP-INDEX [118] {<ARP-REPLY>})
    (SYSTEM:FASL-OP-FIXED 2)
   => (<SI:DEFCONST-1> <ARP-REPLY> 2))
  (EVAL '(<SI:DEFCONST-1> <ARP-REPLY> 2)))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [114] {<SI:DEFCONST-1>})
    (SYSTEM:FASL-OP-SYMBOL <ARP-MAX-LENGTH>)
    (SYSTEM:FASL-OP-FIXED 50)
   => (<SI:DEFCONST-1> <ARP-MAX-LENGTH> 50))
  (EVAL '(<SI:DEFCONST-1> <ARP-MAX-LENGTH> 50)))

(SYSTEM:FASL-OP-FRAME
<GET-RCVD-ARP-PKT>
 30 PUSH ARG|1
 31 AR-1 (10) D-PDL
 32 POP LOCAL|0
 33 PUSH ARG|1
 34 AR-1 (12) D-PDL
 35 POP LOCAL|1
 36 PUSH LOCAL|0
 37 + LOCAL|1
 38 PUSH-NUMBER 2
 39 (MISC) %DIV D-PDL
 40 POP LOCAL|2
 41 CALL D-RETURN FEF|7  ;'NIL
 42 PUSH-NUMBER 2
 43 PUSH FEF|6  ;':MAX-WORDS-PER-PKT
 44 - LOCAL|2
 45 * PDL-POP
 46 PUSH FEF|8  ;'<:ELEMENT-TYPE>
 47 PUSH FEF|9  ;'(<UNSIGNED-BYTE> 8)
 48 PUSH FEF|10  ;'<:DISPLACED-TO>
 49 CALL D-PDL FEF|11  ;'NIL
 50 MOVE D-LAST ARG|0
 51 PUSH FEF|12  ;'<:DISPLACED-INDEX-OFFSET>
 52 PUSH LOCAL|0
 53 PUSH FEF|13  ;'<:FILL-POINTER>
 54 PUSH-NUMBER 2
 55 PUSH ARG|0
 56 ARRAY-LEADER (0) D-PDL
 57 - LOCAL|2
 58 * PDL-POP
 59 MOVE D-LAST PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [180] {#<GLOBAL:DTP-FEF-POINTER <GET-RCVD-ARP-PKT> 55013255>}
  (SYSTEM:FASL-OP-INDEX [130] {<GET-RCVD-ARP-PKT>}))

(SYSTEM:FASL-OP-FRAME
<GET-SENT-ARP-PKT>
 30 PUSH ARG|1
 31 AR-1 (9) D-PDL
 32 POP LOCAL|0
 33 PUSH ARG|1
 34 AR-1 (11) D-PDL
 35 POP LOCAL|1
 36 PUSH LOCAL|0
 37 + LOCAL|1
 38 PUSH-NUMBER 2
 39 (MISC) %DIV D-PDL
 40 POP LOCAL|2
 41 CALL D-RETURN FEF|7  ;'NIL
 42 PUSH-NUMBER 2
 43 PUSH FEF|6  ;':MAX-WORDS-PER-PKT
 44 - LOCAL|2
 45 * PDL-POP
 46 PUSH FEF|8  ;'<:ELEMENT-TYPE>
 47 PUSH FEF|9  ;'(<UNSIGNED-BYTE> 8)
 48 PUSH FEF|10  ;'<:DISPLACED-TO>
 49 CALL D-PDL FEF|11  ;'NIL
 50 MOVE D-LAST ARG|0
 51 PUSH FEF|12  ;'<:DISPLACED-INDEX-OFFSET>
 52 PUSH LOCAL|0
 53 PUSH FEF|13  ;'<:FILL-POINTER>
 54 MOVE D-LAST '0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [206] {#<GLOBAL:DTP-FEF-POINTER <GET-SENT-ARP-PKT> 55020064>}
  (SYSTEM:FASL-OP-INDEX [183] {<GET-SENT-ARP-PKT>}))

(SYSTEM:FASL-OP-FRAME
<GET-ADDRESS-FROM-PKT-HIGH-BYTE-FIRST>
 14 SET-ZERO LOCAL|0
 15 PUSH-NUMBER 0
 16 PUSH ARG|2
 17 POP LOCAL|2
 18 POP LOCAL|1
 19 BR 38
 20 PUSH ARG|0
 21 PUSH LOCAL|1
 22 + ARG|1
 23 (MISC) COMMON-LISP-AR-1 D-PDL
 24 PUSH-NUMBER 8
 25 PUSH-NUMBER 8
 26 PUSH ARG|2
 27 - LOCAL|1
 28 PUSH 1- PDL-POP
 29 * PDL-POP
 30 PUSH-NUMBER 407
 31 PUSH-NUMBER 0
 32 (MISC) DPB D-PDL
 33 + PDL-POP
 34 PUSH LOCAL|0
 35 (MISC) DPB D-PDL
 36 POP LOCAL|0
 37 INCF LOCAL|1
 38 PUSH LOCAL|1
 39 < LOCAL|2
 40 BR-NOT-NIL 20
 41 MOVE D-RETURN LOCAL|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [235] {#<GLOBAL:DTP-FEF-POINTER <GET-ADDRESS-FROM-PKT-HIGH-BYTE-FIRST> 55020604>}
  (SYSTEM:FASL-OP-INDEX [209] {<GET-ADDRESS-FROM-PKT-HIGH-BYTE-FIRST>}))

(SYSTEM:FASL-OP-FRAME
<SET-ADDRESS-TO-PKT-HIGH-BYTE-FIRST>
 14 PUSH-NUMBER 0
 15 PUSH ARG|3
 16 POP LOCAL|1
 17 POP LOCAL|0
 18 BR 36
 19 PUSH ARG|1
 20 PUSH LOCAL|0
 21 + ARG|2
 22 PUSH-NUMBER 8
 23 PUSH-NUMBER 8
 24 PUSH ARG|3
 25 - LOCAL|0
 26 PUSH 1- PDL-POP
 27 * PDL-POP
 28 PUSH-NUMBER 407
 29 PUSH-NUMBER 0
 30 (MISC) DPB D-PDL
 31 + PDL-POP
 32 PUSH ARG|0
 33 (MISC) LDB D-PDL
 34 (MISC) SET-AR-1 D-IGNORE
 35 INCF LOCAL|0
 36 PUSH LOCAL|0
 37 < LOCAL|1
 38 BR-NOT-NIL 19
 39 MOVE D-RETURN ARG|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [257] {#<GLOBAL:DTP-FEF-POINTER <SET-ADDRESS-TO-PKT-HIGH-BYTE-FIRST> 55021340>}
  (SYSTEM:FASL-OP-INDEX [238] {<SET-ADDRESS-TO-PKT-HIGH-BYTE-FIRST>}))

(SYSTEM:FASL-OP-FRAME
<GET-ADDRESS-FROM-PKT-LOW-BYTE-FIRST>
 14 SET-ZERO LOCAL|0
 15 PUSH-NUMBER 0
 16 PUSH ARG|2
 17 POP LOCAL|2
 18 POP LOCAL|1
 19 BR 35
 20 PUSH ARG|0
 21 PUSH LOCAL|1
 22 + ARG|1
 23 (MISC) COMMON-LISP-AR-1 D-PDL
 24 PUSH-NUMBER 8
 25 PUSH-NUMBER 8
 26 * LOCAL|1
 27 PUSH-NUMBER 407
 28 PUSH-NUMBER 0
 29 (MISC) DPB D-PDL
 30 + PDL-POP
 31 PUSH LOCAL|0
 32 (MISC) DPB D-PDL
 33 POP LOCAL|0
 34 INCF LOCAL|1
 35 PUSH LOCAL|1
 36 < LOCAL|2
 37 BR-NOT-NIL 20
 38 MOVE D-RETURN LOCAL|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [277] {#<GLOBAL:DTP-FEF-POINTER <GET-ADDRESS-FROM-PKT-LOW-BYTE-FIRST> 55021655>}
  (SYSTEM:FASL-OP-INDEX [260] {<GET-ADDRESS-FROM-PKT-LOW-BYTE-FIRST>}))

(SYSTEM:FASL-OP-FRAME
<SET-ADDRESS-TO-PKT-LOW-BYTE-FIRST>
 14 PUSH-NUMBER 0
 15 PUSH ARG|3
 16 POP LOCAL|1
 17 POP LOCAL|0
 18 BR 33
 19 PUSH ARG|1
 20 PUSH LOCAL|0
 21 + ARG|2
 22 PUSH-NUMBER 8
 23 PUSH LOCAL|0
 24 * '8
 25 PUSH-NUMBER 407
 26 PUSH-NUMBER 0
 27 (MISC) DPB D-PDL
 28 + PDL-POP
 29 PUSH ARG|0
 30 (MISC) LDB D-PDL
 31 (MISC) SET-AR-1 D-IGNORE
 32 INCF LOCAL|0
 33 PUSH LOCAL|0
 34 < LOCAL|1
 35 BR-NOT-NIL 19
 36 MOVE D-RETURN ARG|0
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [297] {#<GLOBAL:DTP-FEF-POINTER <SET-ADDRESS-TO-PKT-LOW-BYTE-FIRST> 55022176>}
  (SYSTEM:FASL-OP-INDEX [280] {<SET-ADDRESS-TO-PKT-LOW-BYTE-FIRST>}))

(SYSTEM:FASL-OP-FRAME
<AR-HARDWARE>
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 < '2
 29 BR-NOT-NIL 34
 30 PUSH ARG|0
 31 (MISC) LENGTH D-PDL
 32 > '2
 33 BR-NIL 38
 34 CALL D-IGNORE FEF|6  ;':SI
 35 PUSH ARG|0
 36 PUSH-NUMBER 1
 37 MOVE D-LAST '1
 38 CADR D-PDL ARG|0
 39 POP LOCAL|0
 40 PUSH FEF|7  ;'<DPB>
 41 PUSH FEF|8  ;'<AREF>
 42 PUSH LOCAL|0
 43 PUSH FEF|9  ;'(0)
 44 PUSH-NUMBER 3
 45 (MISC) %INTERNAL-LIST* D-PDL
 46 PUSH FEF|10  ;'(<BYTE> 8 8)
 47 PUSH FEF|8  ;'<AREF>
 48 PUSH LOCAL|0
 49 PUSH FEF|11  ;'(1)
 50 PUSH-NUMBER 3
 51 (MISC) %INTERNAL-LIST* D-PDL
 52 PUSH-NUMBER 4
 53 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-PACKAGE-SYMBOL
    (SYSTEM:FASL-OP-INDEX [43] {"GLOBAL"})
    (SYSTEM:FASL-OP-STRING "MACRO")
    <GLOBAL:MACRO>)
  (SYSTEM:FASL-OP-INDEX [343] {#<GLOBAL:DTP-FEF-POINTER <AR-HARDWARE> 55022464>})
 => (<GLOBAL:MACRO> . #<GLOBAL:DTP-FEF-POINTER <AR-HARDWARE> 55022464>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [346] {(<GLOBAL:MACRO> . #<GLOBAL:DTP-FEF-POINTER <AR-HARDWARE> 55022464>)}
  (SYSTEM:FASL-OP-INDEX [300] {<AR-HARDWARE>}))

(SYSTEM:FASL-OP-FRAME
<SET-AR-HARDWARE>
 14 PUSH ARG|0
 15 PUSH-NUMBER 8
 16 PUSH ARG|1
 17 (MISC) LDB D-PDL
 18 SET-AR-1 (1) D-IGNORE
 19 PUSH ARG|0
 20 PUSH '520
 21 PUSH ARG|1
 22 (MISC) LDB D-PDL
 23 SET-AR-1 (0) D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [361] {#<GLOBAL:DTP-FEF-POINTER <SET-AR-HARDWARE> 55025367>}
  (SYSTEM:FASL-OP-INDEX [349] {<SET-AR-HARDWARE>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [43] {"GLOBAL"})
      (SYSTEM:FASL-OP-STRING "PUTPROP")
      <GLOBAL:PUTPROP>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [300] {<AR-HARDWARE>})
     => (<GLOBAL:QUOTE> <AR-HARDWARE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [349] {<SET-AR-HARDWARE>})
     => (<GLOBAL:QUOTE> <SET-AR-HARDWARE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [97] {"SI"})
        (SYSTEM:FASL-OP-STRING "SETF-METHOD")
        <SI:SETF-METHOD>)
     => (<GLOBAL:QUOTE> <SI:SETF-METHOD>))
   => (<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-HARDWARE>) (<GLOBAL:QUOTE> <SET-AR-HARDWARE>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>)))
  (EVAL '(<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-HARDWARE>) (<GLOBAL:QUOTE> <SET-AR-HARDWARE>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>))))

(SYSTEM:FASL-OP-FRAME
<AR-PROTOCOL>
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 < '2
 29 BR-NOT-NIL 34
 30 PUSH ARG|0
 31 (MISC) LENGTH D-PDL
 32 > '2
 33 BR-NIL 38
 34 CALL D-IGNORE FEF|6  ;':SI
 35 PUSH ARG|0
 36 PUSH-NUMBER 1
 37 MOVE D-LAST '1
 38 CADR D-PDL ARG|0
 39 POP LOCAL|0
 40 PUSH FEF|7  ;'<DPB>
 41 PUSH FEF|8  ;'<AREF>
 42 PUSH LOCAL|0
 43 PUSH FEF|9  ;'(2)
 44 PUSH-NUMBER 3
 45 (MISC) %INTERNAL-LIST* D-PDL
 46 PUSH FEF|10  ;'(<BYTE> 8 8)
 47 PUSH FEF|8  ;'<AREF>
 48 PUSH LOCAL|0
 49 PUSH FEF|11  ;'(3)
 50 PUSH-NUMBER 3
 51 (MISC) %INTERNAL-LIST* D-PDL
 52 PUSH-NUMBER 4
 53 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [345] {<GLOBAL:MACRO>})
  (SYSTEM:FASL-OP-INDEX [399] {#<GLOBAL:DTP-FEF-POINTER <AR-PROTOCOL> 55026301>})
 => (<GLOBAL:MACRO> . #<GLOBAL:DTP-FEF-POINTER <AR-PROTOCOL> 55026301>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [400] {(<GLOBAL:MACRO> . #<GLOBAL:DTP-FEF-POINTER <AR-PROTOCOL> 55026301>)}
  (SYSTEM:FASL-OP-INDEX [373] {<AR-PROTOCOL>}))

(SYSTEM:FASL-OP-FRAME
<SET-AR-PROTOCOL>
 14 PUSH ARG|0
 15 PUSH-NUMBER 8
 16 PUSH ARG|1
 17 (MISC) LDB D-PDL
 18 SET-AR-1 (3) D-IGNORE
 19 PUSH ARG|0
 20 PUSH '520
 21 PUSH ARG|1
 22 (MISC) LDB D-PDL
 23 SET-AR-1 (2) D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [415] {#<GLOBAL:DTP-FEF-POINTER <SET-AR-PROTOCOL> 55026753>}
  (SYSTEM:FASL-OP-INDEX [403] {<SET-AR-PROTOCOL>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [363] {<GLOBAL:PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [373] {<AR-PROTOCOL>})
     => (<GLOBAL:QUOTE> <AR-PROTOCOL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [403] {<SET-AR-PROTOCOL>})
     => (<GLOBAL:QUOTE> <SET-AR-PROTOCOL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [367] {<SI:SETF-METHOD>})
     => (<GLOBAL:QUOTE> <SI:SETF-METHOD>))
   => (<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-PROTOCOL>) (<GLOBAL:QUOTE> <SET-AR-PROTOCOL>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>)))
  (EVAL '(<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-PROTOCOL>) (<GLOBAL:QUOTE> <SET-AR-PROTOCOL>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>))))

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

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [345] {<GLOBAL:MACRO>})
  (SYSTEM:FASL-OP-INDEX [444] {#<GLOBAL:DTP-FEF-POINTER <AR-HARDWARE-ADR-LENGTH> 55027636>})
 => (<GLOBAL:MACRO> . #<GLOBAL:DTP-FEF-POINTER <AR-HARDWARE-ADR-LENGTH> 55027636>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [445] {(<GLOBAL:MACRO> . #<GLOBAL:DTP-FEF-POINTER <AR-HARDWARE-ADR-LENGTH> 55027636>)}
  (SYSTEM:FASL-OP-INDEX [423] {<AR-HARDWARE-ADR-LENGTH>}))

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

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [345] {<GLOBAL:MACRO>})
  (SYSTEM:FASL-OP-INDEX [469] {#<GLOBAL:DTP-FEF-POINTER <AR-PROTOCOL-ADR-LENGTH> 55030251>})
 => (<GLOBAL:MACRO> . #<GLOBAL:DTP-FEF-POINTER <AR-PROTOCOL-ADR-LENGTH> 55030251>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [470] {(<GLOBAL:MACRO> . #<GLOBAL:DTP-FEF-POINTER <AR-PROTOCOL-ADR-LENGTH> 55030251>)}
  (SYSTEM:FASL-OP-INDEX [448] {<AR-PROTOCOL-ADR-LENGTH>}))

(SYSTEM:FASL-OP-FRAME
<AR-OPCODE>
 26 PUSH ARG|0
 27 (MISC) LENGTH D-PDL
 28 < '2
 29 BR-NOT-NIL 34
 30 PUSH ARG|0
 31 (MISC) LENGTH D-PDL
 32 > '2
 33 BR-NIL 38
 34 CALL D-IGNORE FEF|6  ;':SI
 35 PUSH ARG|0
 36 PUSH-NUMBER 1
 37 MOVE D-LAST '1
 38 CADR D-PDL ARG|0
 39 POP LOCAL|0
 40 PUSH FEF|7  ;'<DPB>
 41 PUSH FEF|8  ;'<AREF>
 42 PUSH LOCAL|0
 43 PUSH FEF|9  ;'(6)
 44 PUSH-NUMBER 3
 45 (MISC) %INTERNAL-LIST* D-PDL
 46 PUSH FEF|10  ;'(<BYTE> 8 8)
 47 PUSH FEF|8  ;'<AREF>
 48 PUSH LOCAL|0
 49 PUSH FEF|11  ;'(7)
 50 PUSH-NUMBER 3
 51 (MISC) %INTERNAL-LIST* D-PDL
 52 PUSH-NUMBER 4
 53 (MISC) %INTERNAL-LIST D-RETURN
)

(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-INDEX [345] {<GLOBAL:MACRO>})
  (SYSTEM:FASL-OP-INDEX [499] {#<GLOBAL:DTP-FEF-POINTER <AR-OPCODE> 55030706>})
 => (<GLOBAL:MACRO> . #<GLOBAL:DTP-FEF-POINTER <AR-OPCODE> 55030706>))

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [500] {(<GLOBAL:MACRO> . #<GLOBAL:DTP-FEF-POINTER <AR-OPCODE> 55030706>)}
  (SYSTEM:FASL-OP-INDEX [473] {<AR-OPCODE>}))

(SYSTEM:FASL-OP-FRAME
<SET-AR-OPCODE>
 14 PUSH ARG|0
 15 PUSH-NUMBER 8
 16 PUSH ARG|1
 17 (MISC) LDB D-PDL
 18 SET-AR-1 (7) D-IGNORE
 19 PUSH ARG|0
 20 PUSH '520
 21 PUSH ARG|1
 22 (MISC) LDB D-PDL
 23 SET-AR-1 (6) D-RETURN
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [515] {#<GLOBAL:DTP-FEF-POINTER <SET-AR-OPCODE> 55031411>}
  (SYSTEM:FASL-OP-INDEX [503] {<SET-AR-OPCODE>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [363] {<GLOBAL:PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [473] {<AR-OPCODE>})
     => (<GLOBAL:QUOTE> <AR-OPCODE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [503] {<SET-AR-OPCODE>})
     => (<GLOBAL:QUOTE> <SET-AR-OPCODE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [367] {<SI:SETF-METHOD>})
     => (<GLOBAL:QUOTE> <SI:SETF-METHOD>))
   => (<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-OPCODE>) (<GLOBAL:QUOTE> <SET-AR-OPCODE>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>)))
  (EVAL '(<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-OPCODE>) (<GLOBAL:QUOTE> <SET-AR-OPCODE>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>))))

(SYSTEM:FASL-OP-FRAME
<AR-HARDWARE-SENDER>
 16 CALL D-RETURN FEF|6  ;'NIL
 17 PUSH ARG|0
 18 PUSH-NUMBER 8
 19 PUSH ARG|0
 20 COMMON-LISP-AR-1 (4) D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [547] {#<GLOBAL:DTP-FEF-POINTER <AR-HARDWARE-SENDER> 55032200>}
  (SYSTEM:FASL-OP-INDEX [523] {<AR-HARDWARE-SENDER>}))

(SYSTEM:FASL-OP-FRAME
<SET-AR-HARDWARE-SENDER>
 16 CALL D-RETURN FEF|6  ;'NIL
 17 PUSH ARG|1
 18 PUSH ARG|0
 19 PUSH-NUMBER 8
 20 PUSH ARG|0
 21 COMMON-LISP-AR-1 (4) D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [568] {#<GLOBAL:DTP-FEF-POINTER <SET-AR-HARDWARE-SENDER> 55032570>}
  (SYSTEM:FASL-OP-INDEX [550] {<SET-AR-HARDWARE-SENDER>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [363] {<GLOBAL:PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [523] {<AR-HARDWARE-SENDER>})
     => (<GLOBAL:QUOTE> <AR-HARDWARE-SENDER>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [550] {<SET-AR-HARDWARE-SENDER>})
     => (<GLOBAL:QUOTE> <SET-AR-HARDWARE-SENDER>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [367] {<SI:SETF-METHOD>})
     => (<GLOBAL:QUOTE> <SI:SETF-METHOD>))
   => (<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-HARDWARE-SENDER>) (<GLOBAL:QUOTE> <SET-AR-HARDWARE-SENDER>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>)))
  (EVAL '(<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-HARDWARE-SENDER>) (<GLOBAL:QUOTE> <SET-AR-HARDWARE-SENDER>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>))))

(SYSTEM:FASL-OP-FRAME
<AR-HARDWARE-SENDER-REV>
 16 CALL D-RETURN FEF|6  ;'NIL
 17 PUSH ARG|0
 18 PUSH-NUMBER 8
 19 PUSH ARG|0
 20 COMMON-LISP-AR-1 (4) D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [593] {#<GLOBAL:DTP-FEF-POINTER <AR-HARDWARE-SENDER-REV> 55033400>}
  (SYSTEM:FASL-OP-INDEX [576] {<AR-HARDWARE-SENDER-REV>}))

(SYSTEM:FASL-OP-FRAME
<SET-AR-HARDWARE-SENDER-REV>
 16 CALL D-RETURN FEF|6  ;'NIL
 17 PUSH ARG|1
 18 PUSH ARG|0
 19 PUSH-NUMBER 8
 20 PUSH ARG|0
 21 COMMON-LISP-AR-1 (4) D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [614] {#<GLOBAL:DTP-FEF-POINTER <SET-AR-HARDWARE-SENDER-REV> 55034243>}
  (SYSTEM:FASL-OP-INDEX [596] {<SET-AR-HARDWARE-SENDER-REV>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [363] {<GLOBAL:PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [576] {<AR-HARDWARE-SENDER-REV>})
     => (<GLOBAL:QUOTE> <AR-HARDWARE-SENDER-REV>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [596] {<SET-AR-HARDWARE-SENDER-REV>})
     => (<GLOBAL:QUOTE> <SET-AR-HARDWARE-SENDER-REV>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [367] {<SI:SETF-METHOD>})
     => (<GLOBAL:QUOTE> <SI:SETF-METHOD>))
   => (<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-HARDWARE-SENDER-REV>) (<GLOBAL:QUOTE> <SET-AR-HARDWARE-SENDER-REV>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>)))
  (EVAL '(<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-HARDWARE-SENDER-REV>) (<GLOBAL:QUOTE> <SET-AR-HARDWARE-SENDER-REV>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>))))

(SYSTEM:FASL-OP-FRAME
<AR-PROTOCOL-SENDER>
 16 CALL D-RETURN FEF|6  ;'NIL
 17 PUSH ARG|0
 18 PUSH-NUMBER 8
 19 PUSH ARG|0
 20 COMMON-LISP-AR-1 (4) D-PDL
 21 + PDL-POP
 22 PUSH ARG|0
 23 COMMON-LISP-AR-1 (5) D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [642] {#<GLOBAL:DTP-FEF-POINTER <AR-PROTOCOL-SENDER> 55040332>}
  (SYSTEM:FASL-OP-INDEX [622] {<AR-PROTOCOL-SENDER>}))

(SYSTEM:FASL-OP-FRAME
<SET-AR-PROTOCOL-SENDER>
 16 CALL D-RETURN FEF|6  ;'NIL
 17 PUSH ARG|1
 18 PUSH ARG|0
 19 PUSH-NUMBER 8
 20 PUSH ARG|0
 21 COMMON-LISP-AR-1 (4) D-PDL
 22 + PDL-POP
 23 PUSH ARG|0
 24 COMMON-LISP-AR-1 (5) D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [665] {#<GLOBAL:DTP-FEF-POINTER <SET-AR-PROTOCOL-SENDER> 55041514>}
  (SYSTEM:FASL-OP-INDEX [645] {<SET-AR-PROTOCOL-SENDER>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [363] {<GLOBAL:PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [622] {<AR-PROTOCOL-SENDER>})
     => (<GLOBAL:QUOTE> <AR-PROTOCOL-SENDER>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [645] {<SET-AR-PROTOCOL-SENDER>})
     => (<GLOBAL:QUOTE> <SET-AR-PROTOCOL-SENDER>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [367] {<SI:SETF-METHOD>})
     => (<GLOBAL:QUOTE> <SI:SETF-METHOD>))
   => (<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-PROTOCOL-SENDER>) (<GLOBAL:QUOTE> <SET-AR-PROTOCOL-SENDER>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>)))
  (EVAL '(<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-PROTOCOL-SENDER>) (<GLOBAL:QUOTE> <SET-AR-PROTOCOL-SENDER>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>))))

(SYSTEM:FASL-OP-FRAME
<AR-PROTOCOL-SENDER-REV>
 16 CALL D-RETURN FEF|6  ;'NIL
 17 PUSH ARG|0
 18 PUSH-NUMBER 8
 19 PUSH ARG|0
 20 COMMON-LISP-AR-1 (4) D-PDL
 21 + PDL-POP
 22 PUSH ARG|0
 23 COMMON-LISP-AR-1 (5) D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [692] {#<GLOBAL:DTP-FEF-POINTER <AR-PROTOCOL-SENDER-REV> 55043206>}
  (SYSTEM:FASL-OP-INDEX [673] {<AR-PROTOCOL-SENDER-REV>}))

(SYSTEM:FASL-OP-FRAME
<SET-AR-PROTOCOL-SENDER-REV>
 16 CALL D-RETURN FEF|6  ;'NIL
 17 PUSH ARG|1
 18 PUSH ARG|0
 19 PUSH-NUMBER 8
 20 PUSH ARG|0
 21 COMMON-LISP-AR-1 (4) D-PDL
 22 + PDL-POP
 23 PUSH ARG|0
 24 COMMON-LISP-AR-1 (5) D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [715] {#<GLOBAL:DTP-FEF-POINTER <SET-AR-PROTOCOL-SENDER-REV> 55045544>}
  (SYSTEM:FASL-OP-INDEX [695] {<SET-AR-PROTOCOL-SENDER-REV>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [363] {<GLOBAL:PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [673] {<AR-PROTOCOL-SENDER-REV>})
     => (<GLOBAL:QUOTE> <AR-PROTOCOL-SENDER-REV>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [695] {<SET-AR-PROTOCOL-SENDER-REV>})
     => (<GLOBAL:QUOTE> <SET-AR-PROTOCOL-SENDER-REV>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [367] {<SI:SETF-METHOD>})
     => (<GLOBAL:QUOTE> <SI:SETF-METHOD>))
   => (<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-PROTOCOL-SENDER-REV>) (<GLOBAL:QUOTE> <SET-AR-PROTOCOL-SENDER-REV>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>)))
  (EVAL '(<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-PROTOCOL-SENDER-REV>) (<GLOBAL:QUOTE> <SET-AR-PROTOCOL-SENDER-REV>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>))))

(SYSTEM:FASL-OP-FRAME
<AR-HARDWARE-TARGET>
 16 CALL D-RETURN FEF|6  ;'NIL
 17 PUSH ARG|0
 18 PUSH-NUMBER 8
 19 PUSH ARG|0
 20 COMMON-LISP-AR-1 (4) D-PDL
 21 + PDL-POP
 22 PUSH ARG|0
 23 COMMON-LISP-AR-1 (5) D-PDL
 24 + PDL-POP
 25 PUSH ARG|0
 26 COMMON-LISP-AR-1 (4) D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [743] {#<GLOBAL:DTP-FEF-POINTER <AR-HARDWARE-TARGET> 55046503>}
  (SYSTEM:FASL-OP-INDEX [723] {<AR-HARDWARE-TARGET>}))

(SYSTEM:FASL-OP-FRAME
<SET-AR-HARDWARE-TARGET>
 16 CALL D-RETURN FEF|6  ;'NIL
 17 PUSH ARG|1
 18 PUSH ARG|0
 19 PUSH-NUMBER 8
 20 PUSH ARG|0
 21 COMMON-LISP-AR-1 (4) D-PDL
 22 + PDL-POP
 23 PUSH ARG|0
 24 COMMON-LISP-AR-1 (5) D-PDL
 25 + PDL-POP
 26 PUSH ARG|0
 27 COMMON-LISP-AR-1 (4) D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [767] {#<GLOBAL:DTP-FEF-POINTER <SET-AR-HARDWARE-TARGET> 55046774>}
  (SYSTEM:FASL-OP-INDEX [746] {<SET-AR-HARDWARE-TARGET>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [363] {<GLOBAL:PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [723] {<AR-HARDWARE-TARGET>})
     => (<GLOBAL:QUOTE> <AR-HARDWARE-TARGET>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [746] {<SET-AR-HARDWARE-TARGET>})
     => (<GLOBAL:QUOTE> <SET-AR-HARDWARE-TARGET>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [367] {<SI:SETF-METHOD>})
     => (<GLOBAL:QUOTE> <SI:SETF-METHOD>))
   => (<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-HARDWARE-TARGET>) (<GLOBAL:QUOTE> <SET-AR-HARDWARE-TARGET>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>)))
  (EVAL '(<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-HARDWARE-TARGET>) (<GLOBAL:QUOTE> <SET-AR-HARDWARE-TARGET>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>))))

(SYSTEM:FASL-OP-FRAME
<AR-HARDWARE-TARGET-REV>
 16 CALL D-RETURN FEF|6  ;'NIL
 17 PUSH ARG|0
 18 PUSH-NUMBER 8
 19 PUSH ARG|0
 20 COMMON-LISP-AR-1 (4) D-PDL
 21 + PDL-POP
 22 PUSH ARG|0
 23 COMMON-LISP-AR-1 (5) D-PDL
 24 + PDL-POP
 25 PUSH ARG|0
 26 COMMON-LISP-AR-1 (4) D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [795] {#<GLOBAL:DTP-FEF-POINTER <AR-HARDWARE-TARGET-REV> 55047705>}
  (SYSTEM:FASL-OP-INDEX [775] {<AR-HARDWARE-TARGET-REV>}))

(SYSTEM:FASL-OP-FRAME
<SET-AR-HARDWARE-TARGET-REV>
 16 CALL D-RETURN FEF|6  ;'NIL
 17 PUSH ARG|1
 18 PUSH ARG|0
 19 PUSH-NUMBER 8
 20 PUSH ARG|0
 21 COMMON-LISP-AR-1 (4) D-PDL
 22 + PDL-POP
 23 PUSH ARG|0
 24 COMMON-LISP-AR-1 (5) D-PDL
 25 + PDL-POP
 26 PUSH ARG|0
 27 COMMON-LISP-AR-1 (4) D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [819] {#<GLOBAL:DTP-FEF-POINTER <SET-AR-HARDWARE-TARGET-REV> 55050172>}
  (SYSTEM:FASL-OP-INDEX [798] {<SET-AR-HARDWARE-TARGET-REV>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [363] {<GLOBAL:PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [775] {<AR-HARDWARE-TARGET-REV>})
     => (<GLOBAL:QUOTE> <AR-HARDWARE-TARGET-REV>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [798] {<SET-AR-HARDWARE-TARGET-REV>})
     => (<GLOBAL:QUOTE> <SET-AR-HARDWARE-TARGET-REV>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [367] {<SI:SETF-METHOD>})
     => (<GLOBAL:QUOTE> <SI:SETF-METHOD>))
   => (<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-HARDWARE-TARGET-REV>) (<GLOBAL:QUOTE> <SET-AR-HARDWARE-TARGET-REV>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>)))
  (EVAL '(<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-HARDWARE-TARGET-REV>) (<GLOBAL:QUOTE> <SET-AR-HARDWARE-TARGET-REV>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>))))

(SYSTEM:FASL-OP-FRAME
<AR-PROTOCOL-TARGET>
 16 CALL D-RETURN FEF|6  ;'NIL
 17 PUSH ARG|0
 18 PUSH-NUMBER 8
 19 PUSH-NUMBER 2
 20 PUSH ARG|0
 21 COMMON-LISP-AR-1 (4) D-PDL
 22 * PDL-POP
 23 + PDL-POP
 24 PUSH ARG|0
 25 COMMON-LISP-AR-1 (5) D-PDL
 26 + PDL-POP
 27 PUSH ARG|0
 28 COMMON-LISP-AR-1 (5) D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [850] {#<GLOBAL:DTP-FEF-POINTER <AR-PROTOCOL-TARGET> 55051063>}
  (SYSTEM:FASL-OP-INDEX [827] {<AR-PROTOCOL-TARGET>}))

(SYSTEM:FASL-OP-FRAME
<SET-AR-PROTOCOL-TARGET>
 16 CALL D-RETURN FEF|6  ;'NIL
 17 PUSH ARG|1
 18 PUSH ARG|0
 19 PUSH-NUMBER 8
 20 PUSH-NUMBER 2
 21 PUSH ARG|0
 22 COMMON-LISP-AR-1 (4) D-PDL
 23 * PDL-POP
 24 + PDL-POP
 25 PUSH ARG|0
 26 COMMON-LISP-AR-1 (5) D-PDL
 27 + PDL-POP
 28 PUSH ARG|0
 29 COMMON-LISP-AR-1 (5) D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [876] {#<GLOBAL:DTP-FEF-POINTER <SET-AR-PROTOCOL-TARGET> 55051461>}
  (SYSTEM:FASL-OP-INDEX [853] {<SET-AR-PROTOCOL-TARGET>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [363] {<GLOBAL:PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [827] {<AR-PROTOCOL-TARGET>})
     => (<GLOBAL:QUOTE> <AR-PROTOCOL-TARGET>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [853] {<SET-AR-PROTOCOL-TARGET>})
     => (<GLOBAL:QUOTE> <SET-AR-PROTOCOL-TARGET>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [367] {<SI:SETF-METHOD>})
     => (<GLOBAL:QUOTE> <SI:SETF-METHOD>))
   => (<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-PROTOCOL-TARGET>) (<GLOBAL:QUOTE> <SET-AR-PROTOCOL-TARGET>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>)))
  (EVAL '(<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-PROTOCOL-TARGET>) (<GLOBAL:QUOTE> <SET-AR-PROTOCOL-TARGET>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>))))

(SYSTEM:FASL-OP-FRAME
<AR-PROTOCOL-TARGET-REV>
 16 CALL D-RETURN FEF|6  ;'NIL
 17 PUSH ARG|0
 18 PUSH-NUMBER 8
 19 PUSH-NUMBER 2
 20 PUSH ARG|0
 21 COMMON-LISP-AR-1 (4) D-PDL
 22 * PDL-POP
 23 + PDL-POP
 24 PUSH ARG|0
 25 COMMON-LISP-AR-1 (5) D-PDL
 26 + PDL-POP
 27 PUSH ARG|0
 28 COMMON-LISP-AR-1 (5) D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [906] {#<GLOBAL:DTP-FEF-POINTER <AR-PROTOCOL-TARGET-REV> 55052351>}
  (SYSTEM:FASL-OP-INDEX [884] {<AR-PROTOCOL-TARGET-REV>}))

(SYSTEM:FASL-OP-FRAME
<SET-AR-PROTOCOL-TARGET-REV>
 16 CALL D-RETURN FEF|6  ;'NIL
 17 PUSH ARG|1
 18 PUSH ARG|0
 19 PUSH-NUMBER 8
 20 PUSH-NUMBER 2
 21 PUSH ARG|0
 22 COMMON-LISP-AR-1 (4) D-PDL
 23 * PDL-POP
 24 + PDL-POP
 25 PUSH ARG|0
 26 COMMON-LISP-AR-1 (5) D-PDL
 27 + PDL-POP
 28 PUSH ARG|0
 29 COMMON-LISP-AR-1 (5) D-LAST
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [932] {#<GLOBAL:DTP-FEF-POINTER <SET-AR-PROTOCOL-TARGET-REV> 55052672>}
  (SYSTEM:FASL-OP-INDEX [909] {<SET-AR-PROTOCOL-TARGET-REV>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [363] {<GLOBAL:PUTPROP>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [884] {<AR-PROTOCOL-TARGET-REV>})
     => (<GLOBAL:QUOTE> <AR-PROTOCOL-TARGET-REV>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [909] {<SET-AR-PROTOCOL-TARGET-REV>})
     => (<GLOBAL:QUOTE> <SET-AR-PROTOCOL-TARGET-REV>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [367] {<SI:SETF-METHOD>})
     => (<GLOBAL:QUOTE> <SI:SETF-METHOD>))
   => (<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-PROTOCOL-TARGET-REV>) (<GLOBAL:QUOTE> <SET-AR-PROTOCOL-TARGET-REV>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>)))
  (EVAL '(<GLOBAL:PUTPROP> (<GLOBAL:QUOTE> <AR-PROTOCOL-TARGET-REV>) (<GLOBAL:QUOTE> <SET-AR-PROTOCOL-TARGET-REV>) (<GLOBAL:QUOTE> <SI:SETF-METHOD>))))

(SYSTEM:FASL-OP-FRAME
<AR-PKT-LENGTH>
 14 PUSH-NUMBER 8
 15 PUSH-NUMBER 2
 16 PUSH ARG|0
 17 COMMON-LISP-AR-1 (4) D-PDL
 18 * PDL-POP
 19 + PDL-POP
 20 PUSH-NUMBER 2
 21 PUSH ARG|0
 22 COMMON-LISP-AR-1 (5) D-PDL
 23 * PDL-POP
 24 + PDL-POP
 25 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [962] {#<GLOBAL:DTP-FEF-POINTER <AR-PKT-LENGTH> 55054212>}
  (SYSTEM:FASL-OP-INDEX [940] {<AR-PKT-LENGTH>}))

(SYSTEM:FASL-OP-FRAME
<ARP-INT-PKT-LENGTH>
 14 PUSH ARG|0
 15 PUSH ARG|1
 16 + '2
 17 (MISC) COMMON-LISP-AR-1 D-PDL
 18 POP LOCAL|0
 19 PUSH-NUMBER 8
 20 PUSH-NUMBER 2
 21 PUSH-NUMBER 8
 22 PUSH LOCAL|0
 23 (MISC) LDB D-PDL
 24 * PDL-POP
 25 + PDL-POP
 26 PUSH-NUMBER 2
 27 PUSH '520
 28 PUSH LOCAL|0
 29 (MISC) LDB D-PDL
 30 * PDL-POP
 31 + PDL-POP
 32 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1007] {#<GLOBAL:DTP-FEF-POINTER <ARP-INT-PKT-LENGTH> 55054756>}
  (SYSTEM:FASL-OP-INDEX [965] {<ARP-INT-PKT-LENGTH>}))

(SYSTEM:FASL-OP-FRAME
<DESCRIBE-ARP-PACKET>
 80 CALL D-IGNORE FEF|6  ;'NIL
 81 PUSH 'T
 82 PUSH FEF|7  ;'"~&~S is an ~S"
 83 PUSH ARG|0
 84 MOVE D-LAST FEF|8  ;'<ADDR-RES-PKT>
 85 CALL D-IGNORE FEF|6  ;'NIL
 86 PUSH 'T
 87 PUSH FEF|9  ;'"~&   ~s~30t~o~40t~a"
 88 PUSH FEF|10  ;'<AR-HARDWARE>
 89 PUSH ARG|0
 90 COMMON-LISP-AR-1 (0) D-PDL
 91 PUSH '520
 92 PUSH ARG|0
 93 COMMON-LISP-AR-1 (1) D-PDL
 94 (MISC) DPB D-PDL
 95 PUSH ARG|0
 96 COMMON-LISP-AR-1 (0) D-PDL
 97 PUSH '520
 98 PUSH ARG|0
 99 COMMON-LISP-AR-1 (1) D-PDL
100 (MISC) DPB D-PDL
101 MOVEM LOCAL|0
102 EQ '1
103 BR-NIL 106
104 PUSH FEF|11  ;'"ETHERNET hardware"
105 BR 107
106 PUSH FEF|12  ;'"Unknown hardware type"
107 MOVE D-LAST PDL-POP
108 PUSH FEF|13  ;'<:UNKNOWN>
109 POP LOCAL|1
110 CALL D-IGNORE FEF|6  ;'NIL
111 PUSH 'T
112 PUSH FEF|9  ;'"~&   ~s~30t~o~40t~a"
113 PUSH FEF|14  ;'<AR-PROTOCOL>
114 PUSH ARG|0
115 COMMON-LISP-AR-1 (2) D-PDL
116 PUSH '520
117 PUSH ARG|0
118 COMMON-LISP-AR-1 (3) D-PDL
119 (MISC) DPB D-PDL
120 PUSH ARG|0
121 COMMON-LISP-AR-1 (2) D-PDL
122 PUSH '520
123 PUSH ARG|0
124 COMMON-LISP-AR-1 (3) D-PDL
125 (MISC) DPB D-PDL
126 MOVEM LOCAL|0
127 EQ FEF|15  ;'2052
128 BR-NIL 133
129 PUSH FEF|16  ;'<:CHAOS>
130 POP LOCAL|1
131 PUSH FEF|17  ;'"CHAOS protocol"
132 BR 146
133 PUSH LOCAL|0
134 EQ '2048
135 BR-NIL 140
136 PUSH FEF|18  ;'<:IP>
137 POP LOCAL|1
138 PUSH FEF|19  ;'"INTERNET protocol"
139 BR 146
140 PUSH LOCAL|0
141 EQ FEF|20  ;'2054
142 BR-NIL 145
143 PUSH FEF|21  ;'"ADDRESS RES protocol (this doesn't make sense)"
144 BR 146
145 PUSH FEF|22  ;'"Unknown protocol type"
146 MOVE D-LAST PDL-POP
147 CALL D-IGNORE FEF|6  ;'NIL
148 PUSH 'T
149 PUSH FEF|23  ;'"~&   ~s~30t~o (~:*~d.)"
150 PUSH FEF|24  ;'<AR-HARDWARE-ADR-LENGTH>
151 PUSH ARG|0
152 COMMON-LISP-AR-1 (4) D-LAST
153 CALL D-IGNORE FEF|6  ;'NIL
154 PUSH 'T
155 PUSH FEF|23  ;'"~&   ~s~30t~o (~:*~d.)"
156 PUSH FEF|25  ;'<AR-PROTOCOL-ADR-LENGTH>
157 PUSH ARG|0
158 COMMON-LISP-AR-1 (5) D-LAST
159 CALL D-IGNORE FEF|6  ;'NIL
160 PUSH 'T
161 PUSH FEF|9  ;'"~&   ~s~30t~o~40t~a"
162 PUSH FEF|26  ;'<AR-OPCODE>
163 PUSH ARG|0
164 COMMON-LISP-AR-1 (6) D-PDL
165 PUSH '520
166 PUSH ARG|0
167 COMMON-LISP-AR-1 (7) D-PDL
168 (MISC) DPB D-PDL
169 PUSH ARG|0
170 COMMON-LISP-AR-1 (6) D-PDL
171 PUSH '520
172 PUSH ARG|0
173 COMMON-LISP-AR-1 (7) D-PDL
174 (MISC) DPB D-PDL
175 MOVEM LOCAL|0
176 EQ '1
177 BR-NIL 180
178 PUSH FEF|27  ;'"REQUEST"
179 BR 186
180 PUSH LOCAL|0
181 EQ '2
182 BR-NIL 185
183 PUSH FEF|28  ;'"REPLY"
184 BR 186
185 PUSH 'NIL
186 MOVE D-LAST PDL-POP
187 CALL D-IGNORE FEF|6  ;'NIL
188 PUSH 'T
189 PUSH FEF|29  ;'"~&   ~s~30t~o~40t~:*#x~16r"
190 PUSH FEF|30  ;'<AR-HARDWARE-SENDER>
191 CALL D-LAST FEF|31  ;'NIL
192 PUSH ARG|0
193 PUSH-NUMBER 8
194 PUSH ARG|0
195 COMMON-LISP-AR-1 (4) D-LAST
196 CALL D-IGNORE FEF|6  ;'NIL
197 PUSH 'T
198 PUSH FEF|29  ;'"~&   ~s~30t~o~40t~:*#x~16r"
199 PUSH FEF|32  ;'<AR-PROTOCOL-SENDER>
200 CALL D-LAST FEF|33  ;'NIL
201 PUSH ARG|0
202 PUSH-NUMBER 8
203 PUSH ARG|0
204 COMMON-LISP-AR-1 (4) D-PDL
205 + PDL-POP
206 PUSH ARG|0
207 COMMON-LISP-AR-1 (5) D-LAST
208 CALL D-PDL FEF|34  ;':SI
209 CALL D-PDL FEF|33  ;'NIL
210 PUSH ARG|0
211 PUSH-NUMBER 8
212 PUSH ARG|0
213 COMMON-LISP-AR-1 (4) D-PDL
214 + PDL-POP
215 PUSH ARG|0
216 COMMON-LISP-AR-1 (5) D-LAST
217 MOVE D-LAST LOCAL|1
218 POP LOCAL|2
219 BR-NIL 225
220 CALL D-IGNORE FEF|6  ;'NIL
221 PUSH 'T
222 PUSH FEF|35  ;'" ~s"
223 CALL D-LAST LOCAL|2
224 MOVE D-LAST FEF|36  ;'<:SHORT-NAME>
225 CALL D-IGNORE FEF|6  ;'NIL
226 PUSH 'T
227 PUSH FEF|29  ;'"~&   ~s~30t~o~40t~:*#x~16r"
228 PUSH FEF|37  ;'<AR-HARDWARE-TARGET>
229 CALL D-LAST FEF|31  ;'NIL
230 PUSH ARG|0
231 PUSH-NUMBER 8
232 PUSH ARG|0
233 COMMON-LISP-AR-1 (4) D-PDL
234 + PDL-POP
235 PUSH ARG|0
236 COMMON-LISP-AR-1 (5) D-PDL
237 + PDL-POP
238 PUSH ARG|0
239 COMMON-LISP-AR-1 (4) D-LAST
240 CALL D-IGNORE FEF|6  ;'NIL
241 PUSH 'T
242 PUSH FEF|29  ;'"~&   ~s~30t~o~40t~:*#x~16r"
243 PUSH FEF|38  ;'<AR-PROTOCOL-TARGET>
244 CALL D-LAST FEF|33  ;'NIL
245 PUSH ARG|0
246 PUSH-NUMBER 8
247 PUSH-NUMBER 2
248 PUSH ARG|0
249 COMMON-LISP-AR-1 (4) D-PDL
250 * PDL-POP
251 + PDL-POP
252 PUSH ARG|0
253 COMMON-LISP-AR-1 (5) D-PDL
254 + PDL-POP
255 PUSH ARG|0
256 COMMON-LISP-AR-1 (5) D-LAST
257 CALL D-PDL FEF|34  ;':SI
258 CALL D-PDL FEF|33  ;'NIL
259 PUSH ARG|0
260 PUSH-NUMBER 8
261 PUSH-NUMBER 2
262 PUSH ARG|0
263 COMMON-LISP-AR-1 (4) D-PDL
264 * PDL-POP
265 + PDL-POP
266 PUSH ARG|0
267 COMMON-LISP-AR-1 (5) D-PDL
268 + PDL-POP
269 PUSH ARG|0
270 COMMON-LISP-AR-1 (5) D-LAST
271 MOVE D-LAST LOCAL|1
272 POP LOCAL|3
273 BR-NIL 279
274 CALL D-RETURN FEF|6  ;'NIL
275 PUSH 'T
276 PUSH FEF|35  ;'" ~s"
277 CALL D-LAST LOCAL|3
278 MOVE D-LAST FEF|36  ;'<:SHORT-NAME>
279 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1062] {#<GLOBAL:DTP-FEF-POINTER <DESCRIBE-ARP-PACKET> 55055435>}
  (SYSTEM:FASL-OP-INDEX [91] {<DESCRIBE-ARP-PACKET>}))

(SYSTEM:FASL-OP-FRAME
<GET-HARDWARE-ADDRESS>
 20 PUSH FEF|6  ;':*NETWORK-INTERFACES*
 21 POP LOCAL|2
 22 BR-NIL 68
 23 CAR D-PDL LOCAL|2
 24 POP LOCAL|3
 25 MOVE D-IGNORE ARG|2
 26 BR-NIL 30
 27 PUSH LOCAL|3
 28 EQ ARG|2
 29 BR-NIL 66
 30 PUSH LOCAL|3
 31 AR-1 (2) D-PDL
 32 EQ ARG|1
 33 BR-NIL 37
 34 PUSH ARG|0
 35 PUSH LOCAL|3
 36 (MISC) %RETURN-2 D-IGNORE
 37 CALL D-PDL FEF|7  ;'NIL
 38 PUSH ARG|0
 39 PUSH ARG|1
 40 MOVE D-LAST LOCAL|3
 41 POP LOCAL|0
 42 BR-NIL 46
 43 PUSH LOCAL|0
 44 PUSH LOCAL|3
 45 (MISC) %RETURN-2 D-IGNORE
 46 PUSH LOCAL|3
 47 AR-1 (17) D-PDL
 48 SET-NIL LOCAL|5
 49 POP LOCAL|4
 50 BR-NIL 66
 51 CAR D-PDL LOCAL|4
 52 POP LOCAL|5
 53 CAR D-PDL LOCAL|5
 54 EQ ARG|1
 55 BR-NIL 64
 56 PUSH ARG|0
 57 CDR D-PDL LOCAL|5
 58 (MISC) MEMBER-EQL D-IGNORE
 59 BR-NIL 64
 60 PUSH LOCAL|3
 61 AR-1 (7) D-PDL
 62 PUSH LOCAL|3
 63 (MISC) %RETURN-2 D-IGNORE
 64 SETE-CDR LOCAL|4
 65 BR-NOT-NIL 51
 66 SETE-CDR LOCAL|2
 67 BR-NOT-NIL 23
 68 PUSH FEF|8  ;'NIL
 69 PUSH-NUMBER 2
 70 (MISC) %CALL-MULT-VALUE D-IGNORE
 71 PUSH ARG|0
 72 PUSH ARG|1
 73 PUSH 'T
 74 PUSH ARG|2
 75 PUSH ARG|3
 76 MOVE D-LAST ARG|4
 77 POP ARG|2
 78 MOVEM LOCAL|1
 79 BR-NIL-POP 81
 80 CADR D-PDL LOCAL|1
 81 PUSH ARG|2
 82 (MISC) %RETURN-2 D-IGNORE
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1111] {#<GLOBAL:DTP-FEF-POINTER <GET-HARDWARE-ADDRESS> 55060225>}
  (SYSTEM:FASL-OP-INDEX [89] {<GET-HARDWARE-ADDRESS>}))

(SYSTEM:FASL-OP-FRAME
(<:SELECT-METHOD> (<:PROPERTY> <NETWORK-PROTOCOL> <NAMED-STRUCTURE-INVOKE>) <:TRANSLATE-ADDRESS>)
 20 PUSH FEF|6  ;':SELF
 21 AR-1 (2) D-PDL
 22 BR-NIL-POP 38
 23 PUSH ARG|2
 24 PUSH FEF|6  ;':SELF
 25 AR-1 (4) D-PDL
 26 (MISC) MEMBER-EQL D-IGNORE
 27 BR-NIL 31
 28 PUSH-NUMBER 0
 29 PUSH FEF|7  ;':*LOOPBACK-INTERFACE*
 30 (MISC) %RETURN-2 D-IGNORE
 31 CALL D-RETURN FEF|8  ;'NIL
 32 PUSH ARG|2
 33 PUSH FEF|6  ;':SELF
 34 AR-1 (0) D-PDL
 35 PUSH ARG|3
 36 PUSH 'NIL
 37 MOVE D-LAST ARG|4
 38 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1153] {#<GLOBAL:DTP-FEF-POINTER (<:SELECT-METHOD> (<:PROPERTY> <NETWORK-PROTOCOL> <NAMED-STRUCTURE-INVOKE>) <:TRANSLATE-ADDRESS>) 55061403>}
  (SYSTEM:FASL-OP-INDEX [1123] {(<:SELECT-METHOD> (<:PROPERTY> <NETWORK-PROTOCOL> <NAMED-STRUCTURE-INVOKE>) <:TRANSLATE-ADDRESS>)}))

(SYSTEM:FASL-OP-FRAME
<GET-PROTOCOL-ADDRESS>
 16 PUSH FEF|6  ;':*NETWORK-INTERFACES*
 17 POP LOCAL|0
 18 BR-NIL 51
 19 CAR D-PDL LOCAL|0
 20 POP LOCAL|1
 21 MOVE D-IGNORE ARG|2
 22 BR-NIL 26
 23 PUSH ARG|2
 24 EQ LOCAL|1
 25 BR-NIL 49
 26 PUSH LOCAL|1
 27 AR-1 (18) D-PDL
 28 SET-NIL LOCAL|3
 29 POP LOCAL|2
 30 BR-NIL 49
 31 CAR D-PDL LOCAL|2
 32 POP LOCAL|3
 33 PUSH ARG|0
 34 CADR D-PDL LOCAL|3
 35 = PDL-POP
 36 BR-NIL 47
 37 MOVE D-IGNORE ARG|1
 38 BR-NIL 44
 39 PUSH ARG|1
 40 PUSH LOCAL|3
 41 (MISC) CADDR D-PDL
 42 EQ PDL-POP
 43 BR-NIL 47
 44 CAR D-PDL LOCAL|3
 45 PUSH LOCAL|1
 46 (MISC) %RETURN-2 D-IGNORE
 47 SETE-CDR LOCAL|2
 48 BR-NOT-NIL 31
 49 SETE-CDR LOCAL|0
 50 BR-NOT-NIL 19
 51 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1184] {#<GLOBAL:DTP-FEF-POINTER <GET-PROTOCOL-ADDRESS> 55062303>}
  (SYSTEM:FASL-OP-INDEX [1156] {<GET-PROTOCOL-ADDRESS>}))

(SYSTEM:FASL-OP-FRAME
<FLUSH-HARDWARE-ADDRESS>
 24 CALL D-PDL FEF|8  ;'NIL
 25 PUSH ARG|0
 26 PUSH ARG|1
 27 MOVE D-LAST ARG|2
 28 BR-NOT-NIL-POP 70
 29 PUSH 'T
 30 BIND-POP FEF|6  ;':INHIBIT-SCHEDULING-FLAG
 31 PUSH FEF|7  ;':*NETWORK-INTERFACES*
 32 POP LOCAL|0
 33 BR-NIL 67
 34 CAR D-PDL LOCAL|0
 35 POP LOCAL|1
 36 MOVE D-IGNORE ARG|2
 37 BR-NIL 41
 38 PUSH ARG|2
 39 EQ LOCAL|1
 40 BR-NIL 65
 41 PUSH LOCAL|1
 42 AR-1 (18) D-PDL
 43 SET-NIL LOCAL|3
 44 POP LOCAL|2
 45 BR-NIL 65
 46 CAR D-PDL LOCAL|2
 47 POP LOCAL|3
 48 PUSH ARG|0
 49 CAR D-PDL LOCAL|3
 50 = PDL-POP
 51 BR-NIL 63
 52 PUSH ARG|1
 53 PUSH LOCAL|3
 54 (MISC) CADDR D-PDL
 55 EQ PDL-POP
 56 BR-NIL 63
 57 PUSH LOCAL|1
 58 CALL D-PDL FEF|9  ;'NIL
 59 PUSH LOCAL|3
 60 PUSH LOCAL|1
 61 AR-1 (18) D-LAST
 62 SET-AR-1 (18) D-IGNORE
 63 SETE-CDR LOCAL|2
 64 BR-NOT-NIL 46
 65 SETE-CDR LOCAL|0
 66 BR-NOT-NIL 34
 67 CALL D-RETURN FEF|10  ;'NIL
 68 PUSH ARG|0
 69 MOVE D-LAST ARG|1
 70 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1209] {#<GLOBAL:DTP-FEF-POINTER <FLUSH-HARDWARE-ADDRESS> 55063047>}
  (SYSTEM:FASL-OP-INDEX [90] {<FLUSH-HARDWARE-ADDRESS>}))

(SYSTEM:FASL-OP-FRAME
(<:SELECT-METHOD> (<:PROPERTY> <NETWORK-PROTOCOL> <NAMED-STRUCTURE-INVOKE>) <:FLUSH-ADDRESS>)
 18 PUSH FEF|6  ;':SELF
 19 AR-1 (2) D-PDL
 20 BR-NIL-POP 26
 21 CALL D-RETURN FEF|7  ;'NIL
 22 PUSH ARG|2
 23 PUSH FEF|6  ;':SELF
 24 AR-1 (0) D-PDL
 25 MOVE D-LAST ARG|3
 26 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1229] {#<GLOBAL:DTP-FEF-POINTER (<:SELECT-METHOD> (<:PROPERTY> <NETWORK-PROTOCOL> <NAMED-STRUCTURE-INVOKE>) <:FLUSH-ADDRESS>) 55065072>}
  (SYSTEM:FASL-OP-INDEX [1215] {(<:SELECT-METHOD> (<:PROPERTY> <NETWORK-PROTOCOL> <NAMED-STRUCTURE-INVOKE>) <:FLUSH-ADDRESS>)}))

(SYSTEM:FASL-OP-FRAME
<GET-ADDRESS-INFO>
 22 MOVE D-IGNORE ARG|5
 23 BR-NIL 42
 24 PUSH FEF|7  ;':*NETWORK-PROTOCOL-STREAMS*
 25 POP LOCAL|0
 26 BR-NIL 42
 27 CAR D-PDL LOCAL|0
 28 POP LOCAL|1
 29 PUSH ARG|1
 30 PUSH LOCAL|1
 31 AR-1 (0) D-PDL
 32 EQ PDL-POP
 33 BR-NIL 40
 34 CALL D-IGNORE FEF|8  ;'NIL
 35 PUSH ARG|5
 36 PUSH LOCAL|1
 37 AR-1 (0) D-LAST
 38 BR-NOT-NIL 40
 39 SET-NIL ARG|5
 40 SETE-CDR LOCAL|0
 41 BR-NOT-NIL 27
 42 PUSH FEF|6  ;':*NETWORK-INTERFACES*
 43 SET-NIL LOCAL|2
 44 POP LOCAL|0
 45 BR-NIL 86
 46 CAR D-PDL LOCAL|0
 47 POP LOCAL|2
 48 MOVE D-IGNORE ARG|3
 49 BR-NIL 53
 50 PUSH ARG|3
 51 EQ LOCAL|2
 52 BR-NIL 84
 53 PUSH LOCAL|2
 54 AR-1 (18) D-PDL
 55 SET-NIL LOCAL|4
 56 POP LOCAL|3
 57 BR-NIL 84
 58 CAR D-PDL LOCAL|3
 59 POP LOCAL|4
 60 PUSH ARG|0
 61 CAR D-PDL LOCAL|4
 62 = PDL-POP
 63 BR-NIL 82
 64 PUSH ARG|1
 65 PUSH LOCAL|4
 66 (MISC) CADDR D-PDL
 67 EQ PDL-POP
 68 BR-NIL 82
 69 PUSH LOCAL|2
 70 AR-1 (20) D-IGNORE
 71 BR-NOT-NIL 79
 72 MOVE D-IGNORE ARG|5
 73 BR-NIL 79
 74 PUSH ARG|5
 75 PUSH LOCAL|4
 76 (MISC) CADDDR D-PDL
 77 (MISC) MEMBER-EQL D-IGNORE
 78 BR-NIL 82
 79 PUSH LOCAL|4
 80 PUSH LOCAL|2
 81 (MISC) %RETURN-2 D-IGNORE
 82 SETE-CDR LOCAL|3
 83 BR-NOT-NIL 58
 84 SETE-CDR LOCAL|0
 85 BR-NOT-NIL 46
 86 MOVE D-IGNORE ARG|2
 87 BR-NIL 123
 88 PUSH FEF|7  ;':*NETWORK-PROTOCOL-STREAMS*
 89 SET-NIL LOCAL|1
 90 POP LOCAL|3
 91 BR-NIL 123
 92 CAR D-PDL LOCAL|3
 93 POP LOCAL|1
 94 PUSH ARG|1
 95 PUSH LOCAL|1
 96 AR-1 (0) D-PDL
 97 EQ PDL-POP
 98 BR-NIL 121
 99 PUSH FEF|6  ;':*NETWORK-INTERFACES*
100 SET-NIL LOCAL|2
101 POP LOCAL|0
102 BR-NIL 123
103 CAR D-PDL LOCAL|0
104 POP LOCAL|2
105 MOVE D-IGNORE ARG|3
106 BR-NIL 110
107 PUSH ARG|3
108 EQ LOCAL|2
109 BR-NIL 118
110 CALL D-IGNORE FEF|9  ;'NIL
111 PUSH ARG|0
112 PUSH LOCAL|1
113 PUSH LOCAL|2
114 PUSH 'NIL
115 PUSH ARG|5
116 PUSH 'NIL
117 MOVE D-LAST ARG|4
118 SETE-CDR LOCAL|0
119 BR-NOT-NIL 103
120 BR 123
121 SETE-CDR LOCAL|3
122 BR-NOT-NIL 92
123 PUSH 'NIL
124 PUSH 'NIL
125 (MISC) %RETURN-2 D-IGNORE
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1266] {#<GLOBAL:DTP-FEF-POINTER <GET-ADDRESS-INFO> 55070070>}
  (SYSTEM:FASL-OP-INDEX [1070] {<GET-ADDRESS-INFO>}))

(SYSTEM:FASL-OP-FRAME
<SPECIAL-TRANSLATION>
 18 PUSH FEF|7  ;':*NETWORK-INTERFACES*
 19 POP LOCAL|0
 20 BR-NIL 48
 21 CAR D-PDL LOCAL|0
 22 POP LOCAL|1
 23 MOVE D-IGNORE ARG|2
 24 BR-NIL 28
 25 PUSH LOCAL|1
 26 EQ ARG|2
 27 BR-NIL 46
 28 PUSH LOCAL|1
 29 AR-1 (17) D-PDL
 30 SET-NIL LOCAL|3
 31 POP LOCAL|2
 32 BR-NIL 46
 33 CAR D-PDL LOCAL|2
 34 POP LOCAL|3
 35 CAR D-PDL LOCAL|3
 36 EQ ARG|1
 37 BR-NIL 44
 38 PUSH ARG|0
 39 CDR D-PDL LOCAL|3
 40 (MISC) MEMBER-EQL D-IGNORE
 41 BR-NIL 44
 42 PUSH LOCAL|1
 43 AR-1 (7) D-RETURN
 44 SETE-CDR LOCAL|2
 45 BR-NOT-NIL 33
 46 SETE-CDR LOCAL|0
 47 BR-NOT-NIL 21
 48 PUSH FEF|6  ;':*NETWORK-PROTOCOL-STREAMS*
 49 SET-NIL LOCAL|4
 50 POP LOCAL|2
 51 BR-NIL 70
 52 CAR D-PDL LOCAL|2
 53 POP LOCAL|4
 54 PUSH ARG|1
 55 PUSH LOCAL|4
 56 AR-1 (0) D-PDL
 57 EQ PDL-POP
 58 BR-NIL 68
 59 PUSH LOCAL|4
 60 AR-1 (13) D-PDL
 61 BR-NIL-POP 67
 62 PUSH LOCAL|4
 63 AR-1 (13) D-PDL
 64 CALL D-RETURN PDL-POP
 65 PUSH ARG|0
 66 MOVE D-LAST ARG|2
 67 MOVE D-RETURN PDL-POP
 68 SETE-CDR LOCAL|2
 69 BR-NOT-NIL 52
 70 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1289] {#<GLOBAL:DTP-FEF-POINTER <SPECIAL-TRANSLATION> 55071346>}
  (SYSTEM:FASL-OP-INDEX [1069] {<SPECIAL-TRANSLATION>}))

(SYSTEM:FASL-OP-FRAME
<SEND-ADDR-PKT>
 38 MOVE D-IGNORE ARG|4
 39 BR-NOT-NIL 47
 40 PUSH ARG|1
 41 AR-1 (0) D-PDL
 42 PUSH ARG|2
 43 AR-1 (17) D-PDL
 44 (MISC) ASSQ D-PDL
 45 CADR D-PDL PDL-POP
 46 POP ARG|4
 47 PUSH-NUMBER 189
 48 PUSH-NUMBER 4
 49 (MISC) %CATCH-OPEN-MV D-IGNORE
 50 PUSH 'T
 51 PUSH FEF|6  ;':*ARP-STREAM*
 52 BR-NIL 188
 53 AR-1 (1) D-PDL
 54 BR-NIL-POP 188
 55 PUSH ARG|2
 56 AR-1 (5) D-PDL
 57 BR-NIL-POP 188
 58 PUSH ARG|2
 59 AR-1 (7) D-PDL
 60 BR-NIL-POP 188
 61 PUSH ARG|2
 62 AR-1 (8) D-PDL
 63 BR-NIL-POP 188
 64 PUSH ARG|4
 65 BR-NIL-POP 188
 66 PUSH ARG|5
 67 BR-NOT-NIL-POP 71
 68 CALL D-PDL FEF|8  ;'NIL
 69 MOVE D-LAST ARG|6
 70 MOVEM ARG|5
 71 BR-NIL-POP 188
 72 CALL D-PDL FEF|9  ;'NIL
 73 PUSH ARG|5
 74 MOVE D-LAST ARG|2
 75 POP LOCAL|0
 76 CALL D-IGNORE FEF|10  ;'NIL
 77 PUSH LOCAL|0
 78 PUSH ARG|2
 79 AR-1 (5) D-LAST
 80 PUSH LOCAL|0
 81 PUSH ARG|2
 82 AR-1 (6) D-PDL
 83 SET-AR-1 (4) D-IGNORE
 84 CALL D-IGNORE FEF|11  ;'NIL
 85 PUSH LOCAL|0
 86 MOVE D-IGNORE ARG|3
 87 BR-NIL 90
 88 MOVE D-LAST '2
 89 BR 91
 90 MOVE D-LAST '1
 91 CALL D-IGNORE FEF|12  ;'NIL
 92 PUSH LOCAL|0
 93 POP LOCAL|1
 94 PUSH ARG|2
 95 AR-1 (7) D-PDL
 96 PUSH LOCAL|1
 97 PUSH-NUMBER 8
 98 PUSH LOCAL|1
 99 COMMON-LISP-AR-1 (4) D-LAST
100 CALL D-IGNORE FEF|12  ;'NIL
101 PUSH LOCAL|0
102 POP LOCAL|1
103 PUSH ARG|3
104 BR-NOT-NIL-POP 106
105 PUSH-NUMBER 0
106 PUSH LOCAL|1
107 PUSH-NUMBER 8
108 PUSH LOCAL|1
109 COMMON-LISP-AR-1 (4) D-PDL
110 + PDL-POP
111 PUSH LOCAL|1
112 COMMON-LISP-AR-1 (5) D-PDL
113 + PDL-POP
114 PUSH LOCAL|1
115 COMMON-LISP-AR-1 (4) D-LAST
116 CALL D-IGNORE FEF|13  ;'NIL
117 PUSH LOCAL|0
118 PUSH ARG|2
119 AR-1 (2) D-PDL
120 PUSH ARG|1
121 AR-1 (3) D-PDL
122 (MISC) ASSQ D-PDL
123 CDR D-LAST PDL-POP
124 PUSH LOCAL|0
125 PUSH ARG|1
126 AR-1 (5) D-PDL
127 SET-AR-1 (5) D-IGNORE
128 PUSH ARG|1
129 AR-1 (6) D-IGNORE
130 BR-NIL 133
131 CALL D-IGNORE FEF|12  ;'NIL
132 BR 134
133 CALL D-IGNORE FEF|14  ;'NIL
134 PUSH ARG|0
135 PUSH LOCAL|0
136 PUSH-NUMBER 8
137 PUSH-NUMBER 2
138 PUSH LOCAL|0
139 COMMON-LISP-AR-1 (4) D-PDL
140 * PDL-POP
141 + PDL-POP
142 PUSH LOCAL|0
143 COMMON-LISP-AR-1 (5) D-PDL
144 + PDL-POP
145 PUSH LOCAL|0
146 COMMON-LISP-AR-1 (5) D-LAST
147 PUSH ARG|1
148 AR-1 (6) D-IGNORE
149 BR-NIL 152
150 CALL D-IGNORE FEF|12  ;'NIL
151 BR 153
152 CALL D-IGNORE FEF|14  ;'NIL
153 PUSH ARG|4
154 PUSH LOCAL|0
155 PUSH-NUMBER 8
156 PUSH LOCAL|0
157 COMMON-LISP-AR-1 (4) D-PDL
158 + PDL-POP
159 PUSH LOCAL|0
160 COMMON-LISP-AR-1 (5) D-LAST
161 PUSH-NUMBER 185
162 PUSH-NUMBER 4
163 (MISC) %CATCH-OPEN-MV D-IGNORE
164 PUSH 'T
165 CALL D-LAST FEF|6  ;':*ARP-STREAM*
166 PUSH FEF|16  ;'<:SEND>
167 PUSH ARG|5
168 PUSH-NUMBER 8
169 PUSH-NUMBER 2
170 PUSH LOCAL|0
171 COMMON-LISP-AR-1 (4) D-PDL
172 * PDL-POP
173 + PDL-POP
174 PUSH-NUMBER 2
175 PUSH LOCAL|0
176 COMMON-LISP-AR-1 (5) D-PDL
177 * PDL-POP
178 + PDL-POP
179 PUSH ARG|2
180 PUSH ARG|3
181 BR-NOT-NIL-POP 184
182 PUSH ARG|2
183 AR-1 (8) D-PDL
184 MOVE D-LAST ARG|6
185 SET-NIL ARG|5
186 (MISC) %UNWIND-PROTECT-CONTINUE D-IGNORE
187 MOVE D-RETURN 'T
188 MOVE D-LAST PDL-POP
189 MOVE D-IGNORE ARG|5
190 BR-NIL 193
191 CALL D-IGNORE FEF|17  ;'NIL
192 MOVE D-LAST ARG|5
193 (MISC) %UNWIND-PROTECT-CONTINUE D-IGNORE
194 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1332] {#<GLOBAL:DTP-FEF-POINTER <SEND-ADDR-PKT> 55072112>}
  (SYSTEM:FASL-OP-INDEX [1237] {<SEND-ADDR-PKT>}))

(SYSTEM:FASL-OP-FRAME
<RECEIVE-ARP-PKT>
 36 CALL D-PDL FEF|8  ;'NIL
 37 PUSH ARG|0
 38 MOVE D-LAST ARG|1
 39 POP LOCAL|0
 40 BR-NIL 168
 41 PUSH FEF|7  ;':*NETWORK-PROTOCOL-STREAMS*
 42 POP LOCAL|4
 43 BR-NIL 97
 44 CAR D-PDL LOCAL|4
 45 POP LOCAL|5
 46 PUSH LOCAL|0
 47 COMMON-LISP-AR-1 (2) D-PDL
 48 PUSH '520
 49 PUSH LOCAL|0
 50 COMMON-LISP-AR-1 (3) D-PDL
 51 (MISC) DPB D-PDL
 52 PUSH ARG|1
 53 AR-1 (2) D-PDL
 54 PUSH LOCAL|5
 55 AR-1 (3) D-PDL
 56 (MISC) ASSQ D-PDL
 57 CDR D-PDL PDL-POP
 58 EQ PDL-POP
 59 BR-NIL 95
 60 PUSH LOCAL|5
 61 MOVEM LOCAL|1
 62 AR-1 (6) D-IGNORE
 63 BR-NIL 66
 64 CALL D-PDL FEF|9  ;'NIL
 65 BR 67
 66 CALL D-PDL FEF|10  ;'NIL
 67 PUSH LOCAL|0
 68 PUSH-NUMBER 8
 69 PUSH LOCAL|0
 70 COMMON-LISP-AR-1 (4) D-PDL
 71 + PDL-POP
 72 PUSH LOCAL|0
 73 COMMON-LISP-AR-1 (5) D-LAST
 74 POP LOCAL|2
 75 PUSH LOCAL|1
 76 AR-1 (6) D-IGNORE
 77 BR-NIL 80
 78 CALL D-PDL FEF|9  ;'NIL
 79 BR 81
 80 CALL D-PDL FEF|10  ;'NIL
 81 PUSH LOCAL|0
 82 PUSH-NUMBER 8
 83 PUSH-NUMBER 2
 84 PUSH LOCAL|0
 85 COMMON-LISP-AR-1 (4) D-PDL
 86 * PDL-POP
 87 + PDL-POP
 88 PUSH LOCAL|0
 89 COMMON-LISP-AR-1 (5) D-PDL
 90 + PDL-POP
 91 PUSH LOCAL|0
 92 COMMON-LISP-AR-1 (5) D-LAST
 93 POP LOCAL|3
 94 BR 97
 95 SETE-CDR LOCAL|4
 96 BR-NOT-NIL 44
 97 MOVE D-IGNORE LOCAL|1
 98 BR-NOT-NIL 114
 99 PUSH LOCAL|0
100 COMMON-LISP-AR-1 (2) D-PDL
101 PUSH '520
102 PUSH LOCAL|0
103 COMMON-LISP-AR-1 (3) D-PDL
104 (MISC) DPB D-PDL
105 POP LOCAL|6
106 PUSH ARG|2
107 MOVEM LOCAL|4
108 CALL D-PDL FEF|11  ;'NIL
109 PUSH LOCAL|6
110 PUSH LOCAL|4
111 AR-1 (26) D-LAST
112 SET-AR-1 (26) D-IGNORE
113 BR 168
114 PUSH-NUMBER 8
115 PUSH-NUMBER 2
116 PUSH LOCAL|0
117 COMMON-LISP-AR-1 (4) D-PDL
118 * PDL-POP
119 + PDL-POP
120 PUSH-NUMBER 2
121 PUSH LOCAL|0
122 COMMON-LISP-AR-1 (5) D-PDL
123 * PDL-POP
124 + PDL-POP
125 < FEF|6  ;':ARP-MAX-LENGTH
126 BR-NIL 138
127 CALL D-IGNORE FEF|12  ;'NIL
128 PUSH LOCAL|2
129 PUSH LOCAL|1
130 AR-1 (0) D-PDL
131 PUSH ARG|1
132 CALL D-PDL FEF|9  ;'NIL
133 PUSH LOCAL|0
134 PUSH-NUMBER 8
135 PUSH LOCAL|0
136 COMMON-LISP-AR-1 (4) D-LAST
137 MOVE D-LAST LOCAL|3
138 PUSH LOCAL|0
139 COMMON-LISP-AR-1 (6) D-PDL
140 PUSH '520
141 PUSH LOCAL|0
142 COMMON-LISP-AR-1 (7) D-PDL
143 (MISC) DPB D-PDL
144 = '1
145 BR-NIL 168
146 CALL D-IGNORE FEF|13  ;'NIL
147 PUSH LOCAL|1
148 PUSH LOCAL|3
149 MOVE D-LAST ARG|1
150 BR-NIL 168
151 PUSH-NUMBER 166
152 PUSH-NUMBER 4
153 (MISC) %CATCH-OPEN-MV D-IGNORE
154 PUSH 'T
155 CALL D-LAST FEF|15  ;'NIL
156 PUSH LOCAL|2
157 PUSH LOCAL|1
158 PUSH ARG|1
159 CALL D-PDL FEF|9  ;'NIL
160 PUSH LOCAL|0
161 PUSH-NUMBER 8
162 PUSH LOCAL|0
163 COMMON-LISP-AR-1 (4) D-LAST
164 PUSH LOCAL|3
165 MOVE D-LAST ARG|0
166 SET-NIL ARG|0
167 (MISC) %UNWIND-PROTECT-CONTINUE D-IGNORE
168 PUSH ARG|0
169 BR-NIL-POP 172
170 CALL D-RETURN FEF|16  ;'NIL
171 MOVE D-LAST ARG|0
172 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1372] {#<GLOBAL:DTP-FEF-POINTER <RECEIVE-ARP-PKT> 55073712>}
  (SYSTEM:FASL-OP-INDEX [1335] {<RECEIVE-ARP-PKT>}))

(SYSTEM:FASL-OP-FRAME
<ADDR-RES-PKT-FOR-ME-P>
 24 PUSH ARG|0
 25 AR-1 (0) D-PDL
 26 PUSH ARG|2
 27 AR-1 (17) D-PDL
 28 (MISC) ASSQ D-PDL
 29 CADR D-PDL PDL-POP
 30 POP LOCAL|0
 31 BR-NOT-NIL 33
 32 MOVE D-RETURN 'NIL
 33 PUSH LOCAL|0
 34 = ARG|1
 35 BR-NIL 37
 36 MOVE D-RETURN 'T
 37 CALL D-IGNORE FEF|7  ;'NIL
 38 PUSH ARG|1
 39 PUSH ARG|0
 40 AR-1 (0) D-LAST
 41 BR-NIL 43
 42 MOVE D-RETURN 'T
 43 PUSH ARG|0
 44 AR-1 (0) D-PDL
 45 EQ FEF|8  ;'<:CHAOS>
 46 BR-NIL 55
 47 PUSH FEF|6  ;':MY-ADDRESS
 48 PUSH FEF|9  ;'1632
 49 (MISC) M-= D-PDL
 50 BR-NIL-POP 54
 51 PUSH ARG|1
 52 PUSH FEF|10  ;'1888
 53 (MISC) M-= D-RETURN
 54 MOVE D-RETURN PDL-POP
 55 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1396] {#<GLOBAL:DTP-FEF-POINTER <ADDR-RES-PKT-FOR-ME-P> 55077345>}
  (SYSTEM:FASL-OP-INDEX [1341] {<ADDR-RES-PKT-FOR-ME-P>}))

(SYSTEM:FASL-OP-FRAME
<PROCESSOR-WITHOUT-NETWORK-INTERFACE>
 24 PUSH FEF|8  ;':*SHARE-CODE-READY*
 25 BR-NIL-POP 52
 26 PUSH FEF|9  ;'<SI:SHARE-INTERFACE>
 27 (MISC) BOUNDP D-PDL
 28 BR-NIL-POP 52
 29 PUSH FEF|7  ;':SHARE-INTERFACE
 30 BR-NIL 52
 31 AR-1 (4) D-PDL
 32 BR-NIL-POP 52
 33 PUSH FEF|7  ;':SHARE-INTERFACE
 34 AR-1 (18) D-PDL
 35 POP LOCAL|0
 36 BR-NIL 51
 37 CAR D-PDL LOCAL|0
 38 MOVEM LOCAL|1
 39 (MISC) CADDR D-PDL
 40 EQ ARG|1
 41 BR-NIL 49
 42 CAR D-PDL LOCAL|1
 43 = ARG|0
 44 BR-NIL 49
 45 CALL D-PDL FEF|10  ;':SYSTEM
 46 CADR D-PDL LOCAL|1
 47 MOVE D-LAST FEF|6  ;':*PROCESSOR-FORWARDING-ALIST*
 48 CDR D-RETURN PDL-POP
 49 SETE-CDR LOCAL|0
 50 BR-NOT-NIL 37
 51 MOVE D-RETURN 'NIL
 52 MOVE D-RETURN PDL-POP
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1427] {#<GLOBAL:DTP-FEF-POINTER <PROCESSOR-WITHOUT-NETWORK-INTERFACE> 55101203>}
  (SYSTEM:FASL-OP-INDEX [1236] {<PROCESSOR-WITHOUT-NETWORK-INTERFACE>}))

(SYSTEM:FASL-OP-FRAME
<ADDR-STAT>
 32 MOVE D-IGNORE LOCAL|0
 33 BR-NOT-NIL 54
 34 MOVE D-IGNORE FEF|7  ;':*ARP-STREAM*
 35 BR-NIL 54
 36 CALL D-IGNORE FEF|8  ;'NIL
 37 PUSH 'T
 38 PUSH FEF|9  ;'"~&protocols-not-understood: ~s"
 39 PUSH FEF|7  ;':*ARP-STREAM*
 40 AR-1 (26) D-LAST
 41 CALL D-IGNORE FEF|8  ;'NIL
 42 PUSH 'T
 43 PUSH FEF|10  ;'"~&received ~d transmitted ~d"
 44 PUSH FEF|7  ;':*ARP-STREAM*
 45 AR-1 (20) D-PDL
 46 PUSH-NUMBER 2
 47 PUSH-NUMBER 0
 48 (MISC) AR-2 D-PDL
 49 PUSH FEF|7  ;':*ARP-STREAM*
 50 AR-1 (20) D-PDL
 51 PUSH-NUMBER 0
 52 PUSH-NUMBER 0
 53 (MISC) AR-2 D-LAST
 54 PUSH FEF|6  ;':*NETWORK-INTERFACES*
 55 POP LOCAL|1
 56 BR-NIL 97
 57 CAR D-PDL LOCAL|1
 58 POP LOCAL|2
 59 MOVE D-IGNORE LOCAL|0
 60 BR-NIL 65
 61 PUSH LOCAL|2
 62 PUSH LOCAL|0
 63 (MISC) MEMBER-EQL D-IGNORE
 64 BR-NIL 95
 65 CALL D-IGNORE FEF|8  ;'NIL
 66 PUSH 'T
 67 PUSH FEF|11  ;'"~&Address translations for ~A address ~X"
 68 PUSH LOCAL|2
 69 AR-1 (2) D-PDL
 70 PUSH LOCAL|2
 71 AR-1 (7) D-LAST
 72 PUSH LOCAL|2
 73 AR-1 (18) D-PDL
 74 SET-NIL LOCAL|4
 75 POP LOCAL|3
 76 BR-NIL 95
 77 CAR D-PDL LOCAL|3
 78 POP LOCAL|4
 79 CALL D-IGNORE FEF|8  ;'NIL
 80 PUSH 'T
 81 PUSH FEF|12  ;'"~&~A~9t~a~25t~a~@[~50t~16,12,'0r~]"
 82 PUSH LOCAL|4
 83 (MISC) CADDR D-PDL
 84 CALL D-PDL FEF|13  ;':NET
 85 CAR D-PDL LOCAL|4
 86 PUSH LOCAL|4
 87 (MISC) CADDR D-LAST
 88 CALL D-PDL FEF|14  ;':SI
 89 CAR D-PDL LOCAL|4
 90 PUSH LOCAL|4
 91 (MISC) CADDR D-LAST
 92 CADR D-LAST LOCAL|4
 93 SETE-CDR LOCAL|3
 94 BR-NOT-NIL 77
 95 SETE-CDR LOCAL|1
 96 BR-NOT-NIL 57
 97 MOVE D-RETURN 'NIL
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1456] {#<GLOBAL:DTP-FEF-POINTER <ADDR-STAT> 55102550>}
  (SYSTEM:FASL-OP-INDEX [1430] {<ADDR-STAT>}))

(SYSTEM:FASL-OP-FRAME
<SETUP-ARP>
 40 CALL D-PDL FEF|7  ;'NIL
 41 PUSH FEF|8  ;'<:KEYWORD>
 42 PUSH FEF|9  ;'<:ARP>
 43 PUSH FEF|10  ;'<:ADDRESSES>
 44 PUSH 'NIL
 45 PUSH FEF|11  ;'<:PACKET-LENGTH-FUNCTION>
 46 PUSH FEF|12  ;'<ARP-INT-PKT-LENGTH>
 47 PUSH FEF|13  ;'<:INTERRUPT-FUNCTION>
 48 PUSH FEF|14  ;'<RECEIVE-ARP-PKT>
 49 PUSH FEF|15  ;'<:GAUGE-NAME>
 50 MOVE D-LAST FEF|16  ;'"ARP"
 51 POP FEF|6  ;':*ARP-STREAM*
 52 CALL D-IGNORE FEF|6  ;':*ARP-STREAM*
 53 PUSH FEF|17  ;'<:OPEN>
 54 PUSH 'NIL
 55 MOVE D-LAST 'NIL
 56 CALL D-RETURN FEF|6  ;':*ARP-STREAM*
 57 MOVE D-LAST FEF|18  ;'<:ENABLE>
)

(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [1482] {#<GLOBAL:DTP-FEF-POINTER <SETUP-ARP> 55103635>}
  (SYSTEM:FASL-OP-INDEX [92] {<SETUP-ARP>}))

(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [97] {"SI"})
      (SYSTEM:FASL-OP-STRING "FASL-RECORD-FILE-MACROS-EXPANDED")
      <SI:FASL-RECORD-FILE-MACROS-EXPANDED>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [63] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1445] {<NET:NP-PACKETS-RECEIVED>})
          (SYSTEM:FASL-OP-FIXED 4525125)
         => (<NET:NP-PACKETS-RECEIVED> 4525125))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1443] {<NET:NP-STATISTICS-BLOCK>})
          (SYSTEM:FASL-OP-FIXED 1983151)
         => (<NET:NP-STATISTICS-BLOCK> 1983151))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1441] {<NET:NP-PACKETS-SENT>})
          (SYSTEM:FASL-OP-FIXED 4525121)
         => (<NET:NP-PACKETS-SENT> 4525121))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1411] {<NET:NI-ENABLED>})
          (SYSTEM:FASL-OP-FIXED 1176695)
         => (<NET:NI-ENABLED> 1176695))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [673] {<AR-PROTOCOL-SENDER-REV>})
          (SYSTEM:FASL-OP-FIXED 7389629)
         => (<AR-PROTOCOL-SENDER-REV> 7389629))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [884] {<AR-PROTOCOL-TARGET-REV>})
          (SYSTEM:FASL-OP-FIXED 276471)
         => (<AR-PROTOCOL-TARGET-REV> 276471))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1345] {<PUSHNEW>})
          (SYSTEM:FASL-OP-FIXED 3115445)
         => (<PUSHNEW> 3115445))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1344] {<NET:NP-PROTOCOLS-NOT-UNDERSTOOD>})
          (SYSTEM:FASL-OP-FIXED 1990319)
         => (<NET:NP-PROTOCOLS-NOT-UNDERSTOOD> 1990319))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1314] {<NET:NP-OPENED>})
          (SYSTEM:FASL-OP-FIXED 1992879)
         => (<NET:NP-OPENED> 1992879))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1312] {<NET:NI-HARDWARE-TYPE>})
          (SYSTEM:FASL-OP-FIXED 1177207)
         => (<NET:NI-HARDWARE-TYPE> 1177207))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1310] {<NET:NI-BROADCAST-ADDRESS>})
          (SYSTEM:FASL-OP-FIXED 1174647)
         => (<NET:NI-BROADCAST-ADDRESS> 1174647))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1308] {<NET:NI-ADDRESS-LENGTH>})
          (SYSTEM:FASL-OP-FIXED 1175671)
         => (<NET:NI-ADDRESS-LENGTH> 1175671))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [550] {<SET-AR-HARDWARE-SENDER>})
          (SYSTEM:FASL-OP-FIXED 7912382)
         => (<SET-AR-HARDWARE-SENDER> 7912382))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [746] {<SET-AR-HARDWARE-TARGET>})
          (SYSTEM:FASL-OP-FIXED 2627290)
         => (<SET-AR-HARDWARE-TARGET> 2627290))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1306] {<NET:NP-PROTOCOL>})
          (SYSTEM:FASL-OP-FIXED 1993903)
         => (<NET:NP-PROTOCOL> 1993903))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1304] {<NET:NP-ADDRESS-LENGTH>})
          (SYSTEM:FASL-OP-FIXED 1990831)
         => (<NET:NP-ADDRESS-LENGTH> 1990831))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1302] {<NET:NP-BIG-ENDIAN-ADDRESS-P>})
          (SYSTEM:FASL-OP-FIXED 1992367)
         => (<NET:NP-BIG-ENDIAN-ADDRESS-P> 1992367))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [909] {<SET-AR-PROTOCOL-TARGET-REV>})
          (SYSTEM:FASL-OP-FIXED 1695959)
         => (<SET-AR-PROTOCOL-TARGET-REV> 1695959))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [853] {<SET-AR-PROTOCOL-TARGET>})
          (SYSTEM:FASL-OP-FIXED 1094801)
         => (<SET-AR-PROTOCOL-TARGET> 1094801))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [695] {<SET-AR-PROTOCOL-SENDER-REV>})
          (SYSTEM:FASL-OP-FIXED 6604270)
         => (<SET-AR-PROTOCOL-SENDER-REV> 6604270))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [645] {<SET-AR-PROTOCOL-SENDER>})
          (SYSTEM:FASL-OP-FIXED 7180712)
         => (<SET-AR-PROTOCOL-SENDER> 7180712))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [940] {<AR-PKT-LENGTH>})
          (SYSTEM:FASL-OP-FIXED 4580331)
         => (<AR-PKT-LENGTH> 4580331))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1273] {<NET:NP-SPECIAL-ADDRESS-FUNCTION>})
          (SYSTEM:FASL-OP-FIXED 1994927)
         => (<NET:NP-SPECIAL-ADDRESS-FUNCTION> 1994927))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1242] {<UNLESS>})
          (SYSTEM:FASL-OP-FIXED 3883044)
         => (<UNLESS> 3883044))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1241] {<NET:NI-POINT-TO-POINT>})
          (SYSTEM:FASL-OP-FIXED 1168503)
         => (<NET:NI-POINT-TO-POINT> 1168503))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1239] {<NET:AT-ON-BEHALF-OF>})
          (SYSTEM:FASL-OP-FIXED 8017393)
         => (<NET:AT-ON-BEHALF-OF> 8017393))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1193] {<WITHOUT-INTERRUPTS>})
          (SYSTEM:FASL-OP-FIXED 4020154)
         => (<WITHOUT-INTERRUPTS> 4020154))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1165] {<NET:NI-ADDRESS-TRANSLATIONS>})
          (SYSTEM:FASL-OP-FIXED 1169527)
         => (<NET:NI-ADDRESS-TRANSLATIONS> 1169527))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1163] {<NET:AT-PROTOCOL>})
          (SYSTEM:FASL-OP-FIXED 8017397)
         => (<NET:AT-PROTOCOL> 8017397))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1161] {<NET:AT-PROTOCOL-ADDRESS>})
          (SYSTEM:FASL-OP-FIXED 8017405)
         => (<NET:AT-PROTOCOL-ADDRESS> 8017405))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1134] {<NET:NP-ENABLED>})
          (SYSTEM:FASL-OP-FIXED 1994415)
         => (<NET:NP-ENABLED> 1994415))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1132] {<NET:NP-ADDRESSES>})
          (SYSTEM:FASL-OP-FIXED 1991343)
         => (<NET:NP-ADDRESSES> 1991343))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1130] {<NET:NP-KEYWORD>})
          (SYSTEM:FASL-OP-FIXED 1993391)
         => (<NET:NP-KEYWORD> 1993391))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1080] {<DOLIST>})
          (SYSTEM:FASL-OP-FIXED 3527402)
         => (<DOLIST> 3527402))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1079] {<WHEN>})
          (SYSTEM:FASL-OP-FIXED 8359863)
         => (<WHEN> 8359863))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1078] {<NET:NI-KEYWORD>})
          (SYSTEM:FASL-OP-FIXED 1177719)
         => (<NET:NI-KEYWORD> 1177719))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1076] {<NET:NI-ADDRESS-ALIST>})
          (SYSTEM:FASL-OP-FIXED 1171063)
         => (<NET:NI-ADDRESS-ALIST> 1171063))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1074] {<NET:NI-ADDRESS>})
          (SYSTEM:FASL-OP-FIXED 1176183)
         => (<NET:NI-ADDRESS> 1176183))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1072] {<NET:AT-HARDWARE-ADDRESS>})
          (SYSTEM:FASL-OP-FIXED 8017401)
         => (<NET:AT-HARDWARE-ADDRESS> 8017401))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [300] {<AR-HARDWARE>})
          (SYSTEM:FASL-OP-FIXED 7205014)
         => (<AR-HARDWARE> 7205014))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1042] {<CASE>})
          (SYSTEM:FASL-OP-FIXED 3812802)
         => (<CASE> 3812802))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [373] {<AR-PROTOCOL>})
          (SYSTEM:FASL-OP-FIXED 4228111)
         => (<AR-PROTOCOL> 4228111))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [473] {<AR-OPCODE>})
          (SYSTEM:FASL-OP-FIXED 3986851)
         => (<AR-OPCODE> 3986851))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [523] {<AR-HARDWARE-SENDER>})
          (SYSTEM:FASL-OP-FIXED 5633344)
         => (<AR-HARDWARE-SENDER> 5633344))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [622] {<AR-PROTOCOL-SENDER>})
          (SYSTEM:FASL-OP-FIXED 104127)
         => (<AR-PROTOCOL-SENDER> 104127))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1041] {<IF>})
          (SYSTEM:FASL-OP-FIXED 7699908)
         => (<IF> 7699908))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [1040] {<SEND>})
          (SYSTEM:FASL-OP-FIXED 303448)
         => (<SEND> 303448))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [723] {<AR-HARDWARE-TARGET>})
          (SYSTEM:FASL-OP-FIXED 1594395)
         => (<AR-HARDWARE-TARGET> 1594395))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [827] {<AR-PROTOCOL-TARGET>})
          (SYSTEM:FASL-OP-FIXED 7692533)
         => (<AR-PROTOCOL-TARGET> 7692533))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [448] {<AR-PROTOCOL-ADR-LENGTH>})
          (SYSTEM:FASL-OP-FIXED 8301265)
         => (<AR-PROTOCOL-ADR-LENGTH> 8301265))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [423] {<AR-HARDWARE-ADR-LENGTH>})
          (SYSTEM:FASL-OP-FIXED 1053126)
         => (<AR-HARDWARE-ADR-LENGTH> 1053126))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [321] {<SI:XR-BQ-LIST>})
          (SYSTEM:FASL-OP-FIXED 8259275)
         => (<SI:XR-BQ-LIST> 8259275))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [319] {<SI:XR-BQ-LIST*>})
          (SYSTEM:FASL-OP-FIXED 4336570)
         => (<SI:XR-BQ-LIST*> 4336570))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [242] {<SETF>})
          (SYSTEM:FASL-OP-FIXED 4900792)
         => (<SETF> 4900792))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [216] {<DOTIMES>})
          (SYSTEM:FASL-OP-FIXED 285807)
         => (<DOTIMES> 285807))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [215] {<AREF>})
          (SYSTEM:FASL-OP-FIXED 428540)
         => (<AREF> 428540))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [214] {<BYTE>})
          (SYSTEM:FASL-OP-FIXED 8320819)
         => (<BYTE> 8320819))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [213] {<PSETQ>})
          (SYSTEM:FASL-OP-FIXED 2882886)
         => (<PSETQ> 2882886))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [192] {<NET:NI-SENT-HEADER-LENGTH>})
          (SYSTEM:FASL-OP-FIXED 1175159)
         => (<NET:NI-SENT-HEADER-LENGTH> 1175159))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [190] {<NET:NI-SENT-TRAILER-LENGTH>})
          (SYSTEM:FASL-OP-FIXED 1174135)
         => (<NET:NI-SENT-TRAILER-LENGTH> 1174135))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [155] {<NET:NI-RCVD-HEADER-LENGTH>})
          (SYSTEM:FASL-OP-FIXED 1173623)
         => (<NET:NI-RCVD-HEADER-LENGTH> 1173623))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [153] {<NET:NI-RCVD-TRAILER-LENGTH>})
          (SYSTEM:FASL-OP-FIXED 1172599)
         => (<NET:NI-RCVD-TRAILER-LENGTH> 1172599))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [150] {<FILL-POINTER>})
          (SYSTEM:FASL-OP-FIXED 7927724)
         => (<FILL-POINTER> 7927724))
       => ((<NET:NP-PACKETS-RECEIVED> 4525125) (<NET:NP-STATISTICS-BLOCK> 1983151) (<NET:NP-PACKETS-SENT> 4525121) (<NET:NI-ENABLED> 1176695) (<AR-PROTOCOL-SENDER-REV> 7389629) (<AR-PROTOCOL-TARGET-REV> 276471) (<PUSHNEW> 3115445) (<NET:NP-PROTOCOLS-NOT-UNDERSTOOD> 1990319) (<NET:NP-OPENED> 1992879) (<NET:NI-HARDWARE-TYPE> 1177207) (<NET:NI-BROADCAST-ADDRESS> 1174647) (<NET:NI-ADDRESS-LENGTH> 1175671) (<SET-AR-HARDWARE-SENDER> 7912382) (<SET-AR-HARDWARE-TARGET> 2627290) (<NET:NP-PROTOCOL> 1993903) (<NET:NP-ADDRESS-LENGTH> 1990831) (<NET:NP-BIG-ENDIAN-ADDRESS-P> 1992367) (<SET-AR-PROTOCOL-TARGET-REV> 1695959) (<SET-AR-PROTOCOL-TARGET> 1094801) (<SET-AR-PROTOCOL-SENDER-REV> 6604270) (<SET-AR-PROTOCOL-SENDER> 7180712) (<AR-PKT-LENGTH> 4580331) (<NET:NP-SPECIAL-ADDRESS-FUNCTION> 1994927) (<UNLESS> 3883044) (<NET:NI-POINT-TO-POINT> 1168503) (<NET:AT-ON-BEHALF-OF> 8017393) (<WITHOUT-INTERRUPTS> 4020154) (<NET:NI-ADDRESS-TRANSLATIONS> 1169527) (<NET:AT-PROTOCOL> 8017397) (<NET:AT-PROTOCOL-ADDRESS> 8017405) (<NET:NP-ENABLED> 1994415) (<NET:NP-ADDRESSES> 1991343) (<NET:NP-KEYWORD> 1993391) (<DOLIST> 3527402) (<WHEN> 8359863) (<NET:NI-KEYWORD> 1177719) (<NET:NI-ADDRESS-ALIST> 1171063) (<NET:NI-ADDRESS> 1176183) (<NET:AT-HARDWARE-ADDRESS> 8017401) (<AR-HARDWARE> 7205014) (<CASE> 3812802) (<AR-PROTOCOL> 4228111) (<AR-OPCODE> 3986851) (<AR-HARDWARE-SENDER> 5633344) (<AR-PROTOCOL-SENDER> 104127) (<IF> 7699908) (<SEND> 303448) (<AR-HARDWARE-TARGET> 1594395) (<AR-PROTOCOL-TARGET> 7692533) (<AR-PROTOCOL-ADR-LENGTH> 8301265) (<AR-HARDWARE-ADR-LENGTH> 1053126) (<SI:XR-BQ-LIST> 8259275) (<SI:XR-BQ-LIST*> 4336570) (<SETF> 4900792) (<DOTIMES> 285807) (<AREF> 428540) (<BYTE> 8320819) (<PSETQ> 2882886) (<NET:NI-SENT-HEADER-LENGTH> 1175159) (<NET:NI-SENT-TRAILER-LENGTH> 1174135) (<NET:NI-RCVD-HEADER-LENGTH> 1173623) (<NET:NI-RCVD-TRAILER-LENGTH> 1172599) (<FILL-POINTER> 7927724)))
     => (<GLOBAL:QUOTE> ((<NET:NP-PACKETS-RECEIVED> 4525125) (<NET:NP-STATISTICS-BLOCK> 1983151) (<NET:NP-PACKETS-SENT> 4525121) (<NET:NI-ENABLED> 1176695) (<AR-PROTOCOL-SENDER-REV> 7389629) (<AR-PROTOCOL-TARGET-REV> 276471) (<PUSHNEW> 3115445) (<NET:NP-PROTOCOLS-NOT-UNDERSTOOD> 1990319) (<NET:NP-OPENED> 1992879) (<NET:NI-HARDWARE-TYPE> 1177207) (<NET:NI-BROADCAST-ADDRESS> 1174647) (<NET:NI-ADDRESS-LENGTH> 1175671) (<SET-AR-HARDWARE-SENDER> 7912382) (<SET-AR-HARDWARE-TARGET> 2627290) (<NET:NP-PROTOCOL> 1993903) (<NET:NP-ADDRESS-LENGTH> 1990831) (<NET:NP-BIG-ENDIAN-ADDRESS-P> 1992367) (<SET-AR-PROTOCOL-TARGET-REV> 1695959) (<SET-AR-PROTOCOL-TARGET> 1094801) (<SET-AR-PROTOCOL-SENDER-REV> 6604270) (<SET-AR-PROTOCOL-SENDER> 7180712) (<AR-PKT-LENGTH> 4580331) (<NET:NP-SPECIAL-ADDRESS-FUNCTION> 1994927) (<UNLESS> 3883044) (<NET:NI-POINT-TO-POINT> 1168503) (<NET:AT-ON-BEHALF-OF> 8017393) (<WITHOUT-INTERRUPTS> 4020154) (<NET:NI-ADDRESS-TRANSLATIONS> 1169527) (<NET:AT-PROTOCOL> 8017397) (<NET:AT-PROTOCOL-ADDRESS> 8017405) (<NET:NP-ENABLED> 1994415) (<NET:NP-ADDRESSES> 1991343) (<NET:NP-KEYWORD> 1993391) (<DOLIST> 3527402) (<WHEN> 8359863) (<NET:NI-KEYWORD> 1177719) (<NET:NI-ADDRESS-ALIST> 1171063) (<NET:NI-ADDRESS> 1176183) (<NET:AT-HARDWARE-ADDRESS> 8017401) (<AR-HARDWARE> 7205014) (<CASE> 3812802) (<AR-PROTOCOL> 4228111) (<AR-OPCODE> 3986851) (<AR-HARDWARE-SENDER> 5633344) (<AR-PROTOCOL-SENDER> 104127) (<IF> 7699908) (<SEND> 303448) (<AR-HARDWARE-TARGET> 1594395) (<AR-PROTOCOL-TARGET> 7692533) (<AR-PROTOCOL-ADR-LENGTH> 8301265) (<AR-HARDWARE-ADR-LENGTH> 1053126) (<SI:XR-BQ-LIST> 8259275) (<SI:XR-BQ-LIST*> 4336570) (<SETF> 4900792) (<DOTIMES> 285807) (<AREF> 428540) (<BYTE> 8320819) (<PSETQ> 2882886) (<NET:NI-SENT-HEADER-LENGTH> 1175159) (<NET:NI-SENT-TRAILER-LENGTH> 1174135) (<NET:NI-RCVD-HEADER-LENGTH> 1173623) (<NET:NI-RCVD-TRAILER-LENGTH> 1172599) (<FILL-POINTER> 7927724))))
   => (<SI:FASL-RECORD-FILE-MACROS-EXPANDED> (<GLOBAL:QUOTE> ((<NET:NP-PACKETS-RECEIVED> 4525125) (<NET:NP-STATISTICS-BLOCK> 1983151) (<NET:NP-PACKETS-SENT> 4525121) (<NET:NI-ENABLED> 1176695) (<AR-PROTOCOL-SENDER-REV> 7389629) (<AR-PROTOCOL-TARGET-REV> 276471) (<PUSHNEW> 3115445) (<NET:NP-PROTOCOLS-NOT-UNDERSTOOD> 1990319) (<NET:NP-OPENED> 1992879) (<NET:NI-HARDWARE-TYPE> 1177207) (<NET:NI-BROADCAST-ADDRESS> 1174647) (<NET:NI-ADDRESS-LENGTH> 1175671) (<SET-AR-HARDWARE-SENDER> 7912382) (<SET-AR-HARDWARE-TARGET> 2627290) (<NET:NP-PROTOCOL> 1993903) (<NET:NP-ADDRESS-LENGTH> 1990831) (<NET:NP-BIG-ENDIAN-ADDRESS-P> 1992367) (<SET-AR-PROTOCOL-TARGET-REV> 1695959) (<SET-AR-PROTOCOL-TARGET> 1094801) (<SET-AR-PROTOCOL-SENDER-REV> 6604270) (<SET-AR-PROTOCOL-SENDER> 7180712) (<AR-PKT-LENGTH> 4580331) (<NET:NP-SPECIAL-ADDRESS-FUNCTION> 1994927) (<UNLESS> 3883044) (<NET:NI-POINT-TO-POINT> 1168503) (<NET:AT-ON-BEHALF-OF> 8017393) (<WITHOUT-INTERRUPTS> 4020154) (<NET:NI-ADDRESS-TRANSLATIONS> 1169527) (<NET:AT-PROTOCOL> 8017397) (<NET:AT-PROTOCOL-ADDRESS> 8017405) (<NET:NP-ENABLED> 1994415) (<NET:NP-ADDRESSES> 1991343) (<NET:NP-KEYWORD> 1993391) (<DOLIST> 3527402) (<WHEN> 8359863) (<NET:NI-KEYWORD> 1177719) (<NET:NI-ADDRESS-ALIST> 1171063) (<NET:NI-ADDRESS> 1176183) (<NET:AT-HARDWARE-ADDRESS> 8017401) (<AR-HARDWARE> 7205014) (<CASE> 3812802) (<AR-PROTOCOL> 4228111) (<AR-OPCODE> 3986851) (<AR-HARDWARE-SENDER> 5633344) (<AR-PROTOCOL-SENDER> 104127) (<IF> 7699908) (<SEND> 303448) (<AR-HARDWARE-TARGET> 1594395) (<AR-PROTOCOL-TARGET> 7692533) (<AR-PROTOCOL-ADR-LENGTH> 8301265) (<AR-HARDWARE-ADR-LENGTH> 1053126) (<SI:XR-BQ-LIST> 8259275) (<SI:XR-BQ-LIST*> 4336570) (<SETF> 4900792) (<DOTIMES> 285807) (<AREF> 428540) (<BYTE> 8320819) (<PSETQ> 2882886) (<NET:NI-SENT-HEADER-LENGTH> 1175159) (<NET:NI-SENT-TRAILER-LENGTH> 1174135) (<NET:NI-RCVD-HEADER-LENGTH> 1173623) (<NET:NI-RCVD-TRAILER-LENGTH> 1172599) (<FILL-POINTER> 7927724)))))
  (EVAL '(<SI:FASL-RECORD-FILE-MACROS-EXPANDED> (<GLOBAL:QUOTE> ((<NET:NP-PACKETS-RECEIVED> 4525125) (<NET:NP-STATISTICS-BLOCK> 1983151) (<NET:NP-PACKETS-SENT> 4525121) (<NET:NI-ENABLED> 1176695) (<AR-PROTOCOL-SENDER-REV> 7389629) (<AR-PROTOCOL-TARGET-REV> 276471) (<PUSHNEW> 3115445) (<NET:NP-PROTOCOLS-NOT-UNDERSTOOD> 1990319) (<NET:NP-OPENED> 1992879) (<NET:NI-HARDWARE-TYPE> 1177207) (<NET:NI-BROADCAST-ADDRESS> 1174647) (<NET:NI-ADDRESS-LENGTH> 1175671) (<SET-AR-HARDWARE-SENDER> 7912382) (<SET-AR-HARDWARE-TARGET> 2627290) (<NET:NP-PROTOCOL> 1993903) (<NET:NP-ADDRESS-LENGTH> 1990831) (<NET:NP-BIG-ENDIAN-ADDRESS-P> 1992367) (<SET-AR-PROTOCOL-TARGET-REV> 1695959) (<SET-AR-PROTOCOL-TARGET> 1094801) (<SET-AR-PROTOCOL-SENDER-REV> 6604270) (<SET-AR-PROTOCOL-SENDER> 7180712) (<AR-PKT-LENGTH> 4580331) (<NET:NP-SPECIAL-ADDRESS-FUNCTION> 1994927) (<UNLESS> 3883044) (<NET:NI-POINT-TO-POINT> 1168503) (<NET:AT-ON-BEHALF-OF> 8017393) (<WITHOUT-INTERRUPTS> 4020154) (<NET:NI-ADDRESS-TRANSLATIONS> 1169527) (<NET:AT-PROTOCOL> 8017397) (<NET:AT-PROTOCOL-ADDRESS> 8017405) (<NET:NP-ENABLED> 1994415) (<NET:NP-ADDRESSES> 1991343) (<NET:NP-KEYWORD> 1993391) (<DOLIST> 3527402) (<WHEN> 8359863) (<NET:NI-KEYWORD> 1177719) (<NET:NI-ADDRESS-ALIST> 1171063) (<NET:NI-ADDRESS> 1176183) (<NET:AT-HARDWARE-ADDRESS> 8017401) (<AR-HARDWARE> 7205014) (<CASE> 3812802) (<AR-PROTOCOL> 4228111) (<AR-OPCODE> 3986851) (<AR-HARDWARE-SENDER> 5633344) (<AR-PROTOCOL-SENDER> 104127) (<IF> 7699908) (<SEND> 303448) (<AR-HARDWARE-TARGET> 1594395) (<AR-PROTOCOL-TARGET> 7692533) (<AR-PROTOCOL-ADR-LENGTH> 8301265) (<AR-HARDWARE-ADR-LENGTH> 1053126) (<SI:XR-BQ-LIST> 8259275) (<SI:XR-BQ-LIST*> 4336570) (<SETF> 4900792) (<DOTIMES> 285807) (<AREF> 428540) (<BYTE> 8320819) (<PSETQ> 2882886) (<NET:NI-SENT-HEADER-LENGTH> 1175159) (<NET:NI-SENT-TRAILER-LENGTH> 1174135) (<NET:NI-RCVD-HEADER-LENGTH> 1173623) (<NET:NI-RCVD-TRAILER-LENGTH> 1172599) (<FILL-POINTER> 7927724))))))

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

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