(FILECREATED " 1-Mar-85 16:03:11" 
{PHYLUM}<TRILLIUM>BIRTHDAY84>ENHANCEMENTS>RECORDS-NHB>TRI-RECORD-TOOLS.;2
 2039   

      changes to:  (FNS WALK.TRILLIUM.FNS WALK.TRILLIUM.FNS.DESCEND)
		   (VARS TRI-RECORD-TOOLSCOMS)

      previous date: "27-Feb-85 22:09:24" 
{PHYLUM}<TRILLIUM>BIRTHDAY84>ENHANCEMENTS>RECORDS-NHB>TRI-RECORD-TOOLS.;1)


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT TRI-RECORD-TOOLSCOMS)

(RPAQQ TRI-RECORD-TOOLSCOMS
 ((FNS WALK.TRILLIUM.FNS WALK.TRILLIUM.FNS.DESCEND)))
(DEFINEQ

(WALK.TRILLIUM.FNS

  [LAMBDA (LOOK.FOR.FORM EDITCOMS APPLYFN FILES)             (* N.H.Briggs " 1-Mar-85 13:53")

    (DECLARE
 (
GLOBALVARS
 TRILLIUM.FILES))
    [
PUTD
 (
QUOTE
 $WALK.TRILLIUM.FNS.MATCH)
	  (
BQUOTE
 (LAMBDA (CANDIDATE)
		    (MATCH
 CANDIDATE WITH , LOOK.FOR.FORM]
    (
QCOMPILE!
 (
QUOTE
 $WALK.TRILLIUM.FNS.MATCH))
    (
UNMARKASCHANGED
 (
QUOTE
 $WALK.TRILLIUM.FNS.MATCH)
		     (
QUOTE
 FNS))
    (for
 FILE in
 [
OR
 (
MKLIST
 FILES)
		     (
APPEND
 TRILLIUM.FILES (
QUOTE
 (
TRILLIUM
 TRI-TOOLS BASIC-PTYPES 
							     PRIMITIVE-ITEMTYPES COMPOSITE-ITEMTYPES]
       when
 (
BOUNDP
 (
FILECOMS
 FILE)) do
 (for
 FN in
 (
FILEFNSLST
 FILE)
					   do
 (WALK.TRILLIUM.FNS.DESCEND
 FN APPLYFN EDITCOMS
									 (
GETDEF
 FN (
QUOTE
 FNS)
										 (
QUOTE
 CURRENT)
										 (
QUOTE
 (NOERROR
											  NOCOPY])

(WALK.TRILLIUM.FNS.DESCEND

  [LAMBDA (FN APPLYFN EDITCOMS FORM)                         (* N.H.Briggs "27-Feb-85 21:53")

    (
COND

      ((
$WALK.TRILLIUM.FNS.MATCH
 FORM)
	(
COND

	  (APPLYFN (
APPLY*
 APPLYFN FORM FN)
		   NIL)
	  (T (
EDITDEF
 FN NIL NIL EDITCOMS)
	     T)))
      (T (for
 SUBFORM in
 FORM when
 (
LISTP
 SUBFORM) when
 (WALK.TRILLIUM.FNS.DESCEND
 FN APPLYFN 
										   EDITCOMS SUBFORM)
	    do
 (
RETURN
 T])
)
(PUTPROPS TRI-RECORD-TOOLS COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (538 1952 (WALK.TRILLIUM.FNS 548 . 1472) (WALK.TRILLIUM.FNS.DESCEND 1474 . 1950)))))
STOP