(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (filecreated "17-Oct-86 12:45:57" ("compiled on " {eris}sources>llnew.\;13) "14-Oct-86 21:06:05" |recompiled| |changes:| makeinitlast |in| "Xerox Lisp 14-Oct-86 ..." |dated| "14-Oct-86 22:24:47") (filecreated "17-Oct-86 12:45:03" {eris}sources>llnew.\;13 56868 |changes| |to:| (fns makeinitlast) (vars llnewcoms) |previous| |date:| " 8-Sep-86 14:40:01" {eris}sources>llnew.\;11) \\addbase d1 (l (1 d 0 x)) @@"AdlAAdk0jAhijAnAӻIdnK;HkԸInKkٰ-lA bAdAoi bl bKԹJnHnJkقHJI(111 \\lisperror 102 \\lisperror 82 \\fixp.from.floatp) (91 bignum) ( 98 "ARG NOT FIXP") \\getbase d1 (l (1 d 0 x)) @Anil nil () \\putbase d1 (l (2 v 1 d 0 x)) !@ABdjBhiBB HII(22 \\illegal.arg) nil () \\putbase.ufn d1 (l (2 d 1 v 0 x)) !@BAdjAhiAA HII(22 \\illegal.arg) nil () \\putbaseptr.ufn d1 (l (2 d 1 v 0 x)) @BA@BAAnil nil () \\putbits.ufn d1 (l (2 n.fd 1 v 0 x)) RAdjAhiAA BlkBl#lJI\kI k[@BdKL nHKL H(75 llsh 63 llsh 48 llsh 19 \\illegal.arg) nil () \\getbasebyte d1 (l (1 n 0 ptr)) Akj@A@Alnil nil () \\putbasebyte d1 (l (2 byte 1 disp 0 ptr)) NBdjBhinBBB b@AbAkj@ABHl@ABB(26 \\illegal.arg) (33 smallp) () \\getbaseptr d1 (l (1 d 0 x)) @Al@Anil nil () \\putbaseptr d1 (l (2 v 1 d 0 x)) @AB@ABBnil nil () \\hiloc d1 (l (0 x)) @nil nil () \\loloc d1 (l (0 x)) @nil nil () \\vag2 d1 (l (1 l 0 h)) 2@dj@hin@@@ AdjAhiAA (46 \\illegal.arg 26 \\illegal.arg) nil () eq d1 (l (1 y 0 x)) @Anil nil () eql d1 (l (1 y 0 x)) n@Ai@Hd3 A3 Z@AjAJ@A HdA6@ A :+@ A :A@ A : @ A :(106 complex-imagpart 102 complex-imagpart 95 complex-realpart 91 complex-realpart 74 ratio-denominator 70 ratio-denominator 63 ratio-numerator 59 ratio-numerator 40 feqp) (85 complex 79 complex 53 ratio 46 ratio 33 floatp 28 floatp) () \\rplptr d1 (l (2 val 1 offset 0 obj) p 0 \\interruptable) B@Ab@kB@BBnil nil () \\rplptr.ufn d1 (l (2 offset 1 val 0 obj) p 0 \\interruptable) A@Bb@kA@AAnil nil () loc d1 (l (0 x)) @@nil nil () vag d1 (l (0 loc)) @d@3 @j @ (24 \\lonum 20 \\hinum) nil () \\new4page d1 (l (0 ptr)) @ n n n (24 \\newpage 17 \\newpage 10 \\newpage 3 \\newpage) nil () cons d1 (l (1 y 0 x)) @Anil nil () \\cons.ufn d1 (l (1 y 0 x) p 0 \\interruptable)  p@A`l ZkӹJIIjJdk``k `kAlQAAn[j@K@All OdмOLOdmLOLOLk[@Al/KdнKMKdmMAMjMl OdоONOdmNONON[dK(157 \\nextconspage 67 \\doreclaim) (63 \\reclaim.countdown 59 \\reclaim.countdown 54 \\reclaim.countdown 47 \\reclaim.countdown 42 \\reclaim.countdown 11 \\listpdtd) () car d1 (l (0 x)) @nil nil () \\car.ufn d1 (name car l (0 x)) P@ddjh`di@l ddg@diilo@dido(32 \\lisperror) (39 cdr 21 car/cdrerr) ( 77 "{car of non-list}" 60 "{car of non-list}") cdr d1 (l (0 x)) @nil nil () \\cdr.ufn d1 (name cdr l (0 x)) y@d@Hdlhl@@nHlHj@b@@nH`didg@l @l@o@do(88 \\lisperror) (79 cdr 71 car/cdrerr) ( 118 "{cdr of non-list}" 107 "{cdr of non-list}") rplaca d1 (l (1 y 0 x)) @Anil nil () \\rplaca.ufn d1 (l (1 y 0 x) p 2 \\interruptable p 0 \\interruptable) @@@ Ad5l l  @A@djIkAlǿIA@(21 \\lisperror 15 \\lisperror) nil () rplacd d1 (l (1 y 0 x)) @Anil nil () \\rplacd.ufn d1 (l (1 y 0 x) p 0 \\interruptable) 1 @@Ad%l l `@A@Ydj@ZJnJAlhi@@nIAA@l@@nZAAn@AllرJj2@JdлJKJdmKAKjKlj@Z@JdмJLJdmLALjLlNdнNMNdmMOMOM@j@(198 \\nextconspage 23 \\lisperror 17 \\lisperror) nil () docollect d1 (l (1 lst 0 item)) A @hddd@Anil nil () \\rplcons d1 (l (1 item 0 lst) p 0 \\interruptable) @`@@n\j@lA@LdйLILdmIAIlI`l [kӺKJJjKdk``k `k@MllMh Ahb@AA(150 \\doreclaim) (146 \\reclaim.countdown 142 \\reclaim.countdown 137 \\reclaim.countdown 130 \\reclaim.countdown 125 \\reclaim.countdown 94 \\listpdtd) () endcollect d1 (l (1 y 0 x)) @A@Anil nil () \\initconspage d1 (l (1 link 0 base)) 9@llHj@HYhIHlX@l@AA@nil nil () \\nextconspage d1 nil X` !Hdj%` Ydn `II ZJlYIkI`IX In(34 \\initconspage 31 \\initconspage 22 \\allocmdspage) (70 \\listpdtd 38 \\listpdtd 17 \\listpdtd 2 \\listpdtd) () \\restlist.ufn d1 (l (2 firstn 1 lastn 0 tail)) M@fQkHjhiHlلkHkIkJlѻBALMKM@bMmԽ@(4 \\gc.handleoverflow) nil () \\findkey.ufn d1 (l (1 argn 0 key)) Rf!kHjhiHlلkHkIIJkAkJAkLKM@LkLlԼMlнhnil nil () checkconspages d1 nil =` XHlH gg lH HYIlX(42 help 32 \\mapmds) (29 \\checkconspage 26 listp 5 \\listpdtd) () \\checkconspage d1 (l (0 pn)) Y@XHl!HHYkjo Jj!IjHIYkjo JmZIjo h(85 raid 66 raid 37 raid) nil ( 82 (eq nxt 0) 63 (and (neq nxt 0) (evenp (setq nxt (|fetch| (listp cdrcode) |of| (\\addbase ptr nxt))) wordspercell)) 34 (evenp (setq nxt (|fetch| (conspage nextcell) |of| ptr)) wordspercell)) (rpaqq llnewcoms ((coms (* \; "low level memory access") (fns \\addbase \\getbase \\putbase \\putbase.ufn \\putbaseptr.ufn \\putbits.ufn \\getbasebyte \\putbasebyte \\getbaseptr \\putbaseptr \\hiloc \\loloc \\vag2 eq eql \\rplptr \\rplptr.ufn) (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) (cons . vcons) (createcell . vcreatecell) (copystring . vcopystring) ( 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 car \\car.ufn cdr \\cdr.ufn rplaca \\rplaca.ufn rplacd \\rplacd.ufn docollect \\rplcons endcollect \\initconspage \\nextconspage) (fns \\restlist.ufn \\findkey.ufn) (initvars (car/cdrerr (quote cdr))) (declare\: dontcopy (globalvars car/cdrerr) (export (records listp conspage) (constants * consconstants)) (macros .makeconscell.) (* \; "for MAKEINIT") (addvars (inewcoms (fns \\cons.ufn \\initconspage \\nextconspage)) (expandmacrofns .makeconscell.))) (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 eql bytemacro comp.eq) (rpaq? car/cdrerr (quote cdr)) (putprops llnew copyright ("Xerox Corporation" 1981 1982 1983 1984 1985 1986)) nil