File perq-pascal-lisp-project/pas0.sym artifact efa6eea900 part of check-in 955d0a90a7


PAS0IDS := '((TOKTYPE . 129)
             (BSTK!* . 130)
             (THROWING!* . 131)
             (INITFORM!* . 132)
             (!*RAISE    . 133)
	     (INPUT      . 134)
             (OUTPUT     . 135)
             (!*ECHO     . 137)
            )$
PAS0CSTS := '()$
PAS0LITS := '()$

% Functions that initial system is expected to know about.
% (Arranged in alphabetical order.)
PAS0FNS:='(
(!*FIRST!-PROCEDURE . FIRSTP)
	(ADD1 . XADD1)
	(XAPPLY . XXAPPLY)
	(CAR . XCAR)
        (CATCH . XCATCH)
	(CDR . XCDR)
	(CODEP . XCODEP)
	(COMPRESS . COMPRESS)
	(CONS . XCONS)
        (CLOSE . XCLOSE)
	(DIFFERENCE . XDIFFERENCE)
	(DIVIDE . XDIVIDE)
        (EVAL . XEVAL)
	(EXPLODE . EXPLODE)
	(FASTSTAT . XFASTSTAT)
	(GENSYM . GENSYM)
	(GREATERP . XGREATERP)
	(LESSP . XLESSP)
	(MINUS . XMINUS)
	(NCONS . XNCONS)
        (OPEN . XOPEN)
	(PLUS2 . XPLUS2)
        (PRINT . XPRINT)
	(QUOTIENT . XQUOTIENT)
	(RDTOK . XRDTOK)
        (RDS   . XRDS)
	(READ . XREAD)
	(RECLAIM . XGCOLLECT)
	(REMAINDER . XREMAINDER)
	(RPLACA . XRPLACA)
	(RPLACD . XRPLACD)
	(TERPRI . XTERPRI)
	(TIMES2 . XTIMES2)
        (THROW  . XTHROW)
        (UNBINDTO . XUNBINDTO)
	(WRTOK . XWRTOK)
        (WRS .   XWRS)
	(XCONS . XXCONS)
	)
$


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]