(FILECREATED "14-Aug-84 20:43:30" {ERIS}<LISPCORE>SOURCES>DEXEC.;4
 3686   

      changes to:  (LISPXMACROS CONN NDIR)
		   (FNS SEE SEE*)

      previous date: "16-Jul-84 16:56:25" {ERIS}<LISPCORE>SOURCES>DEXEC.;2)


(* 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 NDIR)
		  (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]
		      (NDIR (DODIR (NLAMBDA.ARGS LISPXLINE)
				   (QUOTE (PP COLUMNS 17))
				   (QUOTE *)
				   "")))

(ADDTOVAR LISPXCOMS
 CONN DA NDIR)
(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 (1366 2917 (/CNDIR 1376 . 1598) (COPYALLBYTES 1600 . 2422) (SEE 2424 . 2641) (SEE* 2643
 . 2915)))))
STOP