reduce-historical/perq-pascal-lisp-project/pas3.sym

PAS3IDS:='( (TOKTYPE . 129) (BSTK!* . 130) (THROWING!* . 131) 
(INITFORM!* . 132) (!*RAISE . 133) (INPUT . 134) (OUTPUT . 135) 
(!*ECHO . 136) (!.!  . 137) (QUOTE . 138) (PAIR . 139) (ASSOC . 140) 
(!*!*!*!*!  . 141) (!*!*!*!  . 142) (TOK!* . 143) (!*!*!*!*! ERROR!  . 144) 
(EMSG!* . 145) (ENUM!* . 146) (!*!*!*!* . 147) (MAX2 . 148) (MIN2 . 149) 
(PLUS2 . 150) (TIMES2 . 151) (SET . 152) (BNDUNDERFLOW . 153) (LAMBDA . 154) 
(NOT! DEFINED . 155) (THROWTAG!* . 156) (TYPE . 157) (EXPR . 158) 
(LOSE . 159) (FLAGGED . 160) (NOT . 161) (REDEFINED . 162) (FUNCTION . 163) 
(DEFINED . 164) (BE . 165) (CANT . 166) (FEXPR . 167) (NEXPR . 168) 
(MACRO . 169) (SETQ . 170) (LIST . 171) (P!.P . 172) (!$PROG!$ . 173) 
(LABEL . 174) (P!.G . 175) (PROGG0131 . 176) (GLOBAL . 177) (NEXPRS . 178) 
(PROCS . 179) (QUIT . 180) (LOOP . 181) (TOP . 182) (EXITING . 183) )
$
PAS3CSTS:='( ((NIL) . 1) ((EXPR FEXPR NEXPR MACRO) . 2) 
((PASCAL LISP V2 !- 15 FEB 1982) . 3) ((COPYRIGHT (C) 1981 U UTAH) . 4) 
((ALL RIGHTS RESERVED) . 5) ((LIST) . 6) )
$
PAS3LITS:='( )
$
PAS3FNS:='( (PBINDN . PAS280) (EVLAM . PAS279) (P!.N . PAS278) 
(LBINDN . PAS277) (UNBINDN . PAS276) (UNBIND1 . PAS275) (PBIND1 . PAS274) 
(LBIND1 . PAS273) (PRIN2T . PAS272) (PRIN1 . PAS271) (PRINC . PAS270) 
(SET . PAS269) (ATOM . PAS268) (FUNCTION . PAS267) (MIN2 . PAS266) 
(MAX2 . PAS265) (TIMES . PAS264) (PLUS . PAS263) (MIN . PAS262) 
(MAX . PAS261) (EXPAND . PAS260) (FLOAT . PAS259) (FIX . PAS258) 
(EXPT . PAS257) (ONEP . PAS256) (ZEROP . PAS255) (SUB1 . PAS254) 
(ABS . PAS253) (MINUSP . PAS252) (FIXP . PAS251) (NUMBERP . PAS250) 
(ERRORSET . PAS249) (TOKEN . PAS248) (ORDERP . PAS247) (SETFUNCELL . PAS246) 
(SETVALUE . PAS245) (SETPLIST . PAS244) (FUNCELL . PAS243) (VALUE . PAS242) 
(PLIST . PAS241) (EQCAR . PAS240) (REMFLAG . PAS239) (REMFLAG1 . PAS238) 
(FLAG . PAS237) (FLAG1 . PAS236) (FLAGP . PAS235) (MSGPRT . PAS234) 
(ERRPRT . PAS233) (LENGTH . PAS232) (REMPROP . PAS231) (GET . PAS230) 
(DELATQ . PAS229) (DELQ . PAS228) (DELETE . PAS227) (EQUAL . PAS226) 
(DEFLIST . PAS225) (PUT . PAS224) (ATSOC . PAS223) (MEMQ . PAS222) 
(SUBST . PAS221) (SUBLIS . PAS220) (ASSOC . PAS219) (SASSOC . PAS218) 
(APPLY . PAS217) (PAIR . PAS216) (ERROR . PAS215) (MEMBER . PAS214) 
(APPEND . PAS213) (REVERSE . PAS212) (LIST5 . PAS211) (LIST4 . PAS210) 
(LIST3 . PAS29) (LIST2 . PAS28) (EQN . PAS27) (CONSTANTP . PAS26) 
(NULL . PAS25) (IDP . PAS24) (NOT . PAS23) (EQ . PAS22) (PAIRP . PAS21) 
(XCONS . XXCONS) (WRS . XWRS) (WRTOK . XWRTOK) (UNBINDTO . XUNBINDTO) 
(THROW . XTHROW) (TIMES2 . XTIMES2) (TERPRI . XTERPRI) (RPLACD . XRPLACD) 
(RPLACA . XRPLACA) (REMAINDER . XREMAINDER) (RECLAIM . XGCOLLECT) 
(READ . XREAD) (RDS . XRDS) (RDTOK . XRDTOK) (QUOTIENT . XQUOTIENT) 
(PRINT . XPRINT) (PLUS2 . XPLUS2) (OPEN . XOPEN) (NCONS . XNCONS) 
(MINUS . XMINUS) (LESSP . XLESSP) (GREATERP . XGREATERP) (GENSYM . GENSYM) 
(FASTSTAT . XFASTSTAT) (EXPLODE . EXPLODE) (EVAL . XEVAL) (DIVIDE . XDIVIDE) 
(DIFFERENCE . XDIFFERENCE) (CLOSE . XCLOSE) (CONS . XCONS) 
(COMPRESS . COMPRESS) (CODEP . XCODEP) (CDR . XCDR) (CATCH . XCATCH) 
(CAR . XCAR) (XAPPLY . XXAPPLY) (ADD1 . XADD1) (!*FIRST!-PROCEDURE . FIRSTP) 
(CAAR . PAS11) (CADR . PAS12) (CDAR . PAS13) (CDDR . PAS14) (CAAAAR . PAS15) 
(CAAADR . PAS16) (CAADAR . PAS17) (CAADDR . PAS18) (CADAAR . PAS19) 
(CADADR . PAS110) (CADDAR . PAS111) (CADDDR . PAS112) (CDAAAR . PAS113) 
(CDAADR . PAS114) (CDADAR . PAS115) (CDADDR . PAS116) (CDDAAR . PAS117) 
(CDDADR . PAS118) (CDDDAR . PAS119) (CDDDDR . PAS120) (CAAAR . PAS121) 
(CAADR . PAS122) (CADAR . PAS123) (CADDR . PAS124) (CDAAR . PAS125) 
(CDADR . PAS126) (CDDAR . PAS127) (CDDDR . PAS128) (PRIN2 . PAS129) 
(REVX . PAS130) (REV . PAS131) (EOFP . PAS132) (RLIST . PAS133) 
(TCATCH . PAS31) (TTHROW . PAS32) (GETD . PAS33) (PUTD . PAS34) 
(REMD . PAS35) (PUTL . PAS36) (DE . PAS37) (DF . PAS38) (DN . PAS39) 
(DM . PAS310) (EVLIS . PAS311) (APPLY1 . PAS312) (PROGN . PAS313) 
(PROG2 . PAS314) (RETURN . PAS315) (GO . PAS316) (PROGG0131 . PAS317) 
(MAP . PAS318) (PROG . PAS319) (WHILE . PAS320) (AND . PAS321) 
(COND . PAS322) (OR . PAS323) (MAPC . PAS324) (MAPCAN . PAS325) 
(NCONC . PAS326) (MAPCAR . PAS327) (MAPCON . PAS328) (MAPLIST . PAS329) 
(PUTC . PAS330) (FLUID . PAS331) (PRIN2TL . PAS332) (FLOATP . PAS333) 
(STRINGP . PAS334) (VECTORP . PAS335) (FLUIDP . PAS336) (INTERN . PAS337) 
(REMOB . PAS338) (GLOBAL . PAS339) (GLOBALP . PAS340) (UNFLUID . PAS341) 
(GETV . PAS342) (MKVECT . PAS343) (PUTV . PAS344) (UPBV . PAS345) 
(DIGIT . PAS346) (LITER . PAS347) (READCH . PAS348) (RDEVPR . PAS349) 
(DSKIN . PAS350) )
$