(FILECREATED "18-Mar-85 15:41:45" 
{PHYLUM}<TRILLIUM>BIRTHDAY84>ENHANCEMENTS>RECORDS-NHB>TRI-RECORD-SAVING.;4
 2422   

      changes to:  (VARS TRI-RECORD-SAVINGCOMS)
		   (FNS TRILLIUM.CONN?)

      previous date: " 6-Mar-85 13:51:06" 
{PHYLUM}<TRILLIUM>BIRTHDAY84>ENHANCEMENTS>RECORDS-NHB>TRI-RECORD-SAVING.;3)


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

(PRETTYCOMPRINT TRI-RECORD-SAVINGCOMS)

(RPAQQ TRI-RECORD-SAVINGCOMS
 ((FNS INTERACT&FILE.NEW.OBJECTS TRILLIUM.CONN?)))
(DEFINEQ

(INTERACT&FILE.NEW.OBJECTS

  [LAMBDA NIL                                                (* N.H.Briggs "20-Feb-85 20:29")

    (DECLARE
 (
GLOBALVARS
 TRILLIUM.INTERFACES ITEM.TYPES))
    (
PROG
 (FILED.INTERFACES FILED.ITEMTYPES TO.BE.FILED.INTERFACES TO.BE.FILED.ITEMTYPES 
			    TO.BE.DUMPED.FILES)
          (
SETQ
 FILED.INTERFACES (
FILED.OBJECTS.ON
 (
QUOTE
 INTERFACE.NAMES)
						   NIL))
          (
SETQ
 TO.BE.FILED.INTERFACES (
LDIFFERENCE
 (for
 INTERFACE in
 TRILLIUM.INTERFACES
						       collect
 (fetch.interface.fieldq INTERFACE NAME)
							 )
						    FILED.INTERFACES))
          (
SETQ
 FILED.ITEMTYPES (
FILED.OBJECTS.ON
 (
QUOTE
 ITEMTYPE.NAMES)
						  NIL))
          (
SETQ
 TO.BE.FILED.ITEMTYPES (
LDIFFERENCE
 ITEM.TYPES FILED.ITEMTYPES))
          (
COND

	    [(
OR
 TO.BE.FILED.INTERFACES TO.BE.FILED.ITEMTYPES)
	      (TRILLIUM.PRINTOUT ON TRILLIUM.DESCRIPTIONS "Not yet filed:")
	      [
COND

		(TO.BE.FILED.INTERFACES (TRILLIUM.PRINTOUT ON TRILLIUM.DESCRIPTIONS 2 "Interfaces:")
					(for
 INTERFACE.NAME in
 TO.BE.FILED.INTERFACES
					   do
 (TRILLIUM.PRINTOUT ON TRILLIUM.DESCRIPTIONS 1 
								 INTERFACE.NAME]
	      [
COND

		(TO.BE.FILED.ITEMTYPES (TRILLIUM.PRINTOUT ON TRILLIUM.DESCRIPTIONS 2 "Itemtypes:")
				       (for
 ITYPE in
 TO.BE.FILED.ITEMTYPES
					  do
 (TRILLIUM.PRINTOUT ON TRILLIUM.DESCRIPTIONS 1 ITYPE]
	      (
COND

		((
CONFIRM
 "Files these before making files?")
		  (
FILE.NEW.OBJECTS
 TO.BE.FILED.INTERFACES TO.BE.FILED.ITEMTYPES]
	    (T (TRILLIUM.PRINTOUT ON TRILLIUM.TRACE "All objects have already been filed"])

(TRILLIUM.CONN?

  [LAMBDA NIL                                                (* N.H.Briggs "18-Mar-85 15:31")

    (
DIRECTORYNAME
 T T])
)
(PUTPROPS TRI-RECORD-SAVING COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (511 2334 (INTERACT&FILE.NEW.OBJECTS 521 . 2184) (TRILLIUM.CONN? 2186 . 2332)))))
STOP