(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 9-Nov-93 01:19:36" ("compiled on " {DSK}export>lispcore>sources>CLTL2>MISC.;1) "19-Feb-93 17:03:08" bcompl'd in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "30-Aug-91 09:56:27" {DSK}sources>lispcore>sources>MISC.;2 32227 changes to%: (FNS TAILP LAST) (VARS MISCCOMS) previous date%: "16-May-90 20:40:30" {DSK}sources>lispcore>sources>MISC.;1) ADD1VAR :D8 (L (0 ADD1X)) @d kØ (13 SET 6 EVAL) NIL () ADDTOVAR :D8 (L (0 X) P 10 DFNFLG F 11 DFNFLG) a@aWgðœHg µ H ¹Wdgð³¿Hg ZµWgð¢±ág±Û»gK µ JgðZ²Ó@! OµO¢±¤HIhg±›_ªOI¹i_¿°sJgð²+Ih½\µh°&]Oð²MhðOhðð”Mµ iˆL°ÜOI^Oô³6N²Wið®oHO¿HOhgNhð¿ONµ I¹O_±ÿaI °ðHI °9W I£@²H@I hg°Hd gð˜¿Hh H(349 /SET 334 \EVALV1 325 SAVESET 314 UNION 291 /SET 282 /DREMOVE 259 MARKASCHANGED 238 EXEC-FORMAT 136 SAVESET 93 MEMB 57 GETPROP 32 \EVALV1 24 GETPROP) (339 NOBIND 320 NOSTACKUNDO 251 ALISTS 161 USERMACROS 131 NOSTACKUNDO 103 ALIST 87 ALIST 77 PROP 67 ALLPROP 52 VARTYPE 42 ALLPROP 19 VALUE 11 ALLPROP) ( 229 "(new ~S entry for ~S)~%%") APPENDTOVAR :D8 (L (0 X) P 9 DFNFLG F 10 DFNFLG) o @WgðœHg µ H ¹Wdgð³¿Hg ZµWgð¢±ég±ã»gK µ JgðZ²Óh_¿@±’d_³IOh ¹i_¿°yJgð²+Ih½\µh°&]Oð²MhðOhðð”Mµ iˆL°ÜOI^Oô³Bd §ABð‘@BABô²@ @AB @AB@AB(58 LSUBST 49 LSUBST 39 \NCONC2 34 LSUBST 25 COPY) NIL () MAP :D8 (L (2 MAPFN2 1 MAPFN1 0 MAPX)) @¡h@kA¿B•@kB@b°êNIL NIL () MAP2C :D8 (L (3 MAPFN2 2 MAPFN1 1 MAPY 0 MAPX)) 5@´A¡h@AlB¿C²@kCb¿AkCb¿°Ú@b¿Ab¿°ÎNIL NIL () MAP2CAR :D8 (L (3 MAPFN2 2 MAPFN1 1 MAPY 0 MAPX)) E @’A¡H@AlBI¹H˜IIdh¿IX¿C²AkCb¿@kCb°ÍAb¿@b°ÂNIL NIL () MAPC :D8 (L (2 MAPFN2 1 MAPFN1 0 MAPX)) @¡h@kA¿B•@kB@b°éNIL NIL () MAPCAR :D8 (L (2 MAPFN2 1 MAPFN1 0 MAPX)) . @¡H@kAI¹H˜IIdh¿IX¿B•@kB@b°ÙNIL NIL () MAPCON :D8 (L (2 MAPFN2 1 MAPFN1 0 MAPX)) 10@¡H@kAZšIµJYX¿Iµ Bœ@kBˆY°ôJ°î@b°ÖNIL NIL () MAPCONC :D8 (L (2 MAPFN2 1 MAPFN1 0 MAPX)) 20@¡H@kAZšIµJYX¿Iµ Bœ@kBˆY°ôJ°î@b°ÕNIL NIL () MAPLIST :D8 (L (2 MAPFN2 1 MAPFN1 0 MAPX)) - @¡H@kAI¹H˜IIdh¿IX¿B•@kB@b°ÚNIL NIL () MEMBER :D8 (L (1 Y 0 X)) A¡h@dd3@ð•¿@Að‚Aô‘AAb°åNIL NIL () NLEFT :D8 (L (2 TAIL 1 N 0 L)) -@dAjð³HBð£Hµh¸AkÙb°ë¸I¹HBð£HµõINIL NIL () NOTANY :D8 (L (2 SOMEFN2 1 SOMEFN1 0 SOMEX)) '@AB#H°d[KlI®¼J¢L„LkJµêhhðNIL NIL () NOTEVERY :D8 (L (2 EVERYFN2 1 EVERYFN1 0 EVERYX)) *@AB#H°d[KlIŸ¼J¢L„LkJµêi¿hhðNIL NIL () NTH :D8 (L (1 N 0 X)) kAñ“h@Akñ¡@@µhb¿AkÙb°ìNIL NIL () PUTASSOC :D8 (L (2 ALST 1 VAL 0 KEY)) 2Bµ lBh HµHµH@A&A@ð²ñHAAX°ä(14 ERRORX) NIL () RATOMS :D8 (L (2 RDTBL 1 FILE 0 A)) AB Y@ð’HHI X´÷°è(23 TCONC 9 RATOM) NIL () REMOVE :D8 (L (1 L 0 X)) A¡h@Aô•Ab°óA@A (25 REMOVE) NIL () REVERSE :D8 (L (0 L)) @¡H@H¸@b°óNIL NIL () RPT :D8 (L (1 RPTF) I 0 RPTN) @jñ²Ag ¸@kÙb°ëH(18 EVAL) (13 INTERNAL) () RPTQ :D8 (L (0 RPTZ) P 0 RPTN) /@g Hjñ²g@g¹HkÙX°æI(36 APPLY 11 EVAL) (31 INTERNAL 24 PROGN 6 INTERNAL) () FRPTQ :D8 (L (0 RPTZ)) /@g Hjñ²g@g¹HkÙX°æI(36 APPLY 11 EVAL) (31 INTERNAL 24 PROGN 6 INTERNAL) () SASSOC :D8 (L (1 ALST 0 KEY)) A¡hAd@ô‘b°ðNIL NIL () SAVEDEF :D8 (L (0 X)) -@d“3–@ 0@°d ¸IµHhZH&¹µëJ(25 SAVEDEF1 11 SAVEDEF1) NIL () SAVEDEF1 :D8 (L (0 X)) °@ H´‚±¡@d dgð³dgð¯dgð§dgð—¿g°gdgð³dgð¯dgð§dgð—¿g°>dgð³dgð¯dgð§dgð—¿g°¿@ •g„gbH@(172 PUTPROP 152 EXPRP 22 FNTYP 5 GETD) (164 LIST 158 EXPR 143 CODE 135 CFEXPR* 127 CFEXPR 119 CEXPR* 110 CEXPR 102 EXPR 94 FEXPR* 86 FEXPR 78 EXPR* 69 EXPR 61 SUBR 53 FSUBR* 45 FSUBR 37 SUBR* 28 SUBR) () SELECT :D8 (L (0 .SELEC.)) $g@g @ g(33 APPLY 23 SELECT1 16 EVAL) (28 SELECTQ 11 SELECTQ 4 PROGN) () SELECT1 :D8 (L (1 L 0 M)) B AXb¡HHXd³¿@Hg ð²áH¹@Ig ð³íIY²Æ°ê(53 EVAL 32 EVAL) (48 INTERNAL 27 INTERNAL) () SELECTC :D8 (L (0 SELCQ)) Hg@g @"IZY¢J°JZg [Hð¨K²äHK²ßJg(69 APPLY 43 EVAL 16 EVAL) (64 SELECTQ 38 INTERNAL 11 SELECTQ 4 PROGN) () SETQQ :D8 (L (1 Y 0 X)) @A (6 SET) NIL () SOME :D8 (L (2 SOMEFN2 1 SOMEFN1 0 SOMEX)) @¡h@@lA‘@B•@kB@b°åNIL NIL () STRMEMB :D8 (L (1 Y 0 X)) 3Ak b¿k¸@H µAAH ð”HkØ°èA ³ßh(45 GNC 32 NTHCHARCODE 21 NTHCHARCODE 9 SUBSTRING) NIL () SUB1VAR :D8 (L (0 SUB1X)) @d kÙ (13 SET 6 EVAL) NIL () SUBSET :D8 (L (2 MAPFN2 1 MAPFN1 0 MAPX)) 0 @¡H@kA²H¦@hY¸‡Id@&¿¹B•@kB@b°×NIL NIL () SUBST :D8 (L (2 EXPR 1 OLD 0 NEW)) 4Bd ¬ABð–@ BABô–@ ˆ@AB@AB(48 SUBST 39 SUBST 29 COPY 15 COPY) NIL () TAILP :D8 (L (1 Y 0 X)) @´ @Að‘@Aµhb¿°ðNIL NIL () TCONC :D8 (L (1 X 0 PTR)) 3@µAhdµo@ «@Ah@dd¿@dddA&¿¿(22 ERROR) NIL ( 16 "bad argument - TCONC") UNION :D8 (L (1 Y 0 X)) 8@1HµKµAAJYdd3@ð”¿IA…A §KµIh[ºHX°ÕI&»°ø(35 MEMBER) NIL () ERSETQ :D8 (L (0 ERSETX)) g@i (12 ERRORSET) (4 PROGN) () NLSETQ :D8 (L (0 NLSETX)) g@h (12 ERRORSET) (4 PROGN) () XNLSETQ :D8 (L (2 XNLSETFN 1 XNLSETFLG 0 XNLSETQX)) @AB(7 ERRORSET) NIL () RESETLSTA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 RESETX) P (5 \EVPROGN) NIL () RESETLST :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 RESETX F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 RESETLSTA0001) (8 SI::RESETUNWIND) () RESETSAVE :D8 (L (0 RESETX) F 1 SI::*RESETFORMS*) U@d²#dd3@ð²¿@@ @@, ¿°+›@,@,h°@Hdgð’H,hhQc(34 SETTOPVAL 22 GETTOPVAL) (64 SETQ) () RESETFORMA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 RESETZ) P (6 \EVPROGN) NIL () RESETFORM :D8 (P 0 SI::*RESETFORMS* I 0 RESETZ) *@@,hhhg ¿$(35 SI::RESETUNWIND 30 \MVLIST 25 RESETFORMA0001) (20 SI::RESETUNWIND) () RESETVARSA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 RESETX) 5Q°dHd´ H µæghQg(50 APPLY 26 SETTOPVAL 21 \EVPROG1) (45 INTERNAL 36 PROG) () RESETVARS :D8 (P 3 SI::*RESETFORMS* I 0 RESETX) C0@°ddd ¸IµHhZH&¹µåJg ¿$(60 SI::RESETUNWIND 55 \MVLIST 50 RESETVARSA0001 18 GETTOPVAL) (45 SI::RESETUNWIND) () RESETVARA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 RESETX F 1 RESETY F 2 RESETZ) PQ, R,(7 SETTOPVAL) NIL () RESETVAR :D8 (P 0 SI::*RESETFORMS* I 2 RESETZ I 1 RESETY I 0 RESETX) '@d hg ¿$(32 SI::RESETUNWIND 27 \MVLIST 22 RESETVARA0001 6 GETTOPVAL) (17 SI::RESETUNWIND) () SI::RESETUNWIND :D8 (L (0 NORMALP) P 0 OLDVALUE F 2 SI::*RESETFORMS*) 6 RµhRc¿Yd²d ¸II ¿°ÛI ¿°Ð(49 SETTOPVAL 38 APPLY) NIL () SI::NLSETQHANDLER :D8 (L (0 C) F 0 SI::*NLSETQFLAG* F 1 NLSETQGAG) P´Q´@ (11 ABORT) NIL () GENSYM :D8 (L (4 CHARCODE 3 NEW? 2 OSTRBUFFER 1 NUMSUFFIX 0 PREFIX) P 6 \INTERRUPTABLE) @²@ ³@d3@ð@ ¦@ ¿AšA3 ¦A ¿BB ¦B ¿DD ¦D ¿ld`` µld j$@d› [djð¿hb¿D³lAb°Hl Ùñ›@o ¿B²+A«o °+B XlKØýñ²Bo AžKlØX b¿BºB’i°`3 ¨j¿i€h²JHAµ`¹±Æ``Ùjð³j`ñ–j¿i°o`ñ¨j¿i€hJH`Y€IH" k_¿OOó³@`O kÔ_l9ñJOO¿h°JOl0¿OkÔ_¿OmÿÔ_¿°½i²JHIÙl1¿`kÔ¹`kÔ¿HIÙkØ¼DœJLmÿÔ\D¿@›JLKÙ\@¿JLH` ]Md3—¿@ M(530 \ILLEGAL.ARG 516 MKATOM 506 SUBSTRING 492 RPLSTRING 478 RPLCHARCODE 426 RPLCHARCODE 393 RPLCHARCODE 379 RPLCHARCODE 361 NTHCHARCODE 331 \GS.INITBUF 259 \GS.INITBUF 211 ALLOCSTRING 198 ERROR 178 NCHARS 170 HELP 154 ERROR 118 NCHARS 101 ALLOCSTRING 92 STRINGP 74 \ILLEGAL.ARG 67 CHARCODEP 58 \ILLEGAL.ARG 51 STRINGP 42 \ILLEGAL.ARG 29 \ILLEGAL.ARG 22 CL:STRINGP 8 STRINGP) (511 \GS.STR 501 \GS.STR 457 \GS.OGENNUM 452 GENNUM 445 GENNUM 439 \GS.NUMLEN 432 \GS.NUMLEN 354 \GS.BUF 326 GENNUM 314 GENNUM 306 GENNUM 292 GENNUM 284 GENNUM 273 \GS.OGENNUM 268 GENNUM 254 GENNUM 238 GENNUM 229 GENNUM 106 \GS.BUF 87 \GS.BUF 82 \GS.NUMLEN) ( 301 2147483647 193 "Too short" 165 "OSTRBUFFER supplied without NUMSUFFIX" 149 "Too long") GENSYM? :D8 (L (0 X)) G@d3@ð´@@mû lAð´3@mü 3 ´'@mý 3 ´@mþ 3 ´@mÿ 3 ´i(63 NTHCHAR 51 NTHCHAR 39 NTHCHAR 27 NTHCHAR 14 NTHCHARCODE) NIL () \GS.INITBUF :D8 (L (2 N 1 BUFSIZE 0 BUF)) 8@An'Bñ›Bn'Øb¿lXˆB XkÙÙB@`ð•HH(38 RPLSTRING 28 NCHARS) (52 \GS.NUMLEN 44 \GS.BUF) () (PRETTYCOMPRINT MISCCOMS) (RPAQQ MISCCOMS ((FNS ADD1VAR ADDTOVAR APPENDTOVAR APPEND \APPEND2 ASSOC ATTACH CHANGEPROP CONCATLIST COPY DEFINEQ DEFLIST DREMOVE DREVERSE DSUBST EQLENGTH EVERY GETLIS INTERSECTION KWOTE LAST LASTN LCONC LDIFF LDIFFERENCE LENGTH LISTGET LISTGET1 LISTPUT LISTPUT1 LSUBST MAP MAP2C MAP2CAR MAPC MAPCAR MAPCON MAPCONC MAPLIST MEMBER NLEFT NOTANY NOTEVERY NTH PUTASSOC RATOMS REMOVE REVERSE RPT RPTQ FRPTQ SASSOC SAVEDEF SAVEDEF1 SELECT SELECT1 SELECTC SETQQ SOME STRMEMB SUB1VAR SUBSET SUBST TAILP TCONC UNION) (COMS (* ; "ERRORSET stuff") (FNS ERSETQ NLSETQ XNLSETQ RESETLST RESETSAVE RESETFORM RESETVARS RESETVAR SI::RESETUNWIND) (FNS SI::NLSETQHANDLER) (INITVARS (SI::*NLSETQFLAG*) (RESETSTATE)) (PROP INFO RESETTOPVALS)) (COMS (FNS GENSYM GENSYM? \GS.INITBUF) (* ; "GENSYM garbage") (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (\GS.BUFSIZE 100))) (INITVARS (GENNUM 0) (\GS.OGENNUM -1) (\GS.NUMLEN 0) (\GS.BUF NIL) (\GS.STR (ALLOCSTRING 0))) (GLOBALVARS GENNUM \GS.OGENNUM \GS.NUMLEN \GS.BUF \GS.STR )) (ALISTS (PRETTYEQUIVLST SELECTC) (DWIMEQUIVLST SELECTC)) (LOCALVARS . T) (P (CL:PROCLAIM (QUOTE ( GLOBAL MAKESYSDATE MAKESYSNAME)))) (PROP FILETYPE MISC) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA RESETVARS RESETFORM RESETSAVE RESETLST NLSETQ ERSETQ SELECTC SELECT FRPTQ RPTQ DEFINEQ APPENDTOVAR ADDTOVAR) (NLAML RESETVAR XNLSETQ SUB1VAR SETQQ ADD1VAR) (LAMA APPEND))))) (RPAQ? SI::*NLSETQFLAG*) (RPAQ? RESETSTATE) (PUTPROPS RESETTOPVALS INFO (EVAL BINDS)) (RPAQ? GENNUM 0) (RPAQ? \GS.OGENNUM -1) (RPAQ? \GS.NUMLEN 0) (RPAQ? \GS.BUF NIL) (RPAQ? \GS.STR (ALLOCSTRING 0)) (ADDTOVAR PRETTYEQUIVLST (SELECTC . SELECTQ)) (ADDTOVAR DWIMEQUIVLST (SELECTC . SELECTQ)) (CL:PROCLAIM (QUOTE (GLOBAL MAKESYSDATE MAKESYSNAME))) (PUTPROPS MISC FILETYPE :BCOMPL) (PUTPROPS MISC COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991)) NIL