; -*- Mode:TEXT -*- ; This is the UNFASL for DJ: WKF.K; SPECIAL-TEST.FBIN#1 (SI::FASL-OP-VERSION-INFO (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-STRING "" --> 32) (SYSTEM:FASL-OP-STRING "FALCON" --> 33) <:FALCON> --> 34) (SYSTEM:FASL-OP-FIXED 2 --> 35) --> 36) (SYSTEM:FASL-OP-END-OF-WHACK) (SYSTEM:FASL-OP-FILE-PROPERTY-LIST (SYSTEM:FASL-OP-LIST [12] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-STRING "" --> 32) (SYSTEM:FASL-OP-STRING "COMPILE-DATA" --> 33) <:COMPILE-DATA> --> 34) (SYSTEM:FASL-OP-LIST [6] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-STRING "wkf" --> 35) (SYSTEM:FASL-OP-STRING "Love" --> 36) (SYSTEM:FASL-OP-FIXED 2800375584 --> 37) (SYSTEM:FASL-OP-FIXED 126 --> 38) (SYSTEM:FASL-OP-FIXED 88 --> 39) (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-STRING "COMPILER" --> 40) (SYSTEM:FASL-OP-STRING "NEW-DESTINATIONS" --> 41) --> 42) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-STRING "GLOBAL" --> 43) (SYSTEM:FASL-OP-STRING "T" --> 44) --> 45) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [32] {""}) (SYSTEM:FASL-OP-STRING "SITE" --> 46) <:SITE> --> 47) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [32] {""}) (SYSTEM:FASL-OP-STRING "LMI" --> 48) <:LMI> --> 49) => ( <:SITE> <:LMI>) --> 50) => ("wkf" "Love" 2800375584 126 88 ( <:SITE> <:LMI>)) --> 51) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [32] {""}) (SYSTEM:FASL-OP-STRING "SOURCE-FILE-GENERIC-PATHNAME" --> 52) <:SOURCE-FILE-GENERIC-PATHNAME> --> 53) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [7] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-STRING "FS" --> 54) (SYSTEM:FASL-OP-STRING "MAKE-FASLOAD-PATHNAME" --> 55) --> 56) (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" --> 57) --> 58) (SYSTEM:FASL-OP-STRING "DJ" --> 59) => ( "DJ") --> 60) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "DSK" --> 61) => ( "DSK") --> 62) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-STRING "WKF" --> 63) (SYSTEM:FASL-OP-STRING "K" --> 64) => ("WKF" "K") --> 65) => ( ("WKF" "K")) --> 66) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "SPECIAL-TEST" --> 67) => ( "SPECIAL-TEST") --> 68) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [32] {""}) (SYSTEM:FASL-OP-STRING "UNSPECIFIC" --> 69) <:UNSPECIFIC> --> 70) => ( <:UNSPECIFIC>) --> 71) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [70] {<:UNSPECIFIC>}) => ( <:UNSPECIFIC>) --> 72) => ( ( "DJ") ( "DSK") ( ("WKF" "K")) ( "SPECIAL-TEST") ( <:UNSPECIFIC>) ( <:UNSPECIFIC>)) --> 73) (EVAL '( ( "DJ") ( "DSK") ( ("WKF" "K")) ( "SPECIAL-TEST") ( <:UNSPECIFIC>) ( <:UNSPECIFIC>))) --> 74) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [32] {""}) (SYSTEM:FASL-OP-STRING "QFASL-SOURCE-FILE-UNIQUE-ID" --> 75) <:QFASL-SOURCE-FILE-UNIQUE-ID> --> 76) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [7] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [56] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-INDEX [59] {"DJ"}) => ( "DJ") --> 77) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "DSK" --> 78) => ( "DSK") --> 79) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-STRING "WKF" --> 80) (SYSTEM:FASL-OP-STRING "K" --> 81) => ("WKF" "K") --> 82) => ( ("WKF" "K")) --> 83) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "SPECIAL-TEST" --> 84) => ( "SPECIAL-TEST") --> 85) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-STRING "LISP" --> 86) => ( "LISP") --> 87) (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-INDEX [58] {}) (SYSTEM:FASL-OP-FIXED 1 --> 88) => ( 1) --> 89) => ( ( "DJ") ( "DSK") ( ("WKF" "K")) ( "SPECIAL-TEST") ( "LISP") ( 1)) --> 90) (EVAL '( ( "DJ") ( "DSK") ( ("WKF" "K")) ( "SPECIAL-TEST") ( "LISP") ( 1))) --> 91) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [32] {""}) (SYSTEM:FASL-OP-STRING "BASE" --> 92) <:BASE> --> 93) (SYSTEM:FASL-OP-FIXED 10 --> 94) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [32] {""}) (SYSTEM:FASL-OP-STRING "READTABLE" --> 95) <:READTABLE> --> 96) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [32] {""}) (SYSTEM:FASL-OP-STRING "CL" --> 97) <:CL> --> 98) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [32] {""}) (SYSTEM:FASL-OP-STRING "PACKAGE" --> 99) <:PACKAGE> --> 100) (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [32] {""}) (SYSTEM:FASL-OP-STRING "USER" --> 101) <:USER> --> 102) => (<:COMPILE-DATA> ("wkf" "Love" 2800375584 126 88 ( <:SITE> <:LMI>)) <:SOURCE-FILE-GENERIC-PATHNAME> (SI::**EVAL** (QUOTE ( ( "DJ") ( "DSK") ( ("WKF" "K")) ( "SPECIAL-TEST") ( <:UNSPECIFIC>) ( <:UNSPECIFIC>)))) <:QFASL-SOURCE-FILE-UNIQUE-ID> (SI::**EVAL** (QUOTE ( ( "DJ") ( "DSK") ( ("WKF" "K")) ( "SPECIAL-TEST") ( "LISP") ( 1)))) <:BASE> 10 <:READTABLE> <:CL> <:PACKAGE> <:USER>) --> 103)) (SYSTEM:FASL-OP-EVAL1 (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-STRING "SI" --> 104) (SYSTEM:FASL-OP-STRING "DEFVAR-1" --> 105) --> 106) (SYSTEM:FASL-OP-SYMBOL --> 107) (SYSTEM:FASL-OP-FIXED 3 --> 108) (SYSTEM:FASL-OP-STRING "foo" --> 109) => ( 3 "foo") --> 110) (EVAL '( 3 "foo")) --> 111) (SI::FASL-OP-K-COMPILED-FUNCTION (SYSTEM:FASL-OP-SYMBOL --> 112) (SI::FASL-OP-K-LOCAL-REFS (SYSTEM:FASL-OP-FIXED 1 --> 113) number of local-refs (SYSTEM:FASL-OP-FIXED 2 --> 114) ref offset (SYSTEM:FASL-OP-FIXED 3 --> 115) target offset --> 116) (SI::FASL-OP-K-REFS (SYSTEM:FASL-OP-FIXED 3 --> 117) number of refs (SYSTEM:FASL-OP-FIXED 5 --> 118) ref offset (SYSTEM:FASL-OP-SYMBOL --> 119) referenced function name (SYSTEM:FASL-OP-FIXED 0 --> 120) number of args (SYSTEM:FASL-OP-FIXED 4 --> 121) ref offset (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-STRING "LISP-INTERNALS" --> 122) (SYSTEM:FASL-OP-STRING "BIND" --> 123) --> 124) referenced function name (SYSTEM:FASL-OP-FIXED 2 --> 125) number of args (SYSTEM:FASL-OP-FIXED 1 --> 126) ref offset (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-STRING "SYMBOL" --> 127) (SYSTEM:FASL-OP-STRING "%SYMBOL-VALUE" --> 128) --> 129) referenced function name (SYSTEM:FASL-OP-FIXED 1 --> 130) number of args --> 131) (SI::FASL-OP-K-ENTRY-POINTS (SYSTEM:FASL-OP-FIXED 2 --> 132) number of entry points (SYSTEM:FASL-OP-FIXED 1 --> 133) number of args (SYSTEM:FASL-OP-FIXED 3 --> 134) entry offset (SYSTEM:FASL-OP-FIXED 0 --> 135) number of args (SYSTEM:FASL-OP-FIXED 0 --> 136) entry offset --> 137) (SYSTEM:FASL-OP-FIXED 2 --> 138) number of immediates (SYSTEM:FASL-OP-FIXED 3 --> 139) ref offset (SYSTEM:FASL-OP-INDEX [107] {}) immediate object (SYSTEM:FASL-OP-FIXED 0 --> 140) ref offset (SYSTEM:FASL-OP-INDEX [107] {}) immediate object (SYSTEM:FASL-OP-FIXED 0 --> 141) number of load-time evals --> 142 (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [142] {# -77671450>} (SYSTEM:FASL-OP-INDEX [112] {})) Disassembled Code for (MOVEI O0 0 CH-OPEN BOXED BOXED-MD BOXED-VMA DT-NONE) (CALL 0 A0 (NOP R0) BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) (UNCONDITIONAL-BRANCH 3 (ALU PASS-STATUS NOP R0 R0) UNBOXED BOXED-MD UNBOXED-VMA DT-NONE) (MOVEI O0 0 CH-OPEN BOXED BOXED-MD BOXED-VMA DT-NONE) (CALL 0 R0 (O1 A0) BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) (OPEN-CALL 0 *SAVE-RETURN-CRAP-0* (NOP R0) BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) (ALU PASS-STATUS NOP R0 R0 UNBOXED BOXED-MD UNBOXED-VMA DT-NONE) (ALU SETR RETURN O0 *SAVE-RETURN-CRAP-0* CH-RETURN BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) ) (SI::FASL-OP-K-COMPILED-FUNCTION (SYSTEM:FASL-OP-INDEX [119] {}) (SI::FASL-OP-K-LOCAL-REFS (SYSTEM:FASL-OP-FIXED 0 --> 143) number of local-refs --> 144) (SI::FASL-OP-K-REFS (SYSTEM:FASL-OP-FIXED 2 --> 145) number of refs (SYSTEM:FASL-OP-FIXED 2 --> 146) ref offset (SYSTEM:FASL-OP-SYMBOL <1+> --> 147) referenced function name (SYSTEM:FASL-OP-FIXED 1 --> 148) number of args (SYSTEM:FASL-OP-FIXED 1 --> 149) ref offset (SYSTEM:FASL-OP-INDEX [129] {}) referenced function name (SYSTEM:FASL-OP-FIXED 1 --> 150) number of args --> 151) (SI::FASL-OP-K-ENTRY-POINTS (SYSTEM:FASL-OP-FIXED 1 --> 152) number of entry points (SYSTEM:FASL-OP-FIXED 0 --> 153) number of args (SYSTEM:FASL-OP-FIXED 0 --> 154) entry offset --> 155) (SYSTEM:FASL-OP-FIXED 1 --> 156) number of immediates (SYSTEM:FASL-OP-FIXED 0 --> 157) ref offset (SYSTEM:FASL-OP-INDEX [107] {}) immediate object (SYSTEM:FASL-OP-FIXED 0 --> 158) number of load-time evals --> 159 (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [159] {# -77667701>} (SYSTEM:FASL-OP-INDEX [119] {})) Disassembled Code for (MOVEI O0 0 CH-OPEN BOXED BOXED-MD BOXED-VMA DT-NONE) (CALL 0 R0 (NOP R0) BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) (TAIL-OPEN-CALL 0 (O0 R0) BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) ) (SI::FASL-OP-K-COMPILED-FUNCTION (SYSTEM:FASL-OP-SYMBOL --> 160) (SI::FASL-OP-K-LOCAL-REFS (SYSTEM:FASL-OP-FIXED 0 --> 161) number of local-refs --> 162) (SI::FASL-OP-K-REFS (SYSTEM:FASL-OP-FIXED 3 --> 163) number of refs (SYSTEM:FASL-OP-FIXED 4 --> 164) ref offset (SYSTEM:FASL-OP-PACKAGE-SYMBOL (SYSTEM:FASL-OP-INDEX [122] {"LISP-INTERNALS"}) (SYSTEM:FASL-OP-STRING "UNBIND-1" --> 165) --> 166) referenced function name (SYSTEM:FASL-OP-FIXED 0 --> 167) number of args (SYSTEM:FASL-OP-FIXED 3 --> 168) ref offset (SYSTEM:FASL-OP-INDEX [119] {}) referenced function name (SYSTEM:FASL-OP-FIXED 0 --> 169) number of args (SYSTEM:FASL-OP-FIXED 2 --> 170) ref offset (SYSTEM:FASL-OP-INDEX [124] {}) referenced function name (SYSTEM:FASL-OP-FIXED 2 --> 171) number of args --> 172) (SI::FASL-OP-K-ENTRY-POINTS (SYSTEM:FASL-OP-FIXED 1 --> 173) number of entry points (SYSTEM:FASL-OP-FIXED 0 --> 174) number of args (SYSTEM:FASL-OP-FIXED 0 --> 175) entry offset --> 176) (SYSTEM:FASL-OP-FIXED 1 --> 177) number of immediates (SYSTEM:FASL-OP-FIXED 1 --> 178) ref offset (SYSTEM:FASL-OP-INDEX [107] {}) immediate object (SYSTEM:FASL-OP-FIXED 0 --> 179) number of load-time evals --> 180 (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [180] {# -77667017>} (SYSTEM:FASL-OP-INDEX [160] {})) Disassembled Code for (ALU SETR R0 O0 *SIX* BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) (MOVEI O0 0 CH-OPEN BOXED BOXED-MD BOXED-VMA DT-NONE) (CALL 0 R0 (O1 R0) BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) (OPEN-CALL 0 *SAVE-RETURN-CRAP-0* (NOP R0) BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) (OPEN-CALL 0 R0 (NOP R0) BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) (ALU PASS-STATUS NOP R0 R0 UNBOXED BOXED-MD UNBOXED-VMA DT-NONE) (ALU SETR RETURN O0 *SAVE-RETURN-CRAP-0* CH-RETURN BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) ) (SI::FASL-OP-K-COMPILED-FUNCTION (SYSTEM:FASL-OP-SYMBOL --> 181) (SI::FASL-OP-K-LOCAL-REFS (SYSTEM:FASL-OP-FIXED 0 --> 182) number of local-refs --> 183) (SI::FASL-OP-K-REFS (SYSTEM:FASL-OP-FIXED 5 --> 184) number of refs (SYSTEM:FASL-OP-FIXED 8 --> 185) ref offset (SYSTEM:FASL-OP-SYMBOL <*PLUS> --> 186) referenced function name (SYSTEM:FASL-OP-FIXED 2 --> 187) number of args (SYSTEM:FASL-OP-FIXED 7 --> 188) ref offset (SYSTEM:FASL-OP-INDEX [129] {}) referenced function name (SYSTEM:FASL-OP-FIXED 1 --> 189) number of args (SYSTEM:FASL-OP-FIXED 4 --> 190) ref offset (SYSTEM:FASL-OP-INDEX [166] {}) referenced function name (SYSTEM:FASL-OP-FIXED 0 --> 191) number of args (SYSTEM:FASL-OP-FIXED 3 --> 192) ref offset (SYSTEM:FASL-OP-INDEX [119] {}) referenced function name (SYSTEM:FASL-OP-FIXED 0 --> 193) number of args (SYSTEM:FASL-OP-FIXED 2 --> 194) ref offset (SYSTEM:FASL-OP-INDEX [124] {}) referenced function name (SYSTEM:FASL-OP-FIXED 2 --> 195) number of args --> 196) (SI::FASL-OP-K-ENTRY-POINTS (SYSTEM:FASL-OP-FIXED 1 --> 197) number of entry points (SYSTEM:FASL-OP-FIXED 0 --> 198) number of args (SYSTEM:FASL-OP-FIXED 0 --> 199) entry offset --> 200) (SYSTEM:FASL-OP-FIXED 2 --> 201) number of immediates (SYSTEM:FASL-OP-FIXED 6 --> 202) ref offset (SYSTEM:FASL-OP-INDEX [107] {}) immediate object (SYSTEM:FASL-OP-FIXED 1 --> 203) ref offset (SYSTEM:FASL-OP-INDEX [107] {}) immediate object (SYSTEM:FASL-OP-FIXED 0 --> 204) number of load-time evals --> 205 (SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [205] {# -77663764>} (SYSTEM:FASL-OP-INDEX [181] {})) Disassembled Code for (ALU SETR R0 O0 *NINE* BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) (MOVEI O0 0 CH-OPEN BOXED BOXED-MD BOXED-VMA DT-NONE) (CALL 0 R0 (O1 R0) BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) (OPEN-CALL 0 *SAVE-RETURN-CRAP-0* (NOP R0) BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) (OPEN-CALL 0 R0 (NOP R0) BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) (ALU SETR O0 O0 *SAVE-RETURN-CRAP-0* CH-OPEN BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) (MOVEI O0 0 CH-OPEN BOXED BOXED-MD BOXED-VMA DT-NONE) (CALL 0 O1 (NOP R0) BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) (CALL 0 *SAVE-RETURN-CRAP-0* (NOP R0) BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) (ALU PASS-STATUS NOP R0 R0 UNBOXED BOXED-MD UNBOXED-VMA DT-NONE) (ALU SETR RETURN O0 *SAVE-RETURN-CRAP-0* CH-RETURN BOXED-RIGHT UNBOXED-MD BOXED-VMA DT-NONE) ) (SYSTEM:FASL-OP-END-OF-WHACK) (SYSTEM:FASL-OP-END-OF-FILE)