(FILECREATED "10-Nov-98 21:58:03" ("compiled on " {DSK}medley2.1>lispusers>simplify.;1) "20-Dec-94 17:11:06" tcompl'd in "Medley 2.1 PARC Full Sysout 24-Oct-98 ..." dated "24-Oct-98 12:37:47") (FILECREATED "19-Feb-87 09:42:40" {QV}PARSER>SIMPLIFY.;1 4714 previous date: " 6-NOV-79 17:25:50" SIMPLIFY.;3) SIMPLIFY D8 (L (0 FORM)) @NIL NIL () APPLYFORM D8 (P 1 FNFORM P 0 FNARG I 1 ARG1 I 0 FN) c @dgð²Pd²Id³CXd3@ð²8H²5@dš¿g@‚¹A §HI žHAð‘IAHI@Ah(90 SUBSTVAL 75 ONCE 67 SIMPLEP) (52 PROGN 11 LAMBDA) () ONCE D8 (I 2 FLG I 1 FORM I 0 ATOM) @A Bgðhð(6 ONCE1) (12 FAILED) () ONCE1 D8 (P 1 I I 1 L I 0 A F 2 FLG) EAHµh¹Rgð³õIµ@Ið²#R²g°@ ¯@I †gc¿HX°Ã(53 ONCE1 45 OPAQUE) (59 ONCE 37 FAILED 17 FAILED) () OPAQUE D8 (L (1 VAR 0 FORM)) K@dgð³:dgð§dgð–¿A@gð´ @Hµh¹AIdð”IµôiHX°éNIL (38 PROG 24 NLAMBDA 16 LAMBDA 7 QUOTE) () SIMPLEP D8 (I 0 FORM) R@hðµM@l ‘i@dgð³#dgð³dgð¯dgð§dgð˜¿@d3@ð¿hµ@ (79 STRINGP 12 \TYPEMASK.UFN) (58 CDDR 50 CADR 42 CDR 33 CAR 24 QUOTE) () SUBSTVAL D8 (P 3 I P 1 OSCR P 0 NSCR I 2 FORM I 1 OLD I 0 NEW) qBd²gA ‘B BJµ hY²L0B°A[@AKXð¥Kµèi°åJZ°ÜdIµ@AK‡Kð“h¹H€K¼MµLh^L&½µØNBAð² @(75 SUBSTVAL 45 SUBSTVAL 10 OPAQUE) NIL () (PRETTYCOMPRINT SIMPLIFYCOMS) (RPAQQ SIMPLIFYCOMS ((* Tools for symbolic simplification of LISP forms) (FNS SIMPLIFY) (FNS APPLYFORM ONCE ONCE1 OPAQUE SIMPLEP SUBSTVAL) (BLOCKS (APPLYFORM APPLYFORM ONCE ONCE1 OPAQUE SIMPLEP SUBSTVAL)) )) (PUTPROPS SIMPLIFY COPYRIGHT ("Xerox Corporation" 1987)) NIL