; -*- 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") ) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-STRING "GLOBAL") (SYSTEM:FASL-OP-STRING "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>) => ( <:SITE> <:LMI>)) => ("keith" "Tonic" 2803585761 128 0 ( <: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") ) (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") ) (SYSTEM:FASL-OP-STRING "DJ") => ( "DJ")) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "DSK") => ( "DSK")) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (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")) => ( ("L" "NETWORK" "KERNEL"))) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "ARP") => ( "ARP")) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "LISP") => ( "LISP")) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-FIXED 130) => ( 130)) => ( ( "DJ") ( "DSK") ( ("L" "NETWORK" "KERNEL")) ( "ARP") ( "LISP") ( 130))) (EVAL '( ( "DJ") ( "DSK") ( ("L" "NETWORK" "KERNEL")) ( "ARP") ( "LISP") ( 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 ( <:SITE> <:LMI>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (SI::**EVAL** (QUOTE ( ( "DJ") ( "DSK") ( ("L" "NETWORK" "KERNEL")) ( "ARP") ( "LISP") ( 130)))) <:READTABLE> <:CL> <:BASE> 10 <:PACKAGE> <:ARP>))) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-SYMBOL ) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-SYMBOL ) (SYSTEM:FASL-OP-SYMBOL ) (SYSTEM:FASL-OP-SYMBOL ) (SYSTEM:FASL-OP-SYMBOL ) => ( )) => ( ( ))) => ( ( ( )))) (EVAL '( ( ( ))))) (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") ) (SYSTEM:FASL-OP-SYMBOL <*ARP-STREAM*>) (SYSTEM:FASL-OP-SYMBOL ) (SYSTEM:FASL-OP-STRING "arp-network-protocol for ARP protocol") => ( <*ARP-STREAM*> "arp-network-protocol for ARP protocol")) (EVAL '( <*ARP-STREAM*> "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") ) (SYSTEM:FASL-OP-SYMBOL ) (SYSTEM:FASL-OP-INDEX [45] {}) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-STRING "SYSTEM") (SYSTEM:FASL-OP-STRING "SYSTEM-CONSTANT") ) => ( )) (EVAL '( ))) (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") ) (SYSTEM:FASL-OP-INDEX [107] {}) (SYSTEM:FASL-OP-FIXED 1) => ( 1)) (EVAL '( 1))) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [106] {}) (SYSTEM:FASL-OP-SYMBOL ) (SYSTEM:FASL-OP-INDEX [45] {}) (SYSTEM:FASL-OP-INDEX [110] {}) => ( )) (EVAL '( ))) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [114] {}) (SYSTEM:FASL-OP-INDEX [118] {}) (SYSTEM:FASL-OP-FIXED 2) => ( 2)) (EVAL '( 2))) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [114] {}) (SYSTEM:FASL-OP-SYMBOL ) (SYSTEM:FASL-OP-FIXED 50) => ( 50)) (EVAL '( 50))) (SYSTEM:FASL-OP-FRAME 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 ;'( 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] {# 55013255>} (SYSTEM:FASL-OP-INDEX [130] {})) (SYSTEM:FASL-OP-FRAME 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 ;'( 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] {# 55020064>} (SYSTEM:FASL-OP-INDEX [183] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55020604>} (SYSTEM:FASL-OP-INDEX [209] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55021340>} (SYSTEM:FASL-OP-INDEX [238] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55021655>} (SYSTEM:FASL-OP-INDEX [260] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55022176>} (SYSTEM:FASL-OP-INDEX [280] {})) (SYSTEM:FASL-OP-FRAME 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 ;' 41 PUSH FEF|8 ;' 42 PUSH LOCAL|0 43 PUSH FEF|9 ;'(0) 44 PUSH-NUMBER 3 45 (MISC) %INTERNAL-LIST* D-PDL 46 PUSH FEF|10 ;'( 8 8) 47 PUSH FEF|8 ;' 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") ) (SYSTEM:FASL-OP-INDEX [343] {# 55022464>}) => ( . # 55022464>)) (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [346] {( . # 55022464>)} (SYSTEM:FASL-OP-INDEX [300] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55025367>} (SYSTEM:FASL-OP-INDEX [349] {})) (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") ) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [300] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [349] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [97] {"SI"}) (SYSTEM:FASL-OP-STRING "SETF-METHOD") ) => ( )) => ( ( ) ( ) ( ))) (EVAL '( ( ) ( ) ( )))) (SYSTEM:FASL-OP-FRAME 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 ;' 41 PUSH FEF|8 ;' 42 PUSH LOCAL|0 43 PUSH FEF|9 ;'(2) 44 PUSH-NUMBER 3 45 (MISC) %INTERNAL-LIST* D-PDL 46 PUSH FEF|10 ;'( 8 8) 47 PUSH FEF|8 ;' 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] {}) (SYSTEM:FASL-OP-INDEX [399] {# 55026301>}) => ( . # 55026301>)) (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [400] {( . # 55026301>)} (SYSTEM:FASL-OP-INDEX [373] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55026753>} (SYSTEM:FASL-OP-INDEX [403] {})) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [363] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [373] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [403] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [367] {}) => ( )) => ( ( ) ( ) ( ))) (EVAL '( ( ) ( ) ( )))) (SYSTEM:FASL-OP-FRAME 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 ;' 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] {}) (SYSTEM:FASL-OP-INDEX [444] {# 55027636>}) => ( . # 55027636>)) (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [445] {( . # 55027636>)} (SYSTEM:FASL-OP-INDEX [423] {})) (SYSTEM:FASL-OP-FRAME 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 ;' 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] {}) (SYSTEM:FASL-OP-INDEX [469] {# 55030251>}) => ( . # 55030251>)) (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [470] {( . # 55030251>)} (SYSTEM:FASL-OP-INDEX [448] {})) (SYSTEM:FASL-OP-FRAME 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 ;' 41 PUSH FEF|8 ;' 42 PUSH LOCAL|0 43 PUSH FEF|9 ;'(6) 44 PUSH-NUMBER 3 45 (MISC) %INTERNAL-LIST* D-PDL 46 PUSH FEF|10 ;'( 8 8) 47 PUSH FEF|8 ;' 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] {}) (SYSTEM:FASL-OP-INDEX [499] {# 55030706>}) => ( . # 55030706>)) (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [500] {( . # 55030706>)} (SYSTEM:FASL-OP-INDEX [473] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55031411>} (SYSTEM:FASL-OP-INDEX [503] {})) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [363] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [473] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [503] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [367] {}) => ( )) => ( ( ) ( ) ( ))) (EVAL '( ( ) ( ) ( )))) (SYSTEM:FASL-OP-FRAME 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] {# 55032200>} (SYSTEM:FASL-OP-INDEX [523] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55032570>} (SYSTEM:FASL-OP-INDEX [550] {})) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [363] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [523] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [550] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [367] {}) => ( )) => ( ( ) ( ) ( ))) (EVAL '( ( ) ( ) ( )))) (SYSTEM:FASL-OP-FRAME 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] {# 55033400>} (SYSTEM:FASL-OP-INDEX [576] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55034243>} (SYSTEM:FASL-OP-INDEX [596] {})) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [363] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [576] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [596] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [367] {}) => ( )) => ( ( ) ( ) ( ))) (EVAL '( ( ) ( ) ( )))) (SYSTEM:FASL-OP-FRAME 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] {# 55040332>} (SYSTEM:FASL-OP-INDEX [622] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55041514>} (SYSTEM:FASL-OP-INDEX [645] {})) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [363] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [622] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [645] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [367] {}) => ( )) => ( ( ) ( ) ( ))) (EVAL '( ( ) ( ) ( )))) (SYSTEM:FASL-OP-FRAME 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] {# 55043206>} (SYSTEM:FASL-OP-INDEX [673] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55045544>} (SYSTEM:FASL-OP-INDEX [695] {})) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [363] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [673] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [695] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [367] {}) => ( )) => ( ( ) ( ) ( ))) (EVAL '( ( ) ( ) ( )))) (SYSTEM:FASL-OP-FRAME 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] {# 55046503>} (SYSTEM:FASL-OP-INDEX [723] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55046774>} (SYSTEM:FASL-OP-INDEX [746] {})) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [363] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [723] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [746] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [367] {}) => ( )) => ( ( ) ( ) ( ))) (EVAL '( ( ) ( ) ( )))) (SYSTEM:FASL-OP-FRAME 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] {# 55047705>} (SYSTEM:FASL-OP-INDEX [775] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55050172>} (SYSTEM:FASL-OP-INDEX [798] {})) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [363] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [775] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [798] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [367] {}) => ( )) => ( ( ) ( ) ( ))) (EVAL '( ( ) ( ) ( )))) (SYSTEM:FASL-OP-FRAME 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] {# 55051063>} (SYSTEM:FASL-OP-INDEX [827] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55051461>} (SYSTEM:FASL-OP-INDEX [853] {})) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [363] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [827] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [853] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [367] {}) => ( )) => ( ( ) ( ) ( ))) (EVAL '( ( ) ( ) ( )))) (SYSTEM:FASL-OP-FRAME 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] {# 55052351>} (SYSTEM:FASL-OP-INDEX [884] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55052672>} (SYSTEM:FASL-OP-INDEX [909] {})) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [363] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [884] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [909] {}) => ( )) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [367] {}) => ( )) => ( ( ) ( ) ( ))) (EVAL '( ( ) ( ) ( )))) (SYSTEM:FASL-OP-FRAME 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] {# 55054212>} (SYSTEM:FASL-OP-INDEX [940] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55054756>} (SYSTEM:FASL-OP-INDEX [965] {})) (SYSTEM:FASL-OP-FRAME 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 ;' 85 CALL D-IGNORE FEF|6 ;'NIL 86 PUSH 'T 87 PUSH FEF|9 ;'"~& ~s~30t~o~40t~a" 88 PUSH FEF|10 ;' 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 ;' 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 ;' 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 ;' 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 ;' 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 ;' 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 ;' 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 ;' 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 ;' 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] {# 55055435>} (SYSTEM:FASL-OP-INDEX [91] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55060225>} (SYSTEM:FASL-OP-INDEX [89] {})) (SYSTEM:FASL-OP-FRAME (<:SELECT-METHOD> (<:PROPERTY> ) <: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] {# (<:PROPERTY> ) <:TRANSLATE-ADDRESS>) 55061403>} (SYSTEM:FASL-OP-INDEX [1123] {(<:SELECT-METHOD> (<:PROPERTY> ) <:TRANSLATE-ADDRESS>)})) (SYSTEM:FASL-OP-FRAME 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] {# 55062303>} (SYSTEM:FASL-OP-INDEX [1156] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55063047>} (SYSTEM:FASL-OP-INDEX [90] {})) (SYSTEM:FASL-OP-FRAME (<:SELECT-METHOD> (<:PROPERTY> ) <: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] {# (<:PROPERTY> ) <:FLUSH-ADDRESS>) 55065072>} (SYSTEM:FASL-OP-INDEX [1215] {(<:SELECT-METHOD> (<:PROPERTY> ) <:FLUSH-ADDRESS>)})) (SYSTEM:FASL-OP-FRAME 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] {# 55070070>} (SYSTEM:FASL-OP-INDEX [1070] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55071346>} (SYSTEM:FASL-OP-INDEX [1069] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55072112>} (SYSTEM:FASL-OP-INDEX [1237] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55073712>} (SYSTEM:FASL-OP-INDEX [1335] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55077345>} (SYSTEM:FASL-OP-INDEX [1341] {})) (SYSTEM:FASL-OP-FRAME 24 PUSH FEF|8 ;':*SHARE-CODE-READY* 25 BR-NIL-POP 52 26 PUSH FEF|9 ;' 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] {# 55101203>} (SYSTEM:FASL-OP-INDEX [1236] {})) (SYSTEM:FASL-OP-FRAME 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] {# 55102550>} (SYSTEM:FASL-OP-INDEX [1430] {})) (SYSTEM:FASL-OP-FRAME 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 ;' 47 PUSH FEF|13 ;'<:INTERRUPT-FUNCTION> 48 PUSH FEF|14 ;' 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] {# 55103635>} (SYSTEM:FASL-OP-INDEX [92] {})) (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") ) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-LIST [63] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1445] {}) (SYSTEM:FASL-OP-FIXED 4525125) => ( 4525125)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1443] {}) (SYSTEM:FASL-OP-FIXED 1983151) => ( 1983151)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1441] {}) (SYSTEM:FASL-OP-FIXED 4525121) => ( 4525121)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1411] {}) (SYSTEM:FASL-OP-FIXED 1176695) => ( 1176695)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [673] {}) (SYSTEM:FASL-OP-FIXED 7389629) => ( 7389629)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [884] {}) (SYSTEM:FASL-OP-FIXED 276471) => ( 276471)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1345] {}) (SYSTEM:FASL-OP-FIXED 3115445) => ( 3115445)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1344] {}) (SYSTEM:FASL-OP-FIXED 1990319) => ( 1990319)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1314] {}) (SYSTEM:FASL-OP-FIXED 1992879) => ( 1992879)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1312] {}) (SYSTEM:FASL-OP-FIXED 1177207) => ( 1177207)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1310] {}) (SYSTEM:FASL-OP-FIXED 1174647) => ( 1174647)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1308] {}) (SYSTEM:FASL-OP-FIXED 1175671) => ( 1175671)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [550] {}) (SYSTEM:FASL-OP-FIXED 7912382) => ( 7912382)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [746] {}) (SYSTEM:FASL-OP-FIXED 2627290) => ( 2627290)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1306] {}) (SYSTEM:FASL-OP-FIXED 1993903) => ( 1993903)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1304] {}) (SYSTEM:FASL-OP-FIXED 1990831) => ( 1990831)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1302] {}) (SYSTEM:FASL-OP-FIXED 1992367) => ( 1992367)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [909] {}) (SYSTEM:FASL-OP-FIXED 1695959) => ( 1695959)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [853] {}) (SYSTEM:FASL-OP-FIXED 1094801) => ( 1094801)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [695] {}) (SYSTEM:FASL-OP-FIXED 6604270) => ( 6604270)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [645] {}) (SYSTEM:FASL-OP-FIXED 7180712) => ( 7180712)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [940] {}) (SYSTEM:FASL-OP-FIXED 4580331) => ( 4580331)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1273] {}) (SYSTEM:FASL-OP-FIXED 1994927) => ( 1994927)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1242] {}) (SYSTEM:FASL-OP-FIXED 3883044) => ( 3883044)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1241] {}) (SYSTEM:FASL-OP-FIXED 1168503) => ( 1168503)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1239] {}) (SYSTEM:FASL-OP-FIXED 8017393) => ( 8017393)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1193] {}) (SYSTEM:FASL-OP-FIXED 4020154) => ( 4020154)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1165] {}) (SYSTEM:FASL-OP-FIXED 1169527) => ( 1169527)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1163] {}) (SYSTEM:FASL-OP-FIXED 8017397) => ( 8017397)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1161] {}) (SYSTEM:FASL-OP-FIXED 8017405) => ( 8017405)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1134] {}) (SYSTEM:FASL-OP-FIXED 1994415) => ( 1994415)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1132] {}) (SYSTEM:FASL-OP-FIXED 1991343) => ( 1991343)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1130] {}) (SYSTEM:FASL-OP-FIXED 1993391) => ( 1993391)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1080] {}) (SYSTEM:FASL-OP-FIXED 3527402) => ( 3527402)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1079] {}) (SYSTEM:FASL-OP-FIXED 8359863) => ( 8359863)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1078] {}) (SYSTEM:FASL-OP-FIXED 1177719) => ( 1177719)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1076] {}) (SYSTEM:FASL-OP-FIXED 1171063) => ( 1171063)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1074] {}) (SYSTEM:FASL-OP-FIXED 1176183) => ( 1176183)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1072] {}) (SYSTEM:FASL-OP-FIXED 8017401) => ( 8017401)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [300] {}) (SYSTEM:FASL-OP-FIXED 7205014) => ( 7205014)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1042] {}) (SYSTEM:FASL-OP-FIXED 3812802) => ( 3812802)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [373] {}) (SYSTEM:FASL-OP-FIXED 4228111) => ( 4228111)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [473] {}) (SYSTEM:FASL-OP-FIXED 3986851) => ( 3986851)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [523] {}) (SYSTEM:FASL-OP-FIXED 5633344) => ( 5633344)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [622] {}) (SYSTEM:FASL-OP-FIXED 104127) => ( 104127)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1041] {}) (SYSTEM:FASL-OP-FIXED 7699908) => ( 7699908)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [1040] {}) (SYSTEM:FASL-OP-FIXED 303448) => ( 303448)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [723] {}) (SYSTEM:FASL-OP-FIXED 1594395) => ( 1594395)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [827] {}) (SYSTEM:FASL-OP-FIXED 7692533) => ( 7692533)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [448] {}) (SYSTEM:FASL-OP-FIXED 8301265) => ( 8301265)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [423] {}) (SYSTEM:FASL-OP-FIXED 1053126) => ( 1053126)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [321] {}) (SYSTEM:FASL-OP-FIXED 8259275) => ( 8259275)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [319] {}) (SYSTEM:FASL-OP-FIXED 4336570) => ( 4336570)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [242] {}) (SYSTEM:FASL-OP-FIXED 4900792) => ( 4900792)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [216] {}) (SYSTEM:FASL-OP-FIXED 285807) => ( 285807)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [215] {}) (SYSTEM:FASL-OP-FIXED 428540) => ( 428540)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [214] {}) (SYSTEM:FASL-OP-FIXED 8320819) => ( 8320819)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [213] {}) (SYSTEM:FASL-OP-FIXED 2882886) => ( 2882886)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [192] {}) (SYSTEM:FASL-OP-FIXED 1175159) => ( 1175159)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [190] {}) (SYSTEM:FASL-OP-FIXED 1174135) => ( 1174135)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [155] {}) (SYSTEM:FASL-OP-FIXED 1173623) => ( 1173623)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [153] {}) (SYSTEM:FASL-OP-FIXED 1172599) => ( 1172599)) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [150] {}) (SYSTEM:FASL-OP-FIXED 7927724) => ( 7927724)) => (( 4525125) ( 1983151) ( 4525121) ( 1176695) ( 7389629) ( 276471) ( 3115445) ( 1990319) ( 1992879) ( 1177207) ( 1174647) ( 1175671) ( 7912382) ( 2627290) ( 1993903) ( 1990831) ( 1992367) ( 1695959) ( 1094801) ( 6604270) ( 7180712) ( 4580331) ( 1994927) ( 3883044) ( 1168503) ( 8017393) ( 4020154) ( 1169527) ( 8017397) ( 8017405) ( 1994415) ( 1991343) ( 1993391) ( 3527402) ( 8359863) ( 1177719) ( 1171063) ( 1176183) ( 8017401) ( 7205014) ( 3812802) ( 4228111) ( 3986851) ( 5633344) ( 104127) ( 7699908) ( 303448) ( 1594395) ( 7692533) ( 8301265) ( 1053126) ( 8259275) ( 4336570) ( 4900792) ( 285807) ( 428540) ( 8320819) ( 2882886) ( 1175159) ( 1174135) ( 1173623) ( 1172599) ( 7927724))) => ( (( 4525125) ( 1983151) ( 4525121) ( 1176695) ( 7389629) ( 276471) ( 3115445) ( 1990319) ( 1992879) ( 1177207) ( 1174647) ( 1175671) ( 7912382) ( 2627290) ( 1993903) ( 1990831) ( 1992367) ( 1695959) ( 1094801) ( 6604270) ( 7180712) ( 4580331) ( 1994927) ( 3883044) ( 1168503) ( 8017393) ( 4020154) ( 1169527) ( 8017397) ( 8017405) ( 1994415) ( 1991343) ( 1993391) ( 3527402) ( 8359863) ( 1177719) ( 1171063) ( 1176183) ( 8017401) ( 7205014) ( 3812802) ( 4228111) ( 3986851) ( 5633344) ( 104127) ( 7699908) ( 303448) ( 1594395) ( 7692533) ( 8301265) ( 1053126) ( 8259275) ( 4336570) ( 4900792) ( 285807) ( 428540) ( 8320819) ( 2882886) ( 1175159) ( 1174135) ( 1173623) ( 1172599) ( 7927724)))) => ( ( (( 4525125) ( 1983151) ( 4525121) ( 1176695) ( 7389629) ( 276471) ( 3115445) ( 1990319) ( 1992879) ( 1177207) ( 1174647) ( 1175671) ( 7912382) ( 2627290) ( 1993903) ( 1990831) ( 1992367) ( 1695959) ( 1094801) ( 6604270) ( 7180712) ( 4580331) ( 1994927) ( 3883044) ( 1168503) ( 8017393) ( 4020154) ( 1169527) ( 8017397) ( 8017405) ( 1994415) ( 1991343) ( 1993391) ( 3527402) ( 8359863) ( 1177719) ( 1171063) ( 1176183) ( 8017401) ( 7205014) ( 3812802) ( 4228111) ( 3986851) ( 5633344) ( 104127) ( 7699908) ( 303448) ( 1594395) ( 7692533) ( 8301265) ( 1053126) ( 8259275) ( 4336570) ( 4900792) ( 285807) ( 428540) ( 8320819) ( 2882886) ( 1175159) ( 1174135) ( 1173623) ( 1172599) ( 7927724))))) (EVAL '( ( (( 4525125) ( 1983151) ( 4525121) ( 1176695) ( 7389629) ( 276471) ( 3115445) ( 1990319) ( 1992879) ( 1177207) ( 1174647) ( 1175671) ( 7912382) ( 2627290) ( 1993903) ( 1990831) ( 1992367) ( 1695959) ( 1094801) ( 6604270) ( 7180712) ( 4580331) ( 1994927) ( 3883044) ( 1168503) ( 8017393) ( 4020154) ( 1169527) ( 8017397) ( 8017405) ( 1994415) ( 1991343) ( 1993391) ( 3527402) ( 8359863) ( 1177719) ( 1171063) ( 1176183) ( 8017401) ( 7205014) ( 3812802) ( 4228111) ( 3986851) ( 5633344) ( 104127) ( 7699908) ( 303448) ( 1594395) ( 7692533) ( 8301265) ( 1053126) ( 8259275) ( 4336570) ( 4900792) ( 285807) ( 428540) ( 8320819) ( 2882886) ( 1175159) ( 1174135) ( 1173623) ( 1172599) ( 7927724)))))) (SYSTEM:FASL-OP-END-OF-WHACK) (SYSTEM:FASL-OP-END-OF-FILE)