(FILECREATED "29-Nov-84 20:27:17" {AZTEC}<TRILLIUM>BIRTHDAY84>ITEMTYPES>IDO-ITEMTYPES.;1
 1009   

      previous date: "25-Aug-84 19:23:11" {AZTEC}<TRILLIUM>BIRTHDAY84>BETA>IDO-ITEMTYPES.;1)


(PRETTYCOMPRINT IDO-ITEMTYPESCOMS)

(RPAQQ IDO-ITEMTYPESCOMS
 ((VARS IDO.ITEMTYPE.FILES)
			  (FNS LOAD.IDO.ITEMTYPES)
			  (P (LOAD.IDO.ITEMTYPES))))

(RPAQQ IDO.ITEMTYPE.FILES
 (IDO-BUTTON-ITEMTYPES IDO-COMPOSITE-ITEMTYPES IDO-DISPLAYER-ITEMTYPES 
						IDO-IMPLICATION-ITEMTYPES IDO-OBSOLETE-ITEMTYPES 
						IDO-PSW-ITEMTYPES IDO-REDEF-ITEMTYPES 
						IDO-SENSOR-ITEMTYPES PARAGRAPH-ITEMTYPES 
						TRAINING-ITEMTYPES))
(DEFINEQ

(LOAD.IDO.ITEMTYPES

  [LAMBDA NIL                                                (* kkm "29-Nov-84 20:26")

    (PROG NIL
          (for
 FILE in
 IDO.ITEMTYPE.FILES
	     do
 (TRILLIUM.PRINTOUT ON TRILLIUM.TRACE "Loading file " FILE)
		(LOAD (TRILLIUM.ITEMTYPES.FILENAME FILE))
		(MARK.OBJECT.FILE FILE NIL])
)
(LOAD.IDO.ITEMTYPES)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (629 966 (LOAD.IDO.ITEMTYPES 639 . 964)))))
STOP