(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 4-Nov-93 21:14:38" ("compiled on " {DSK}export>lispcore>sources>CLTL2>LLNEW.;2) "19-Feb-93 17:03:08" bcompl'd in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "28-Jan-93 17:42:57" {DSK}lde>lispcore>sources>LLNEW.;2 68199 changes to%: (FNS \COPY) previous date%: " 5-Jan-93 00:46:10" {DSK}lde>lispcore>sources>LLNEW.;1) \ADDBASE :D8 (L (1 D 0 X)) @@"AdlAA[XdkjAjA[HnA[?lA bAdAAb3 A A IdnKHkԸInKkفKԹJnHnJkقHJI(110 CL::%%NOT-NONCOMPLEX-NUMBER-ERROR 103 \ILLEGAL.ARG 59 \FIXP.FROM.FLOATP) (87 RATIO 79 RATIO 70 RATIO) () \GETBASE :D8 (L (1 D 0 X)) @ANIL NIL () \PUTBASE :D8 (L (2 V 1 D 0 X)) @ABdjBBB HII(20 \ILLEGAL.ARG) NIL () \PUTBASE.UFN :D8 (L (2 D 1 V 0 X)) @BAdjAAA HII(20 \ILLEGAL.ARG) NIL () \PUTBASEPTR.UFN :D8 (L (2 D 1 V 0 X)) @BA@BAANIL NIL () \PUTBITS.UFN :D8 (L (2 N.FD 1 V 0 X)) VAdjAAA BlkBl#lJI\kI k[@BdKL nHKL H(79 LLSH 65 LLSH 48 LLSH 17 \ILLEGAL.ARG) NIL () \GETBASEBYTE :D8 (L (1 N 0 PTR)) Akj@A@AlNIL NIL () \PUTBASEBYTE :D8 (L (2 BYTE 1 DISP 0 PTR)) MBdjBnBBB b@AbAkj@ABHl@ABB(23 \ILLEGAL.ARG) (32 SMALLP) () \GETBASEPTR :D8 (L (1 D 0 X)) @Al@ANIL NIL () \PUTBASEPTR :D8 (L (2 V 1 D 0 X)) @AB@ABBNIL NIL () \HILOC :D8 (L (0 X)) @NIL NIL () \LOLOC :D8 (L (0 X)) @NIL NIL () \VAG2 :D8 (L (1 L 0 H)) -@dj@n@@@ AdjAAA (41 \ILLEGAL.ARG 23 \ILLEGAL.ARG) NIL () \RPLPTR :D8 (L (2 VAL 1 OFFSET 0 OBJ) P 0 \INTERRUPTABLE) B@Ab@kB@BBNIL NIL () \RPLPTR.UFN :D8 (L (2 OFFSET 1 VAL 0 OBJ) P 1 \INTERRUPTABLE) @BAHHkAHA@NIL NIL () EQ :D8 (L (1 Y 0 X)) @ANIL NIL () EQL :D8 (L (1 Y 0 X)) @d3dA A@A@A@d3 A3 p@Aj/A[@A:H@A:@.A&@A:@A:NIL (163 COMPLEX 155 COMPLEX 144 COMPLEX 136 COMPLEX 128 COMPLEX 120 COMPLEX 110 RATIO 102 RATIO 91 RATIO 83 RATIO 75 RATIO 67 RATIO) () LOC :D8 (L (0 X)) @@NIL NIL () VAG :D8 (L (0 LOC)) @d@3 @j @ (28 \LONUM 22 \HINUM) NIL () \NEW4PAGE :D8 (L (0 PTR)) #@ n n n (32 \NEWPAGE 23 \NEWPAGE 14 \NEWPAGE 5 \NEWPAGE) NIL () CONS :D8 (L (1 Y 0 X)) @ANIL NIL () \CONS.UFN :D8 (L (1 Y 0 X) P 0 \INTERRUPTABLE) @A`lZkӹJIIjJdk`d k`khAR`l \Ll[Kdj[dнKMKdmM@MlM3l1AAn[j AlK" Odjh`l ! OjO_1lOhOjOOOOOlOAOOOO_:OXOdOlNOKOKO_KdO_KdmO@OOOlO$O_KO_ O^Nl_1lOhOjOhOO_OOlTOOOOO_OdO_OdmOOAO@OOOOO_O_OO_~h_dOl _nOdO_OdmOOAO@OOOOO_O_OO_Ih[dK(633 \GETBASEFIXP 252 \NEXTCONSPAGE 228 \GETBASEFIXP 119 \NEXTCONSPAGE 95 \GETBASEFIXP 77 \DORECLAIM) (221 \LISTPDTD 88 \LISTPDTD 71 \RECLAIM.COUNTDOWN 65 \RECLAIM.COUNTDOWN 58 \RECLAIM.COUNTDOWN 46 \RECLAIM.COUNTDOWN 13 \LISTPDTD) () \MAIKO.CONS.UFN :D8 (L (1 Y 0 X) P 0 \INTERRUPTABLE)  p@A`lZkӹJIIjJdk``khAlQAAn[j@K@lAl OdмOLOdmLOLOLo[@Al1jKdнKMKdmMAMjMl OdоONOdmNONON[dK(160 \NEXTCONSPAGE 68 \DORECLAIM) (62 \RECLAIM.COUNTDOWN 53 \RECLAIM.COUNTDOWN 46 \RECLAIM.COUNTDOWN 13 \LISTPDTD) () CAR :D8 (L (0 X)) @NIL NIL () \CAR.UFN :D8 (NAME CAR L (0 X)) [@ddjh`di@l ddg@diid3@o@did o(81 STRINGP 36 \LISPERROR) (45 CDR 23 CAR/CDRERR) ( 88 "{car of non-list}" 67 "{car of non-list}") CDR :D8 (L (0 X)) @NIL NIL () \CDR.UFN :D8 (NAME CDR L (0 X)) @d@Hdlhl@@nHlHj@b@@nH`didg@l @d3@@o@d o(122 STRINGP 94 \LISPERROR) (83 CDR 73 CAR/CDRERR) ( 129 "{cdr of non-list}" 114 "{cdr of non-list}") RPLACA :D8 (L (1 Y 0 X)) @ANIL NIL () \RPLACA.UFN :D8 (L (1 Y 0 X) P 2 \INTERRUPTABLE P 0 \INTERRUPTABLE) Q@@AdFl l  @A@djIdnAnIjkA@(25 \LISPERROR 17 \LISPERROR) NIL () RPLACD :D8 (L (1 Y 0 X)) @ANIL NIL () \RPLACD.UFN :D8 (L (1 Y 0 X) P 0 \INTERRUPTABLE) 7 @@Ad+l l `@A@Ydj@ZJnJAl@@nIAA@l@@nZAAn@lAlرJj4@jJdлJKJdmKAKjKlذn@Z@jJdмJLJdmLALjLlNdнNMNdmMOMOM@j@(202 \NEXTCONSPAGE 27 \LISPERROR 19 \LISPERROR) NIL () DOCOLLECT :D8 (L (1 LST 0 ITEM)) A @hddd@ANIL NIL () \RPLCONS :D8 (L (1 ITEM 0 LST) P 0 \INTERRUPTABLE) @`@@n\j@lA@LdйLILdmIAIlI`l[kӺKJJjKdk`$`k`k@lMlMh Ahb@AA(164 \DORECLAIM) (158 \RECLAIM.COUNTDOWN 152 \RECLAIM.COUNTDOWN 145 \RECLAIM.COUNTDOWN 136 \RECLAIM.COUNTDOWN 129 \RECLAIM.COUNTDOWN 96 \LISTPDTD) () ENDCOLLECT :D8 (L (1 Y 0 X)) @A@ANIL NIL () \INITCONSPAGE :D8 (L (1 LINK 0 BASE)) ?@llHl@HYhIHlX@l~@lAA @(59 \PUTBASEFIXP) NIL () \NEXTCONSPAGE :D8 NIL K`l !` YddnHZJl `lII I(71 \PUTBASEFIXP 52 \INITCONSPAGE 47 \INITCONSPAGE 26 \ALLOCMDSPAGE 11 \GETBASEFIXP) (57 \LISTPDTD 19 \LISTPDTD 4 \LISTPDTD) () \RESTLIST.UFN :D8 (L (2 FIRSTN 1 LASTN 0 TAIL)) K@fQkHjHlلkHkIkJlѻBALMKM@bMmԽ@(6 \GC.HANDLEOVERFLOW) NIL () \FINDKEY.UFN :D8 (L (1 ARGN 0 KEY)) Pf!kHjHlلkHkIIJkAkJAkLKM@LkLlԼMldнhNIL NIL () CHECKCONSPAGES :D8 NIL Q`l XHlHgg lH Hl YIlX(68 \GETBASEFIXP 57 HELP 45 \MAPMDS 14 \GETBASEFIXP) (40 \CHECKCONSPAGE 35 LISTP 7 \LISTPDTD) () \CHECKCONSPAGE :D8 (L (0 PN)) b@XHl!HHYkjo Jj$IjHIYkjo JmZIjo h(94 RAID 72 RAID 40 RAID) NIL ( 89 (EQ NXT 0) 67 (AND (NEQ NXT 0) (EVENP (SETQ NXT (fetch (LISTP CDRCODE) of (\ADDBASE PTR NXT))) WORDSPERCELL)) 35 (EVENP (SETQ NXT (fetch (CONSPAGE NEXTCELL) of PTR)) WORDSPERCELL)) (PRETTYCOMPRINT LLNEWCOMS) (RPAQQ LLNEWCOMS ((PROPS (LLNEW FILETYPE)) (COMS (* ; "low level memory access") (FNS \ADDBASE \GETBASE \PUTBASE \PUTBASE.UFN \PUTBASEPTR.UFN \PUTBITS.UFN \GETBASEBYTE \PUTBASEBYTE \GETBASEPTR \PUTBASEPTR \HILOC \LOLOC \VAG2 \RPLPTR \RPLPTR.UFN) (FNS EQ EQL) (PROP BYTEMACRO EQL) (FNS LOC VAG) ( FNS CREATEPAGES \NEW4PAGE) (DECLARE%: DONTCOPY (EXPORT (RECORDS POINTER WORD) (MACROS PTRGTP .COERCE.TO.SMALLPOSP. .COERCE.TO.BYTE.)) (ADDVARS (INEWCOMS (FNS \GETBASEBYTE \PUTBASEBYTE CREATEPAGES \NEW4PAGE)) (RDCOMS (FNS \CAR.UFN \CDR.UFN) (FNS \COPY \UNCOPY) (FNS \GETBASEBYTE \PUTBASEBYTE)) ( INITPTRS (\LISTPDTD)) (MKI.SUBFNS (\ADDBASE . I.ADDBASE) (\GETBASE . I.GETBASE) (\PUTBASE . I.PUTBASE) (\GETBASEPTR . I.GETBASEPTR) (\PUTBASEPTR . I.PUTBASEPTR) (\HILOC . I.HILOC) (\LOLOC . I.LOLOC) ( \VAG2 . I.VAG2) (.COERCE.TO.SMALLPOSP. . PROG1) (.COERCE.TO.BYTE. . PROG1) (LOCKEDPAGEP . MKI.LOCKEDPAGEP) (\RPLPTR . I.PUTBASEPTR) (CONS . I.\CONS.UFN)) (RD.SUBFNS (\ADDBASE . VADDBASE) ( \GETBASE . VGETBASE) (\PUTBASE . VPUTBASE) (\GETBASEPTR . VGETBASEPTR) (\PUTBASEPTR . VPUTBASEPTR) ( \HILOC . VHILOC) (\LOLOC . VLOLOC) (\VAG2 . VVAG2) (.COERCE.TO.SMALLPOSP. . PROG1) (.COERCE.TO.BYTE. . PROG1) (PTRGTP . IGREATERP) (\RPLPTR . VPUTBASEPTR) (CAR . V\CAR.UFN) (CDR . V\CDR.UFN) (CAR/CDRERR . T))) EVAL@COMPILE (ADDVARS (DONTCOMPILEFNS CREATEPAGES)))) (COMS (* ; "cons cells") (FNS CONS \CONS.UFN \MAIKO.CONS.UFN CAR \CAR.UFN CDR \CDR.UFN RPLACA \RPLACA.UFN RPLACD \RPLACD.UFN DOCOLLECT \RPLCONS ENDCOLLECT \INITCONSPAGE \NEXTCONSPAGE) (ADDVARS (\MAIKO.MOVDS (\MAIKO.CONS.UFN \CONS.UFN))) (FNS \RESTLIST.UFN \FINDKEY.UFN) (INITVARS (CAR/CDRERR (QUOTE CDR))) (DECLARE%: DONTCOPY (GLOBALVARS CAR/CDRERR) (EXPORT (RECORDS LISTP CONSPAGE) (CONSTANTS * CONSCONSTANTS)) (MACROS .MAKECONSCELL. .FINDCLOSEPRIOR. .FINDCDRABLEPAIR. .FINDPAIR.) (* ; "for MAKEINIT") (ADDVARS (INEWCOMS (FNS \CONS.UFN \MAIKO.CONS.UFN \INITCONSPAGE \NEXTCONSPAGE)) (EXPANDMACROFNS .MAKECONSCELL. .FINDCLOSEPRIOR. .FINDCDRABLEPAIR. .FINDPAIR.))) (COMS (* ; "testing out CONSes") (FNS CHECKCONSPAGES \CHECKCONSPAGE) ( DECLARE%: DONTCOPY (MACROS !CHECK)))) (COMS (* ; "other random stuff for makeinit") (FNS MAKEINITFIRST MAKEINITLAST \COPY \UNCOPY) (DECLARE%: DONTCOPY (EXPORT (MACROS LOCAL ALLOCAL)) (ADDVARS (MKI.SUBFNS (CHECK . *) (RAID . HELP) (UNINTERRUPTABLY . PROGN) (\StatsAdd1 . *) (EVQ . I.\COPY) (COPY . I.\COPY)) (RD.SUBFNS (CHECK . *) (RAID . HELP) (UNINTERRUPTABLY . PROGN) (\StatsAdd1 . *) (EVQ . V\COPY) (COPY . V\COPY) (1ST . V\UNCOPY))) (ADDVARS (INEWCOMS (FNS MAKEINITFIRST \COPY MAKEINITLAST))) EVAL@COMPILE (ADDVARS (DONTCOMPILEFNS MAKEINITFIRST \COPY MAKEINITLAST \UNCOPY)))) (LOCALVARS . T))) (PUTPROPS LLNEW FILETYPE :BCOMPL) (PUTPROPS EQL BYTEMACRO COMP.EQ) (ADDTOVAR \MAIKO.MOVDS (\MAIKO.CONS.UFN \CONS.UFN)) (RPAQ? CAR/CDRERR (QUOTE CDR)) (PUTPROPS LLNEW COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1990 1992 1993)) NIL