(FILECREATED "25-Feb-85 16:55:37" {PHYLUM}<TRILLIUM>BIRTHDAY84>FIXES>TRI-FIX-DELETE.;1
 996    

      changes to:  (VARS TRI-FIX-DELETECOMS)
		   (FNS DELETE.INTERFACE))


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

(PRETTYCOMPRINT TRI-FIX-DELETECOMS)

(RPAQQ TRI-FIX-DELETECOMS
 ((FNS DELETE.INTERFACE)))
(DEFINEQ

(DELETE.INTERFACE

  [LAMBDA (INTERFACE.NAME)                                   (* N.H.Briggs "25-Feb-85 16:48")

    (
COND

      ((
EQ
 (GET.FIELDQ CURRENT.INTERFACE NAME INTERFACE)
	   INTERFACE.NAME)
	(
COND

	  ((
OPENWP
 CURRENT.INTERFACE.WINDOW)
	    (
CLOSEW
 CURRENT.INTERFACE.WINDOW)))
	(
SETQ
 CURRENT.INTERFACE)
	(
SETQ
 CURRENT.INTERFACE.WINDOW)))
    (
UNREGISTER.INTERFACE.NAME
 INTERFACE.NAME)
    (
UNMARKASCHANGED
 INTERFACE.NAME (
QUOTE
 INTERFACES))
    (
DELDEF.INTERFACE
 INTERFACE.NAME (
QUOTE
 INTERFACES])
)
(PUTPROPS TRI-FIX-DELETE COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (338 911 (DELETE.INTERFACE 348 . 909)))))
STOP