(FILECREATED " 1-Aug-85 12:48:58" ("compiled on " {ERIS}PROLOG>PRIM.%;1) "19-Mar-85 14:34:17" tcompl'd in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED " 1-Aug-85 12:31:25" {ERIS}PROLOG>PRIM.%;1 10587 changes to: (VARS PRIMCOMS) ( FNS QP.ATOM.NUMBER QP.CLEAR.BYTE.BUFFER QP.FLOAT.FROM.BYTE.BUFFER QP.FLOAT.TO.BYTE.BUFFER QP.FLOAT.TO.STRING QP.INTERN.SYMBOL QP.LOCAL.PREDICATE QP.LOCAL.PREDICATE1 QP.P.CHECK.PREDICATE QP.PUT.BYTE QP.SYMBOL.CHAR QP.SYMBOL.COMPARE QP.SYMBOL.LENGTH QP.SYMBOL.TO.BYTE.BUFFER QP.UNDEF)) QP.ATOM.NUMBER D1 (L (0 ATOM)) @ÓNIL NIL () QP.CLEAR.BYTE.BUFFER D1 NIL jNIL (3 BYTE.BUFFER.LENGTH) () QP.FLOAT.FROM.BYTE.BUFFER D1 (P 1 OBJ P 0 STR) $`k` g H Iµ(41Q PACK 26Q READ 17Q OPENSTRINGSTREAM 11Q SUBSTRING) (14Q INPUT 6 BYTE.BUFFER.LENGTH 2 BYTE.BUFFER) () QP.FLOAT.TO.BYTE.BUFFER D1 (I 0 FLOAT) @µj` (17Q QP.FLOAT.TO.STRING) (22Q BYTE.BUFFER.LENGTH 14Q BYTE.BUFFER 10Q BYTE.BUFFER.LENGTH) () QP.FLOAT.TO.STRING D1 (P 2 SCRATCH2 P 1 OLDFORMAT P 0 STR I 1 STRING.OUT I 0 FLOAT F 3 QP.SCRATCH.STRING F 4 POSIT) NSg i @H H I SkgSk c ZSk)l.ôŸAkl0+AlJ TkØAkJ T(112Q RPLSTRING 100Q RPLSTRING 54Q SUBSTRING 47Q STRPOS 35Q FLTFMT 31Q CLOSEF 25Q PRINT 20Q FLTFMT 11Q FLTFMT 6 OPENSTRINGSTREAM) (42Q % 3 OUTPUT) () QP.INTERN.SYMBOL D1 NIL `k` (14Q MKATOM 11Q SUBSTRING) (6 BYTE.BUFFER.LENGTH 2 BYTE.BUFFER) () QP.LOCAL.PREDICATE D1 (P 3 HASH P 2 RECORD P 1 ARGLIST P 0 ALIST I 2 MODULE I 1 ARITY I 0 NAME F 4 QP.PROCEDURE.HARRAY) D@B¥gb¿A£jb¿@ÓABÓææ[dTX@ABhYdH Zdµ@AB ZKIJHT J(76Q PUTHASH 63Q QP.MAKE.PROCEDURE.RECORD 51Q SASSOC) (7 si) () QP.LOCAL.PREDICATE1 D1 (I 2 MODULE I 1 ARITY I 0 NAME) @AB HÒááHÓØ(5 QP.LOCAL.PREDICATE) NIL () QP.P.CHECK.PREDICATE D1 (P 3 HASH P 2 RECORD P 1 ARGLIST P 0 ALIST I 2 MODULE I 1 ARITY I 0 NAME F 4 QP.PROCEDURE.HARRAY) 2@B¥gb¿A£jb¿@ÓABÓææ[dTX@ABhYdH dµj(51Q SASSOC) (7 si) () QP.PUT.BYTE D1 (I 0 CHAR) `kØ``@+iNIL (15Q BYTE.BUFFER.LENGTH 12Q BYTE.BUFFER 7 BYTE.BUFFER.LENGTH 2 BYTE.BUFFER.LENGTH) () QP.SYMBOL.CHAR D1 (I 1 SYMBOL I 0 INDEX) A@)NIL NIL () QP.SYMBOL.COMPARE D1 (I 1 SYMBOL2 I 0 SYMBOL1) @Aô‘j@A ’mÿk(12Q ALPHORDER) NIL () QP.SYMBOL.LENGTH D1 (I 0 SYMBOL) @ (3 NCHARS) NIL () QP.SYMBOL.TO.BYTE.BUFFER D1 (I 0 SYMBOL) ``kØ@ `@ Ø(22Q NCHARS 13Q RPLSTRING) (26Q BYTE.BUFFER.LENGTH 16Q BYTE.BUFFER.LENGTH 5 BYTE.BUFFER.LENGTH 2 BYTE.BUFFER) () QP.UNDEF D1 (F 0 QP.PROCEDURE.HARRAY) Po i(7 MAPHASH) NIL ( 4 (LAMBDA (VALUE KEY) (MAPC VALUE (QUOTE (LAMBDA (PAIR) (LET ((PROC (CDR PAIR))) (COND ((QP.EMPTY.CLAUSES PROC) (PRIN3 (QUOTE No% clauses% for:% )) (PRINT PROC))))))))) (PRETTYCOMPRINT PRIMCOMS) (RPAQQ PRIMCOMS ((VARS BYTE.BUFFER BYTE.BUFFER.LENGTH) (FNS QP.ATOM.NUMBER QP.CLEAR.BYTE.BUFFER QP.FLOAT.FROM.BYTE.BUFFER QP.FLOAT.TO.BYTE.BUFFER QP.FLOAT.TO.STRING QP.INTERN.SYMBOL QP.LOCAL.PREDICATE QP.LOCAL.PREDICATE1 QP.P.CHECK.PREDICATE QP.PUT.BYTE QP.SYMBOL.CHAR QP.SYMBOL.COMPARE QP.SYMBOL.LENGTH QP.SYMBOL.TO.BYTE.BUFFER QP.UNDEF))) (RPAQQ BYTE.BUFFER "" ) (RPAQQ BYTE.BUFFER.LENGTH 0) (PUTPROPS PRIM COPYRIGHT ("Xerox Corporation" 1985)) NIL