(FILECREATED " 2-Apr-86 23:58:20" ("compiled on " {QV}SOURCES>TOPLEVEL.;16) "12-Nov-85 14:59:23" recompiled changes: nothing in "INTERLISP-D 7-Feb-86 ..." dated " 7-Feb-86 11:43:05") (FILECREATED " 2-Apr-86 23:58:09" {QV}SOURCES>TOPLEVEL.;16 8475 changes to: (DECLTYPES COMPOUNDOBJECT CURVEOBJECT FILLEDRECTANGLEOBJECT LINEOBJECT POINTOBJECT POLYGONOBJECT TEXTOBJECT) previous date: "16-Feb-86 13:53:56" {QV}SOURCES>TOPLEVEL.;15) FINDUNAME D1 (P 0 NUNAME I 0 UENAME F 1 UERRORNAME F 2 FASTCOMPILE) P@dlð”µQ°gð“@‡o@ Hd²dið³d¥d¡µ gHhXR›dgo H(113Q SUBST 36Q HELP) (104Q UEX 71Q QUOTE 20Q QUOTE) ( 110Q (LOADTIMECONSTANT (PROGN (ADDSPELL UEX 1) (ADDSPELL UEX 2) UEX)) 32Q "Bad UERRORNAME") UARG D1 (I 0 VARNAME F 0 UERRORSTKPTR) @ghdP P ¿(20Q RELSTK 14Q EVALV 11Q STKPOS) (3 UERRORSET) () UERROR! D1 (P 0 BREAKFN F 1 UERRORSTKPTR F 2 URESETVARSLST F 3 UERRORNAME F 4 RESETVARSLST) hTRð§Rg ¿SdgðŸ¿ghdQ id gð˜oi mÿghdQ hQ gH Hd iShQdid h(144Q ENVEVAL 125Q SAVED1 122Q ARGLIST 115Q FNTYP 103Q STKNAME 100Q REALSTKNTH 73Q STKPOS 57Q BREAK1 41Q RETFROM 34Q STKPOS 12Q RESETRESTORE) (111Q BREAK1 65Q UERRORSET 45Q UERRORTOP 26Q UERRORSET 20Q UERRORGUARD 7 ERROR) ( 53Q (ERROR "Can't continue")) UERRORPRINT? D1 (F 0 UERRORNAME F 1 UERRORALWAYSFLAG) Pdgð‘Qgð‘iPi oi (34Q PRIN1 24Q PRIN1) (13Q UERRORTOP 4 UERRORGUARD) ( 30Q ": ") (PRETTYCOMPRINT TOPLEVELCOMS) (RPAQQ TOPLEVELCOMS ((* Contains user-error functions) (FNS FINDUNAME UARG UERROR! UERRORPRINT?) (VARS (UERRORSTKPTR (STKNTH 0 T)) (UERRORNAME (QUOTE UERRORTOP)) (UERRORALWAYSFLAG) (URESETVARSLST)) (IF: TESTSYS (* UENTRY macro adds to spelling lists at load-time if FASTCOMPILE.) (MACROS UENTRY UERRORGUARD UERRORGUARDVAL UERROR) (MACROS UERRORFIND UERRORSET) (TEMPLATES UENTRY UERROR UERRORGUARD UERRORSET) (ADDVARS (NOFIXVARSLST .P2)) (* * For GLOBAL) (DECLTYPES ARITH FLOATING IJK IJKDELTA INTEGER POSINT SCALAR VSCALARP (FIXP COERCION) (FLOATP COERCION) (NUMBERP COERCION) (NIL COERCION)) (* * For PRINT) (DECLTYPES STREAM OUTPUTSTREAM) (* * For LABELS) (DECLTYPES LABEL TITLE USERTITLE) (* * For IDLPLOT) (DECLTYPES COMPOUNDOBJECT CURVEOBJECT FILLEDRECTANGLEOBJECT LINEOBJECT POINTOBJECT POLYGONOBJECT TEXTOBJECT WINDOW)) (ADDVARS (SYSSPECVARS UERRORNAME URESETVARSLST) (SPECVARS UERRORNAME URESETVARSLST)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML UARG) (LAMA))))) (RPAQ UERRORSTKPTR (STKNTH 0 T)) (RPAQQ UERRORNAME UERRORTOP) (RPAQQ UERRORALWAYSFLAG NIL) (RPAQQ URESETVARSLST NIL) (DECLARE: EVAL@LOADWHEN TESTSYS (DECLARE: EVAL@COMPILE (PUTPROPS UENTRY MACRO (ARGS (LIST (QUOTE UERRORSET) (CONS (QUOTE PROGN) (CDR ARGS)) (FINDUNAME (CAR ARGS))))) (PUTPROPS UERRORGUARD MACRO (ARGS (COND ((CDR ARGS) (LIST (QUOTE AND) (LIST (QUOTE UERRORGUARDVAL) (CAR ARGS)) (CONS (QUOTE UERROR) ( CDR ARGS)))) (T (CONS (QUOTE UERRORGUARDVAL) ARGS))))) (PUTPROPS UERRORGUARDVAL MACRO ((F) (UERRORSET (PROGN F NIL) (QUOTE UERRORGUARD)))) (PUTPROPS UERROR MACRO (ARGS (COND (ARGS (LIST (QUOTE PROGN) ( SUBST ARGS (QUOTE COMS) (QUOTE (COND ((UERRORPRINT?) (PRINTOUT T . COMS) (TERPRI T))))) (QUOTE ( UERROR!)))) (T (QUOTE (UERROR!))))))) (DECLARE: EVAL@COMPILE (PUTPROPS UERRORFIND DMACRO (ARGS (QUOTE (STKPOS (QUOTE UERRORSET) NIL NIL UERRORSTKPTR)))) (PUTPROPS UERRORSET DMACRO ((FORM NAME) (NAMEDLET UERRORSET ((UERRORNAME NAME) (URESETVARSLST RESETVARSLST)) FORM)))) (SETTEMPLATE (QUOTE UENTRY) (QUOTE (NIL .. EVAL RETURN))) (SETTEMPLATE (QUOTE UERROR) (QUOTE MACRO)) (SETTEMPLATE (QUOTE UERRORGUARD) ( QUOTE MACRO)) (SETTEMPLATE (QUOTE UERRORSET) (QUOTE MACRO)) (ADDTOVAR NOFIXVARSLST .P2) (DECLARE: EVAL@COMPILE (DECLTYPES (ARITH (SYNONYM NUMBERP)) (FLOATING (SYNONYM FLOATP)) (IJK (SUBTYPE CARDINAL)) (IJKDELTA (SUBTYPE FIXP)) (INTEGER (SYNONYM FIXP)) (POSINT (INTEGER (SATISFIES (IGREATERP VALUE 0)))) (SCALAR (ONEOF ARITH NIL) COERCION (CONV.SCALAR)) (VSCALARP (SUBTYPE ANY) TESTFN VSCALARP) (FIXP FIXP COERCION ((FIXR (CONV.ARITH UARG)))) (FLOATP FLOATP COERCION ((FLOAT (CONV.ARITH UARG)))) (NUMBERP NUMBERP COERCION (CONV.ARITH)) (NIL NIL COERCION (CONV.SCALAR NULL)))) (DECLARE: EVAL@COMPILE ( DECLTYPES (STREAM (SUBTYPE ANY) TESTFN STREAMP) (OUTPUTSTREAM (SUBTYPE STREAM) TESTFN (LAMBDA (S) (AND (STREAMP S) (\GETSTREAM S (QUOTE OUTPUT) T))) COERCION ((AND (LITATOM UARG) (OR (\GETSTREAM UARG ( QUOTE OUTPUT) T) (OPENSTREAM UARG (QUOTE OUTPUT)))))))) (DECLARE: EVAL@COMPILE (DECLTYPES (LABEL ( SUBTYPE LITATOM)) (TITLE (ONEOF LISTP STRINGP)) (USERTITLE (ONEOF STRINGP NIL) COERCION ((OR (STRINGP UARG) (AND UARG (LITATOM UARG) (MKSTRING UARG)) (UERROR "Invalid title: " .P2 UARG)))))) (DECLARE: EVAL@COMPILE (DECLTYPES (COMPOUNDOBJECT (PLOTOBJECT (SATISFIES (PLOTOBJECTSUBTYPE? COMPOUND VALUE)))) (CURVEOBJECT (PLOTOBJECT (SATISFIES (PLOTOBJECTSUBTYPE? CURVE VALUE)))) (FILLEDRECTANGLEOBJECT ( PLOTOBJECT (SATISFIES (PLOTOBJECTSUBTYPE? FILLEDRECTANGLE VALUE)))) (LINEOBJECT (PLOTOBJECT (SATISFIES (PLOTOBJECTSUBTYPE? LINE VALUE)))) (POINTOBJECT (PLOTOBJECT (SATISFIES (PLOTOBJECTSUBTYPE? POINT VALUE)))) (POLYGONOBJECT (PLOTOBJECT (SATISFIES (PLOTOBJECTSUBTYPE? POLYGON VALUE)))) (TEXTOBJECT ( PLOTOBJECT (SATISFIES (PLOTOBJECTSUBTYPE? TEXT VALUE)))) (WINDOW (SUBTYPE STREAM) TESTFN WINDOWP)))) (ADDTOVAR SYSSPECVARS UERRORNAME URESETVARSLST) (ADDTOVAR SPECVARS UERRORNAME URESETVARSLST) (PUTPROPS TOPLEVEL COPYRIGHT ("Xerox Corporation" 1983 1984 1985 1986)) NIL