Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
00010
00020
00030 (DEFPROP F5
00040 (LAMBDA (&X) (CAR (CDDDDR &X)))
00050 EXPR)
00060
00070 (DEFPROP F6
00080 (LAMBDA (&X) (CADR (CDDDDR &X)))
00090 EXPR)
00100
00110 (DEFPROP F7
00120 (LAMBDA (&X) (CADDR (CDDDDR &X)))
00130 EXPR)
00140
00150 (DEFPROP F8
00160 (LAMBDA (&X) (CADDDR (CDDDDR &X)))
00170 EXPR)
00180
00190 (DEFPROP F9
00200 (LAMBDA (&X) (CAR (CDDDDR (CDDDDR &X))))
00210 EXPR)
00220
00230 (DEFPROP STR
00240 (LAMBDA (&X) (READLIST (CONS DBQUOTE (APPEND (EXPLODEC &X) (CONS DBQUOTE NIL)))))
00250 EXPR)
00260
00270 (DEFPROP AT
00280 (LAMBDA (&X) (READLIST (EXPLODEC &X)))
00290 EXPR)
00300
00310 (DEFPROP CAT
00320 (LAMBDA (&X &Y) (READLIST (CONS DBQUOTE (APPEND (EXPLODEC &X) (APPEND (EXPLODEC &Y) (CONS DBQUOTE NIL))))))
00330 EXPR)
00340
00350 (DEFPROP SUBSTR
00360 (LAMBDA (&X &START &LEN)
00370 (READLIST
00380 (CONS DBQUOTE
00390 (APPEND (COND ((NUMBERP &LEN) (PRELIST (SUFLIST (EXPLODEC &X) (SUB1 &START)) &LEN))
00400 (T (SUFLIST (EXPLODEC &X) (SUB1 &START))))
00410 (CONS DBQUOTE NIL)))))
00420 EXPR)
00430
00440 (DEFPROP PRELIST
00450 (LAMBDA (&X &Y) (COND ((OR (EQUAL &Y 0.) (NULL &X)) NIL) (T (CONS (CAR &X) (PRELIST (CDR &X) (SUB1 &Y))))))
00460 EXPR)
00470
00480 (DEFPROP SUFLIST
00490 (LAMBDA (&X &Y) (COND ((OR (EQUAL &Y 0.) (NULL &X)) &X) (T (SUFLIST (CDR &X) (SUB1 &Y)))))
00500 EXPR)
00510
00520 (DEFPROP PRINTSTR
00530 (LAMBDA (&X) (PROG2 (PRINC &X) (TERPRI NIL)))
00540 EXPR)
00550
00560 (DEFPROP NEQ
00570 (LAMBDA (&X &Y) (NOT (EQ &X &Y)))
00580 EXPR)
00590
00600 (DEFPROP NEQUAL
00610 (LAMBDA (&X &Y) (NOT (EQUAL &X &Y)))
00620 EXPR)
00630
00640 (DEFPROP SEQ
00650 (LAMBDA (&X &Y) (EQUAL (EXPLODE &X) (EXPLODE &Y)))
00660 EXPR)