(FILECREATED "18-Sep-84 12:40:31" {ERIS}<LISPCORE>SOURCES>DEXEC.;5
 3569   

      changes to:  (LISPXMACROS NDIR)
		   (VARS DEXECCOMS)

      previous date: "14-Aug-84 20:43:30" {ERIS}<LISPCORE>SOURCES>DEXEC.;4)


(* Copyright (c) 1982, 1983, 1984 by Xerox Corporation. All rights reserved. The following program was
 created in 1982  but has not been published within the meaning of the copyright law, is furnished 
under license, and may not be used, copied and/or disclosed except in accordance with the terms of 
said license.)

(PRETTYCOMPRINT DEXECCOMS)

(RPAQQ DEXECCOMS
 [(LISPXMACROS CONN DA)
		  (FNS /CNDIR COPYALLBYTES SEE SEE*)
		  (COMS (* Has to come after ADISPLAY)
			(CURSORS SAVINGCURSOR SYSOUTCURSOR))
		  [DECLARE: DONTEVAL@LOAD DOCOPY (P (MOVD? (QUOTE NILL)
							   (QUOTE SETNM))
						    (AND (CCODEP (QUOTE SEE))
							 (/PUTD (QUOTE TY)
								(GETD (QUOTE SEE))
								T]
		  (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
			    (ADDVARS (NLAMA SEE* SEE)
				     (NLAML)
				     (LAMA])

(ADDTOVAR LISPXHISTORYMACROS
 (DA (PROGN (LISPXPRIN1 (DATE)
						    T)
					(TERPRI T))))

(ADDTOVAR LISPXMACROS
 [CONN (/CNDIR (CAR (NLAMBDA.ARGS LISPXLINE])

(ADDTOVAR LISPXCOMS
 CONN DA)
(DEFINEQ

(/CNDIR

  [LAMBDA (HOST/DIR)                                        (* rmk: "19-JUL-81 22:44")

    (AND LISPXHIST (UNDOSAVE (LIST (QUOTE /CNDIR)
				   (DIRECTORYNAME T T))
			     LISPXHIST))
    (CNDIR HOST/DIR])

(COPYALLBYTES

  [LAMBDA (FROMFILE TOFILE BYTESIZE)                         (* bvm: "14-NOV-83 16:26")

    (RESETLST (PROG (INF OUTF PTR)
		    [COND
		      (FROMFILE [RESETSAVE NIL (LIST (QUOTE CLOSEF)
						     (SETQ INF (OPENSTREAM FROMFILE (QUOTE INPUT)
									   NIL BYTESIZE]
				(OR (ZEROP (GETFILEPTR INF))
				    (SETFILEPTR INF 0)))
		      (T (SETQ INF (INPUT]                   (* close the files only if I opened them)

		    [COND
		      ((NULL TOFILE)
			(SETQ OUTF (OUTPUT)))
		      ([NULL (SETQ OUTF (OPENP TOFILE (QUOTE OUTPUT]
			(RESETSAVE NIL (LIST (QUOTE CLOSEF)
					     (SETQ OUTF (OPENSTREAM TOFILE (QUOTE OUTPUT)
								    NIL BYTESIZE]
		    (COND
		      ((AND (NULL BYTESIZE)
			    (EQ OUTF T))
			(PFCOPYBYTES INF OUTF NIL NIL PFDEFAULT))
		      (T (COPYBYTES INF OUTF])

(SEE

  [NLAMBDA LINE                                              (* lmm "14-Aug-84 19:07")

    (SETQ LINE (NLAMBDA.ARGS LINE))
    (COPYALLBYTES
 (CAR LINE)
		  (OR (CADR LINE)
		      T)
		  (CADDR LINE])

(SEE*

  [NLAMBDA LINE                                              (* lmm "14-Aug-84 19:07")

    (SETQ LINE (NLAMBDA.ARGS LINE))
    (RESETVARS ((**COMMENT**FLG))
	       (RETURN (COPYALLBYTES
 (CAR LINE)
				     (OR (CADR LINE)
					 T)
				     (CADDR LINE])
)



(* Has to come after ADISPLAY)


(RPAQ SAVINGCURSOR (CURSORCREATE (READBITMAP) 0 15))
(16 16
"@@@@"
"FDJ@"
"HJJ@"
"LJJ@"
"BNJL"
"JJD@"
"LJD@"
"@@@@"
"@JDN"
"@KEB"
"@KE@"
"@JMF"
"@JMB"
"@JEL"
"@@@@"
"@@@@")(RPAQ SYSOUTCURSOR (CURSORCREATE (READBITMAP) 0 15))
(16 16
"@@@@"
"CJDN"
"DAE@"
"C@HL"
"@HHB"
"DIAB"
"CA@L"
"@@@@"
"@@@@"
"AIBN"
"BEBD"
"BEBD"
"BEBD"
"BEBD"
"AHLD"
"@@@@")(DECLARE: DONTEVAL@LOAD DOCOPY 
(MOVD? (QUOTE NILL)
       (QUOTE SETNM))
(AND (CCODEP (QUOTE SEE))
     (/PUTD (QUOTE TY)
	    (GETD (QUOTE SEE))
	    T))
)
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 SEE* SEE)

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 )
)
(PUTPROPS DEXEC COPYRIGHT ("Xerox Corporation" T 1982 1983 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1249 2800 (/CNDIR 1259 . 1481) (COPYALLBYTES 1483 . 2305) (SEE 2307 . 2524) (SEE* 2526
 . 2798)))))
STOP