(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "SI") (IL:FILECREATED "26-Jan-98 13:55:56" ("compiled on " IL:|{DSK}disk2>jdstools>lc3>lispcore3.0>sources>WRAPPERS.;3|) "30-Mar-95 20:33:04" "COMPILE-FILEd" IL:|in| "Medley 14-Aug-95 ..." IL:|dated| "14-Aug-95 15:27:48") (IL:FILECREATED " 2-Feb-94 14:15:09" IL:|{PELE:MV:ENVOS}SOURCES>WRAPPERS.;6| 27638 IL:|changes| IL:|to:| (IL:FUNCTIONS NAMED-FUNCTION-WRAPPER-INFO) IL:|previous| IL:|date:| "10-Mar-93 13:56:58" IL:|{PELE:MV:ENVOS}SOURCES>WRAPPERS.;5|) (IL:RPAQQ IL:WRAPPERSCOMS ((IL:FUNCTIONS COMPILED-FUNCTION-ARGLIST COMPILED-FUNCTION-DEBUGGING-INFO COMPILED-FUNCTION-INTERLISP? FUNCTION-WRAPPER-INFO CLEAN-UP-CL-ARGLIST GET-STORED-ARGLIST NAMED-FUNCTION-WRAPPER-INFO PARSE-CL-ARGLIST) (IL:FUNCTIONS HAS-CALLS CHANGE-CALLS CHANGE-CALLS-IN-CCODE CHANGE-CALLS-IN-LAMBDA ADD-CHANGED-CALL %WITH-CHANGED-CALLS RESTORE-CALLS) (IL:FNS IL:VIRGINFN CONSTRUCT-MIDDLE-MAN) (IL:PROP IL:PROPTYPE IL:NAMESCHANGED) (IL:* IL:|;;| "Arrange for the proper compiler and package/readtable.") (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT ) IL:WRAPPERS) (IL:DECLARE\: IL:DOEVAL@COMPILE IL:DONTCOPY (IL:FILES (IL:LOADCOMP) IL:ACODE)) ( IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY IL:COMPILERVARS (IL:ADDVARS (IL:NLAMA) ( IL:NLAML) (IL:LAMA))))) COMPILED-FUNCTION-ARGLIST :D8 (IL:L (0 IL:|-args-|)) ” ekaQHl»ºKJó²h¼I ]²iL²^0 M°EKdagð¥lÔ[°ÙkØa°Ùd^d —¿N ‰gð‘h‚Nh_šOµO__¿µÑO _O°îM IÉ (145 IL:\\CCODEARGLIST 131 COPY-TREE 117 LAST 77 IL:MKATOM 69 STRINGP 26 COMPILED-FUNCTION-DEBUGGING-INFO) (138 IL:COMPILED-CLOSURE 83 &OPTIONAL 47 :INTERLISP?) () COMPILED-FUNCTION-DEBUGGING-INFO :D8 (IL:L (0 FN)) 6@ÉAHÈ¹HÈºjJÿ’lƒJlÖ»lKÔ¼IlLÖÕlÿ´HLÐÉNIL (5 IL:COMPILED-CLOSURE) () COMPILED-FUNCTION-INTERLISP? :D8 (IL:L (0 FN)) &@ @ oµHhðµ Hg'(14 IL:ARGTYPE 5 COMPILED-FUNCTION-DEBUGGING-INFO) (34 :INTERLISP) ( 19 (1 3)) FUNCTION-WRAPPER-INFO :D8 (IL:L (1 FN-TO-CALL 0 WRAPPED-FN)) !@d3@ð´@Hµ @¹HIA °ñ(29 IL:GETD 23 NAMED-FUNCTION-WRAPPER-INFO) NIL () CLEAN-UP-CL-ARGLIST :D8 (IL:L (0 ARG-LIST)) ¬@gBHµJ]dgð³dgð¯dgð§dgð’Y°d²FIdgð”¿M°Sgð²Md“°B o °0oM ¿g°Igð²M o €M¼Kµ Lh[ºHX±ÿgL&»°÷(148 INTERN 138 STRING 115 WARN 102 INTERN 92 STRING) (129 &KEY 121 USER::%LOSE% 74 &KEY 62 &OPTIONAL 47 &ALLOW-OTHER-KEYS 39 &KEY 31 &REST 22 &OPTIONAL 5 :REQUIRED) ( 143 "KEYWORD" 109 "Illegal form in argument-list: ~S" 97 "KEYWORD") GET-STORED-ARGLIST :D8 (IL:L (0 NAME)) $@ÁÉg'd²µo@ d¡(27 ERROR) (9 IL:ARGNAMES) ( 21 "Illegal ARGNAMES property for ~S") NAMED-FUNCTION-WRAPPER-INFO :D8 (IL:L (2 FN-TO-CALL 1 DEFN 0 NAME)) ¿@d” Ñ AYZµH@¬o ¿°ógogoggg@hoh$Ã¢±’A[dgð¢±²¿A\]^—NÃ²'gHµAggBhHµA$MÃ´agHµAggBhH—gH°4gggHµAggHµAohh$oLoh gð¢±‹A___˜OÃ²'gHµAggBhHµA$OÃ´5gHµAggBhHd˜¿gH„µAh$oOoh Kgð´(gA ggBho$oKoJ ´‚±´Ad ³'¿gA ggBho$ _djð²2¿HµAgi_¿gOggBhO$kð²1HµAgi_¿gOggBhO$Odlð²|¿Hd3@ð²YggggBhgggHµgggHµgohh$gHggBhH$lð´}Hgð¢HµAgi_µ!gOggBhOh$d3@ðgOdd3@ð“¿O€ggBhgOdd3@ð“¿O€hh$oOogIoh (956 IL:CHECK-TYPE-FAIL 937 IL:ECASE-FAIL 820 COMPILED-FUNCTION-ARGLIST 630 COMPILED-FUNCTION-ARGLIST 579 COMPILED-FUNCTION-ARGLIST 556 IL:ARGTYPE 526 COMPILED-FUNCTION-ARGLIST 512 COMPILED-FUNCTION-INTERLISP? 499 COMPILED-FUNCTION-P 492 IL:ECASE-FAIL 451 CLEAN-UP-CL-ARGLIST 428 IL:CHECK-TYPE-FAIL 282 IL:CHECK-TYPE-FAIL 27 IL:ASSERT-FAIL 7 GET-STORED-ARGLIST) (943 DEFN 896 IL:MKLIST 887 QUOTE 882 IL:APPLY 864 IL:NLAMBDA 841 QUOTE 836 FUNCALL 829 IL:NLAMBDA 814 :INTERLISP? 803 IL:U 781 QUOTE 776 FUNCALL 770 IL:LAMBDA 743 IL:U 735 IL:ARG 730 IL:COLLECT 725 IL:U 717 IL:TO 712 $FWI$ 707 IL:FOR 698 QUOTE 693 APPLY 688 IL:U 683 IL:LAMBDA 650 QUOTE 645 FUNCALL 638 IL:NLAMBDA 624 :INTERLISP? 599 QUOTE 594 FUNCALL 587 IL:LAMBDA 573 :INTERLISP? 536 QUOTE 531 APPLY 520 LAMBDA 461 QUOTE 456 APPLY 443 LAMBDA 435 LAMBDA 393 LIST 379 QUOTE 374 FUNCALL 363 IL:NLAMBDA 356 IL:LITATOM 333 QUOTE 328 FUNCALL 317 IL:NLAMBDA 310 IL:LISTP 288 IL:NLAMBDA 236 IL:ARG 231 IL:COLLECT 220 IL:TO 215 $FWI$ 210 IL:FOR 202 LIST 190 QUOTE 185 APPLY 174 IL:LAMBDA 167 IL:LITATOM 145 QUOTE 140 FUNCALL 129 IL:LAMBDA 122 IL:LISTP 103 IL:LAMBDA 90 IL:LISTP 65 QUOTE 60 CONS 55 :NAME 45 ERROR 35 LAMBDA) ( 949 (OR NULL CONS COMPILED-FUNCTION) 932 (0 1 2 3) 925 (IL:ARGTYPE DEFN) 748 ($FWI$) 545 (XCL:ARGLIST) 487 (IL:LAMBDA IL:NLAMBDA LAMBDA) 481 (CAR DEFN) 470 (XCL:ARGLIST) 421 (OR LIST SYMBOL) 414 (CADR DEFN) 275 (OR LIST SYMBOL) 269 (CADR DEFN) 247 ($FWI$) 74 (XCL:ARGLIST) 50 (QUOTE XCL:UNDEFINED-FUNCTION) 40 (&REST XCL:ARGLIST) 22 "Null definition passed to SI::FUNCTION-WRAPPER-INFO") PARSE-CL-ARGLIST :D8 (IL:L (0 ARG-LIST)) œgq@°vd_dgð³dgð¨gð”OX°KHdgð—¿OI¹°8gð–OJº°*Hdgð•¿O[°gð²Odgð“¿i¾‚L¼Ogð‘i½µ‹I J KL MN$(148 REVERSE 141 REVERSE 135 REVERSE) (121 &KEY 105 &ALLOW-OTHER-KEYS 94 &KEY 81 &REST 65 &OPTIONAL 50 :REQUIRED 36 &REST 29 &KEY 20 &OPTIONAL 4 :REQUIRED) () HAS-CALLS :D8 (IL:L (1 CALLEE 0 CALLER)) B@ÁÉg'µ@ÁÉg'µ@H ‘iAH gg(63 FIND 46 IL:CALLSCCODE 35 IL:GETD) (58 EQ 53 :TEST 22 IL:BROKEN 9 IL:ADVISED) () CHANGE-CALLSA0001 :D8 (IL:L (0 ENTRY) IL:F 0 TO IL:F 1 FROM) @Pð´@QðNIL NIL () CHANGE-CALLS :D8 (IL:L (3 FIXER 2 FN) IL:I 1 TO IL:I 0 FROM) àBÁÉg'µBÁÉg'µBH YdÃ²'¿BÁÉg'HI Y ¿@AI°Ã˜@AIŠoB Cgð³iBÁÉg'!gH ²,HBg ¿°=BggH ¿°$Bº@AChJÁÉg'¹JgIh(220 IL:PUTPROP 183 IL:PUTPROP 178 DELETE-IF 158 REMPROP 142 IL:%SOME-SINGLE 107 ERROR 95 CHANGE-CALLS-IN-CCODE 79 CHANGE-CALLS-IN-LAMBDA 70 IL:PUTD 64 COPY-TREE 35 IL:GETD) (214 IL:NAMESCHANGED 205 IL:NAMESCHANGED 172 CHANGE-CALLSA0001 167 IL:NAMESCHANGED 153 IL:NAMESCHANGED 136 CHANGE-CALLSA0001 127 IL:NAMESCHANGED 114 RESTORE-CALLS 86 IL:COMPILED-CLOSURE 55 IL:NAMESCHANGED 42 IL:LISTP 22 IL:BROKEN 9 IL:ADVISED) ( 101 "SI::CHANGE-CALLS called on a non-function: ~S") CHANGE-CALLS-IN-CCODE :D8 (IL:L (2 CCODE 1 TO 0 FROM)) ž@dB±‹d!HºH°vd¹JIAÒãKdÊjð¤Llæ€LMÇJIkØAÒlÿåKdÊjð¤Llæ€LMÇJlIØAÓãKdÊjð¤Llæ€LMÇJlIØAÓlÿåKdÊjð¤Llæ€LMÇµ‹hµ‚±ÿsh(7 IL:CHANGECCODE) NIL () CHANGE-CALLS-IN-LAMBDA :D8 (IL:L (2 LAMBDA-FORM 1 TO 0 FROM)) Õ BHgðªHdgð²¿Bº@AB¹JI¿±¨gð´‚±Œg_¿B°ed]d²9²YOgð³Ogð©Ogð²