(PROGN (PRIN1 "Use LOADDB to load database files! " T) (ERROR!)) ("12-Jul-84 18:23:14" . {ERIS}SCOPE.FPKG;21) FNS (SCOPE.SETUP SCOPE.CLEAR SCOPE.POINT SCOPE.PRINT SCOPE.DRAWTO SCOPE.STEP SCOPE.WIDTH) (READATABASE) ( CALL SCOPE.SETUP (EVALV CREATEW CREATEREGION DSPYPOSITION DSPXPOSITION ARRAYSIZE) SCOPE.CLEAR ( SCALED.WINDOW.PRINT.SCALES) SCOPE.POINT (WINDOWPROP FIXR FTIMES FQUOTIENT FDIFFERENCE) SCOPE.PRINT ( WINDOWPROP IMIN IPLUS ADD1 ARRAYSIZE ELT MINUS IDIFFERENCE FTIMES) SCOPE.DRAWTO (WINDOWPROP FTIMES IPLUS SUB1) SCOPE.STEP (ADD1) SCOPE.WIDTH (WINDOWPROP) NIL BIND SCOPE.SETUP NIL SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT NIL SCOPE.DRAWTO (V) SCOPE.STEP NIL SCOPE.WIDTH NIL NIL NLAMBDA SCOPE.SETUP NIL SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT NIL SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL NOBIND SCOPE.SETUP NIL SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT NIL SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL RECORD SCOPE.SETUP NIL SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT (REGION) SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL CREATE SCOPE.SETUP (REGION) SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT NIL SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL FETCH SCOPE.SETUP NIL SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT (LEFT WIDTH) SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL REPLACE SCOPE.SETUP (LEFT BOTTOM HEIGHT WIDTH) SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT NIL SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL REFFREE SCOPE.SETUP (SPEECH.*WAVE*) SCOPE.CLEAR (SCOPE.WINDOW) SCOPE.POINT (SCOPE.WINDOW SCOPE.YMIN SCOPE.YMAX PROMPTWINDOW SCOPE.U) SCOPE.PRINT (PROMPTWINDOW SCOPE.WINDOW) SCOPE.DRAWTO (SCOPE.WINDOW PROMPTWINDOW SCOPE.U) SCOPE.STEP NIL SCOPE.WIDTH (SCOPE.WINDOW) NIL REF SCOPE.SETUP (YMIN YMAX) SCOPE.CLEAR (WINDOW) SCOPE.POINT (Y) SCOPE.PRINT (WINDOW) SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL SETFREE SCOPE.SETUP (SCOPE.WINDOW) SCOPE.CLEAR NIL SCOPE.POINT (SCOPE.V) SCOPE.PRINT NIL SCOPE.DRAWTO (SCOPE.V) SCOPE.STEP (SCOPE.U) SCOPE.WIDTH NIL NIL SET SCOPE.SETUP (STARTY STARTX) SCOPE.CLEAR NIL SCOPE.POINT (HEIGHT) SCOPE.PRINT (ARRAY Y.SCALE.FACTOR Y.POS.FOR.XSCALE BOTTOM.X.SCALE.OFFSET YMAX YMIN Y0 Y OLD.Y OLD.X X) SCOPE.DRAWTO (HEIGHT SCOPE.YMIN SCOPE.YMAX BOTTOM.X.SCALE.OFFSET Y.SCALE.FACTOR Y0 Y) SCOPE.STEP NIL SCOPE.WIDTH NIL NIL SMASHFREE SCOPE.SETUP NIL SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT NIL SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL SMASH SCOPE.SETUP NIL SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT NIL SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL PROP SCOPE.SETUP NIL SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT NIL SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL TEST SCOPE.SETUP (NEWFLG) SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT (ARRAY REGION OLD.X) SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL TESTFREE SCOPE.SETUP NIL SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT NIL SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL PREDICATE SCOPE.SETUP (WINDOWP) SCOPE.CLEAR NIL SCOPE.POINT (FLESSP FGREATERP) SCOPE.PRINT (IGREATERP FLESSP FGREATERP) SCOPE.DRAWTO (FLESSP FGREATERP ZEROP) SCOPE.STEP NIL SCOPE.WIDTH NIL NIL EFFECT SCOPE.SETUP (CLOSEW WINDOWPROP SCALED.WINDOW.SETUP) SCOPE.CLEAR (CLEARW) SCOPE.POINT (PRIN1 BITMAPBIT) SCOPE.PRINT (PRIN1 DRAWLINE) SCOPE.DRAWTO (PRIN1 DRAWLINE SCOPE.STEP) SCOPE.STEP NIL SCOPE.WIDTH NIL NIL CLISP SCOPE.SETUP NIL SCOPE.CLEAR NIL SCOPE.POINT (printout) SCOPE.PRINT (as from to do printout) SCOPE.DRAWTO (printout) SCOPE.STEP NIL SCOPE.WIDTH NIL NIL SPECVARS SCOPE.SETUP NIL SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT NIL SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL LOCALVARS SCOPE.SETUP NIL SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT NIL SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL APPLY SCOPE.SETUP NIL SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT NIL SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL ERROR SCOPE.SETUP NIL SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT NIL SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL LOCALFREEVARS SCOPE.SETUP NIL SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT NIL SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL ARGS SCOPE.SETUP NIL SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT NIL SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL USERTEMPLATES OP# (CALL) SETQ.NOREF (CALL SET EVAL . PPE) SPREADAPPLY (CALL FUNCTIONAL EVAL . PPE) SPREADAPPLY* (CALL FUNCTIONAL .. EVAL) NIL 0 SCOPE.SETUP NIL SCOPE.CLEAR NIL SCOPE.POINT NIL SCOPE.PRINT NIL SCOPE.DRAWTO NIL SCOPE.STEP NIL SCOPE.WIDTH NIL NIL )