pas0.sym 1.2 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556
  1. PAS0IDS := '((TOKTYPE . 129)
  2. (BSTK!* . 130)
  3. (THROWING!* . 131)
  4. (INITFORM!* . 132)
  5. (!*RAISE . 133)
  6. (INPUT . 134)
  7. (OUTPUT . 135)
  8. (!*ECHO . 137)
  9. )$
  10. PAS0CSTS := '()$
  11. PAS0LITS := '()$
  12. % Functions that initial system is expected to know about.
  13. % (Arranged in alphabetical order.)
  14. PAS0FNS:='(
  15. (!*FIRST!-PROCEDURE . FIRSTP)
  16. (ADD1 . XADD1)
  17. (XAPPLY . XXAPPLY)
  18. (CAR . XCAR)
  19. (CATCH . XCATCH)
  20. (CDR . XCDR)
  21. (CODEP . XCODEP)
  22. (COMPRESS . COMPRESS)
  23. (CONS . XCONS)
  24. (CLOSE . XCLOSE)
  25. (DIFFERENCE . XDIFFERENCE)
  26. (DIVIDE . XDIVIDE)
  27. (EVAL . XEVAL)
  28. (EXPLODE . EXPLODE)
  29. (FASTSTAT . XFASTSTAT)
  30. (GENSYM . GENSYM)
  31. (GREATERP . XGREATERP)
  32. (LESSP . XLESSP)
  33. (MINUS . XMINUS)
  34. (NCONS . XNCONS)
  35. (OPEN . XOPEN)
  36. (PLUS2 . XPLUS2)
  37. (PRINT . XPRINT)
  38. (QUOTIENT . XQUOTIENT)
  39. (RDTOK . XRDTOK)
  40. (RDS . XRDS)
  41. (READ . XREAD)
  42. (RECLAIM . XGCOLLECT)
  43. (REMAINDER . XREMAINDER)
  44. (RPLACA . XRPLACA)
  45. (RPLACD . XRPLACD)
  46. (TERPRI . XTERPRI)
  47. (TIMES2 . XTIMES2)
  48. (THROW . XTHROW)
  49. (UNBINDTO . XUNBINDTO)
  50. (WRTOK . XWRTOK)
  51. (WRS . XWRS)
  52. (XCONS . XXCONS)
  53. )
  54. $