(FILECREATED "15-SEP-83 14:21:44" {PHYLUM}<LISPMANUAL>IMPS.;1 10222  

      changes to:  (VARS IMPSCOMS ONLYIMPS IMPSTATE))


(* Copyright (c) 1983 by Xerox Corporation)

(PRETTYCOMPRINT IMPSCOMS)

(RPAQQ IMPSCOMS ((VARS IMPS ONLYIMPS IMPSTATE)))

(RPAQQ IMPS (ONLYIMPS WBORDER WINDOWTITLEDISPLAYSTREAM BACKGROUNDMENUCOMMANDS ICONWINDOWMENUCOMMANDS 
		      IMPSTATE WINDOWMENUCOMMANDS BACKGROUNDMENU ICONWINDOWMENU WINDOWMENU 
		      LASTKEYSETSTATE KEYSETSTATE ARGLST SAVEDBLFG TTYINEDITPROMPT MAXBKMENUHEIGHT 
		      MAXBKMENUWIDTH FILEBROWSER EDITRACEFN CDDDDR CAAR SETINITIALS USERNAME COM 
		      EDITMACROS EXP ALLOCATE RAID /ATTACH CADDR $BUFS /SET /PUTD /REMPROP EVALQT * 
		      CADR REPLACE CDDR))

(RPAQQ ONLYIMPS (LASTKEYSETSTATE KEYSETSTATE ARGLST SAVEDBLFG FILEBROWSER CDDDDR CAAR ALLOCATE 
				 /ATTACH CADDR $BUFS /SET /PUTD /REMPROP EVALQT CADR CDDR))

(RPAQQ IMPSTATE (($BUFS (Prog. Asst. Command)
			NIL
			(*IMPLICIT*)
			(6 8)
			PAGUTS.IM;9 24606)
		 (* (Litatom)
		    NIL
		    (*IMPLICIT*)
		    (2 7 11)
		    FPCOMS.IM;18 39434)
		 (* (Litatom)
		    NIL
		    (*IMPLICIT*)
		    (2 7 11)
		    FPCOMS.IM;18 39752)
		 (* (Litatom)
		    NIL
		    (*IMPLICIT*)
		    (3 7 11)
		    FPCOMS.IM;18 42255)
		 (/ATTACH (Function)
			  NIL
			  (*IMPLICIT*)
			  (7 8)
			  PAFNS.IM;8 21989)
		 (/PUTD (Function)
			NIL
			(*IMPLICIT*)
			(5 8)
			PAGUTS.IM;9 2901)
		 (/PUTD (Function)
			NIL
			(*IMPLICIT*)
			(7 8)
			PAFNS.IM;8 20418)
		 (/PUTD (Function)
			NIL
			(*IMPLICIT*)
			(7 8)
			PAFNS.IM;8 20716)
		 (/REMPROP (Function)
			   NIL
			   (*IMPLICIT*)
			   (5 8)
			   PAGUTS.IM;9 2663)
		 (/REMPROP (Function)
			   NIL
			   (*IMPLICIT*)
			   (5 8)
			   PAGUTS.IM;9 2919)
		 (/SET (Function)
		       NIL
		       (*IMPLICIT*)
		       (2 5 8)
		       PAGUTS.IM;9 10894)
		 (ALLOCATE (Function)
			   NIL
			   (*IMPLICIT*)
			   (8 9)
			   ERRORLIST.IM;11 9822)
		 (ARGLST (Function)
			 NIL
			 (*IMPLICIT*)
			 (5 23)
			 LUMISC.IM;3 5677)
		 (BACKGROUNDMENU (Variable)
				 BackgroundMenu
				 (*IMPLICIT*)
				 (3 12 19)
				 WPWINDOWS.IM;30 13076)
		 (BACKGROUNDMENU (Variable)
				 BackgroundMenu
				 (*IMPLICIT*)
				 (3 12 19)
				 WPWINDOWS.IM;30 14790)
		 (BACKGROUNDMENUCOMMANDS (Variable)
					 BackgroundMenuCommands
					 (*IMPLICIT*)
					 (3 12 19)
					 WPWINDOWS.IM;30 13281)
		 (BACKGROUNDMENUCOMMANDS (Variable)
					 BackgroundMenuCommands
					 (*IMPLICIT*)
					 (3 12 19)
					 WPWINDOWS.IM;30 14884)
		 (BACKGROUNDMENUCOMMANDS (Variable)
					 BackgroundMenuCommands
					 (*IMPLICIT*)
					 (3 12 19)
					 WPWINDOWS.IM;30 14954)
		 (CAAR (Function)
		       NIL
		       (*IMPLICIT*)
		       (2 4 15)
		       DWIMORG.IM;8 10002)
		 (CADDR (Function)
			NIL
			(*IMPLICIT*)
			(6 8)
			PAGUTS.IM;9 26462)
		 (CADDR (Function)
			NIL
			(*IMPLICIT*)
			(2 7 11)
			FPCOMS.IM;18 39770)
		 (CADDR (Function)
			NIL
			(*IMPLICIT*)
			(3 7 11)
			FPCOMS.IM;18 42301)
		 (CADDR (Function)
			NIL
			(*IMPLICIT*)
			(1 3 16)
			CLISPDECLARATIONS.IM;6 3955)
		 (CADR (Function)
		       NIL
		       (*IMPLICIT*)
		       (7 1 5)
		       FNTYPES.IM;15 17596)
		 (CADR (Function)
		       NIL
		       (*IMPLICIT*)
		       (7 1 5)
		       FNTYPES.IM;15 18027)
		 (CADR (Function)
		       NIL
		       (*IMPLICIT*)
		       (5 8 6)
		       PRETTYPRINT.IM;19 29015)
		 (CADR (Function)
		       NIL
		       (*IMPLICIT*)
		       (5 9)
		       ERRORFNS.IM;18 19274)
		 (CADR (Function)
		       NIL
		       (*IMPLICIT*)
		       (1 11)
		       FPFNS.IM;24 6348)
		 (CADR (Function)
		       NIL
		       (*IMPLICIT*)
		       (6 16)
		       CLISPGUTS.IM;10 1585)
		 (CADR (Function)
		       NIL
		       (*IMPLICIT*)
		       (19 17)
		       EDITORFNS.IM;9 30049)
		 (CADR (Function)
		       NIL
		       (*IMPLICIT*)
		       (19 17)
		       EDITORFNS.IM;9 30144)
		 (CADR (Function)
		       NIL
		       (*IMPLICIT*)
		       (8 1 23)
		       LUPATTERNMATCH.IM;5 22932)
		 (CADR (Function)
		       NIL
		       (*IMPLICIT*)
		       (19 23)
		       LUMISC10.IM;9 33879)
		 (CADR (Function)
		       NIL
		       (*IMPLICIT*)
		       (3 12 19)
		       WPWINDOWS.IM;30 14071)
		 (CADR (Function)
		       NIL
		       (*IMPLICIT*)
		       (3 12 19)
		       WPWINDOWS.IM;30 14506)
		 (CADR (Function)
		       NIL
		       (*IMPLICIT*)
		       (3 12 19)
		       WPWINDOWS.IM;30 14900)
		 (CDDDDR (Function)
			 NIL
			 (*IMPLICIT*)
			 (7 16)
			 CLISPGUTS.IM;10 14485)
		 (CDDR (Function)
		       NIL
		       (*IMPLICIT*)
		       (9 5 2)
		       LISTS.IM;10 30970)
		 (CDDR (Function)
		       NIL
		       (*IMPLICIT*)
		       (9 5 2)
		       LISTS.IM;10 31389)
		 (CDDR (Function)
		       NIL
		       (*IMPLICIT*)
		       (3 5)
		       FNEVAL.IM;10 8858)
		 (CDDR (Function)
		       NIL
		       (*IMPLICIT*)
		       (4 17)
		       EDITORATTNCOMS.IM;10 15014)
		 (CDDR (Function)
		       NIL
		       (*IMPLICIT*)
		       (3 4 17)
		       EDITORATTNCOMS.IM;10 33310)
		 (CDDR (Function)
		       NIL
		       (*IMPLICIT*)
		       (1 6 17)
		       EDITORMODCOMS.IM;8 7022)
		 (CDDR (Function)
		       NIL
		       (*IMPLICIT*)
		       (3 1 23)
		       LUPATTERNMATCH.IM;5 12646)
		 (CDDR (Function)
		       NIL
		       (*IMPLICIT*)
		       (4 1 23)
		       LUPATTERNMATCH.IM;5 16464)
		 (COM (File Package Command)
		      NIL
		      (*IMPLICIT*)
		      (7 11)
		      FPCOMS.IM;18 26398)
		 (EDITMACROS (Variable)
			     NIL
			     (*IMPLICIT*)
			     (7 11)
			     FPCOMS.IM;18 10543)
		 (EDITMACROS (Variable)
			     NIL
			     (*IMPLICIT*)
			     (2 7 15)
			     SPELLINGCORRECTION.IM;11 8519)
		 (EDITMACROS (Variable)
			     NIL
			     (*IMPLICIT*)
			     (2 1 20)
			     DEDIT.IM;12 3612)
		 (EDITRACEFN (Variable)
			     NIL
			     (*IMPLICIT*)
			     (19 17)
			     EDITORFNS.IM;9 28234)
		 (EDITRACEFN (Variable)
			     NIL
			     (*IMPLICIT*)
			     (19 17)
			     EDITORFNS.IM;9 28547)
		 (EDITRACEFN (Variable)
			     NIL
			     (*IMPLICIT*)
			     (19 17)
			     EDITORFNS.IM;9 28656)
		 (EDITRACEFN (Variable)
			     NIL
			     (*IMPLICIT*)
			     (19 17)
			     EDITORFNS.IM;9 28807)
		 (EVALQT (Function)
			 NIL
			 (*IMPLICIT*)
			 (2 7)
			 STACKFNS.IM;10 13181)
		 (EVALQT (Function)
			 NIL
			 (*IMPLICIT*)
			 (2 7)
			 STACKFNS.IM;10 13206)
		 (EVALQT (Function)
			 NIL
			 (*IMPLICIT*)
			 (2 7)
			 STACKFNS.IM;10 13688)
		 (EVALQT (Function)
			 NIL
			 (*IMPLICIT*)
			 (7 8)
			 PAFNS.IM;8 10841)
		 (EVALQT (Function)
			 NIL
			 (*IMPLICIT*)
			 (8 8)
			 PAFNS.IM;8 23875)
		 (EVALQT (Function)
			 NIL
			 (*IMPLICIT*)
			 (1 17)
			 EDITORINTRO.IM;4 6199)
		 (EVALQT (Function)
			 NIL
			 (*IMPLICIT*)
			 (8 17)
			 EDITORMISC.IM;7 4966)
		 (EVALQT (Function)
			 NIL
			 (*IMPLICIT*)
			 (5 8 23)
			 LUTRANSOR.IM;7 11774)
		 (EVALQT (Function)
			 NIL
			 (*IMPLICIT*)
			 (5 8 23)
			 LUTRANSOR.IM;7 11987)
		 (EXP (Variable)
		      NIL
		      (*IMPLICIT*)
		      (1 10)
		      BREAKFNS.IM;7 4641)
		 (FILEBROWSER (Function)
			      NIL
			      (*IMPLICIT*)
			      (1 17 18)
			      IDFILES.IM;22 15399)
		 (ICONWINDOWMENU (Variable)
				 IconWindowMenu
				 (*IMPLICIT*)
				 (3 12 19)
				 WPWINDOWS.IM;30 13050)
		 (ICONWINDOWMENU (Variable)
				 IconWindowMenu
				 (*IMPLICIT*)
				 (3 12 19)
				 WPWINDOWS.IM;30 14396)
		 (ICONWINDOWMENUCOMMANDS (Variable)
					 IconWindowMenuCommands
					 (*IMPLICIT*)
					 (3 12 19)
					 WPWINDOWS.IM;30 13247)
		 (ICONWINDOWMENUCOMMANDS (Variable)
					 IconWindowMenuCommands
					 (*IMPLICIT*)
					 (3 12 19)
					 WPWINDOWS.IM;30 14490)
		 (KEYSETSTATE (Macro)
			      NIL
			      (*IMPLICIT*)
			      (1 11 19)
			      WPDISPLAYSTREAMS.IM;16 24626)
		 (LASTKEYSETSTATE (Macro)
				  NIL
				  (*IMPLICIT*)
				  (1 11 19)
				  WPDISPLAYSTREAMS.IM;16 24675)
		 (MAXBKMENUHEIGHT (Variable)
				  MaxBkMenuHeight
				  (*IMPLICIT*)
				  (3 20)
				  WPDISPLAYTOOLS.IM;23 10527)
		 (MAXBKMENUWIDTH (Variable)
				 MaxBkMenuWidth
				 (*IMPLICIT*)
				 (3 20)
				 WPDISPLAYTOOLS.IM;23 10487)
		 (RAID (Function)
		       NIL
		       (*IMPLICIT*)
		       (1 20 18)
		       PROC.IM;28 5509)
		 (REPLACE (Function)
			  NIL
			  (*IMPLICIT*)
			  (5 16 19)
			  COLOR.IM;6 18997)
		 (SAVEDBLFG (Variable)
			    NIL
			    (*IMPLICIT*)
			    (4 23)
			    LUMISC.IM;3 2281)
		 (SETINITIALS (Function)
			      NIL
			      (*IMPLICIT*)
			      (1 14)
			      SYSOUT.IM;10 6405)
		 (SETINITIALS (Function)
			      NIL
			      (*IMPLICIT*)
			      (20 17)
			      EDITORFNS.IM;9 31280)
		 (SETINITIALS (Function)
			      NIL
			      (*IMPLICIT*)
			      (20 17)
			      EDITORFNS.IM;9 31332)
		 (TTYINEDITPROMPT (Variable)
				  NIL
				  (*IMPLICIT*)
				  (5 7 20)
				  TTYIN.IM;8 20158)
		 (USERNAME (Variable)
			   NIL
			   (*IMPLICIT*)
			   (2 21)
			   ETHERPUP.IM;1 4248)
		 (WBORDER (Variable)
			  WBorder
			  (*IMPLICIT*)
			  (6 12 19)
			  WPWINDOWS.IM;30 23940)
		 (WBORDER (Variable)
			  WBorder
			  (*IMPLICIT*)
			  (6 12 19)
			  WPWINDOWS.IM;30 26694)
		 (WBORDER (Variable)
			  WBorder
			  (*IMPLICIT*)
			  (6 12 19)
			  WPWINDOWS.IM;30 27046)
		 (WBORDER (Variable)
			  WBorder
			  (*IMPLICIT*)
			  (3 7 12 19)
			  WPWINDOWS.IM;30 49912)
		 (WINDOWMENU (Variable)
			     WindowMenu
			     (*IMPLICIT*)
			     (3 12 19)
			     WPWINDOWS.IM;30 13028)
		 (WINDOWMENU (Variable)
			     WindowMenu
			     (*IMPLICIT*)
			     (3 12 19)
			     WPWINDOWS.IM;30 13926)
		 (WINDOWMENU (Variable)
			     WindowMenu
			     (*IMPLICIT*)
			     (3 12 19)
			     WPWINDOWS.IM;30 13948)
		 (WINDOWMENUCOMMANDS (Variable)
				     WindowMenuCommands
				     (*IMPLICIT*)
				     (3 12 19)
				     WPWINDOWS.IM;30 13217)
		 (WINDOWMENUCOMMANDS (Variable)
				     WindowMenuCommands
				     (*IMPLICIT*)
				     (3 12 19)
				     WPWINDOWS.IM;30 14055)
		 (WINDOWMENUCOMMANDS (Variable)
				     WindowMenuCommands
				     (*IMPLICIT*)
				     (3 12 19)
				     WPWINDOWS.IM;30 14121)
		 (WINDOWTITLEDISPLAYSTREAM (Variable)
					   WindowTitleDisplayStream
					   (*IMPLICIT*)
					   (6 12 19)
					   WPWINDOWS.IM;30 23675)))
(PUTPROPS IMPS COPYRIGHT ("Xerox Corporation" 1983))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP