perm filename FIXUP.COM[P,BGB] blob
sn#009280 filedate 1974-04-16 generic text, type T, neo UTF8
00100 (DEFPROP DECLARE DODECLARE COMPACTION)
00200
00300 (DE DODECLARE (X)
00400 (MAPC (FUNCTION EVAL)(CDR X)))
00500
00600 (DF *FEXPR (X)
00700 (MAPC(FUNCTION (LAMBDA (L1)
00800 (PUTPROP L1 T (QUOTE *FSUBR))))X))
00900
00901 (DF *EXPR (X)
00906 (MAPC(FUNCTION (LAMBDA (L1)
00911 (PUTPROP L1 T (QUOTE *SUBR))))X))
00955
01000 (DF GENPREFIX (L) NIL)
01100
01200 (DEFPROP APPLY T *EXPR)
01300
01400 (REMPROP @AND @BOOL)
01500 (REMPROP @AND @P1)
01600 (REMPROP @AND @P2)
01700 (REMPROP @AND @FSUBR)
01800 (REMPROP @OR @BOOL)
01900 (REMPROP @OR @P1)
02000 (REMPROP @OR @P2)
02100 (REMPROP @OR @FSUBR)
02200
02300 (SETQ SHOWNAMES T)
02400 (DEFPROP AND (LAMBDA (L)
02500 (AND# (CDR L))) MACRO)
02600
02700 (DEFPROP AND# (LAMBDA (L)
02800 (COND ((NULL (CDR L))(LIST (QUOTE COND)(LIST (CAR L))))
02900 (T (LIST (QUOTE COND)(LIST (CAR L)(AND# (CDR L)))))))EXPR)
03000
03100 (DEFPROP OR (LAMBDA (L)
03200 (OR# (CDR L)))
03300 MACRO)
03400
03500 (DEFPROP OR# (LAMBDA (L)
03600 (APPEND (QUOTE (COND))(MAPCAR (FUNCTION LIST) L)))
03700 EXPR)
03800
03900 (PUTPROP @MAPCAR T @*LSUBR)
04000 (PUTPROP @MAPC T @*LSUBR)
04100 (PUTPROP @MAPC# T @*SUBR)
04200 (PUTPROP @MAPCAR# T @*SUBR)
04300 (PUTPROP @APPLY# T @*LSUBR)
04400 (PUTPROP @APPLY T @*LSUBR)
04500 (PUTPROP @MAX T @*LSUBR)
04600 (PUTPROP @MIN T @*LSUBR)
04700 (PUTPROP @MAPCAN T @*SUBR)
04800 (PUTPROP @ASSQ T @*SUBR)
04900 (PUTPROP @SASSQ T @*SUBR)
05000 (PUTPROP @PUTPROP1 T @*SUBR)
05100 (PUTPROP @THTRACES T @*SUBR)
05200
05300 (SETQ PURE NIL)