Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
00010 (MAPCAR (FUNCTION (LAMBDA (X) (PUTPROP (CAR X) (CADR X) (QUOTE OPR))))
00020 (QUOTE ( (/+ PLUS) (/- DIFFERENCE) (/* TIMES) (// QUOTIENT) (/& AND) (/| OR) (/= EQUAL) (/ NEQUAL)
00030 (/@ APPEND) (/ MEMBER) )))
00040
00050 (MAPCAR (FUNCTION (LAMBDA (X) (MAPCAR (FUNCTION (LAMBDA (Y) (PUTPROP Y T (CDR X)))) (CAR X))))
00060 (QUOTE (((BEGIN NEW SPECIAL END COLLECT UNTIL WHILE DO FOR IF THEN ELSE IN ON BY TO LAMBDA OCTAL) . RW)
00070 ((EXPR FEXPR MACRO LEXPR) . FUNCTYPE)
00080 (( /' ) . QT)
00090 (( /+ /- NOT NULL ATOM NUMBERP) . PREFIX))))
00100
00110 (SETQ IDTYPE 0)
00120 (SETQ STRTYPE 1)
00130 (SETQ NUMTYPE 2)
00140 (SETQ DELIMTYPE 3)
00150
00160 (DEFPROP UNASCII
00170 (LAMBDA (&X) (LSH (EXAMINE (MAKNUM (CAR (GET &X (QUOTE PNAME))) (QUOTE FIXNUM))) -29.))
00180 EXPR)
00190
00200 (DEFPROP SCANNER1INIT
00210 (LAMBDA NIL
00220 (PROG NIL
00230 (SETQ SCNVAL NIL)
00240 (*PUTSYM (QUOTE SCNVAL) (GET (QUOTE SCNVAL) (QUOTE VALUE)))
00250 (LOAD T)))
00260 EXPR)
00270
00280 (DEFPROP SCANNER2INIT
00290 (LAMBDA NIL
00300 (PROG NIL
00310 (GETSYM SUBR SCAN SCANINIT SCANSET SCANRESET LETTER IGNORE UNTYI)
00320 (SCANINIT (UNASCII PERCENT) (UNASCII PERCENT) (UNASCII DBQUOTE) (UNASCII DBQUOTE) (UNASCII (QUOTE ?)))
00330 (LETTER (UNASCII (QUOTE !)))
00340 (LETTER (UNASCII COLON))
00350 (IGNORE (UNASCII BLANK))
00360 (IGNORE (UNASCII CR))
00370 (IGNORE (UNASCII LF))
00380 (IGNORE (UNASCII FF))
00390 (IGNORE (UNASCII TAB))
00400 (IGNORE (UNASCII ALTMODE))
00410 (REMOB UNASCII SCANNER1INIT SCANNER2INIT)))
00420 EXPR)
00430