(FILECREATED "31-JAN-83 17:07:45" {PHYLUM}<LISPCORE>ETHER>DEXEC.;1
 6271Q  

      changes to:  (VARS DEXECCOMS)

      previous date: "16-DEC-82 17:05:00" {PHYLUM}<LISPCORE>SOURCES>DEXEC.;6)


(* Copyright (c) 1982, 1983 by Xerox Corporation)

(PRETTYCOMPRINT DEXECCOMS)

(RPAQQ DEXECCOMS
 [(LISPXMACROS CONN DA DEL NDIR TY SEE)
		  (FNS /CNDIR COPYALLBYTES)
		  (COMS (* The PUP record here made public. Can't go in file PUP because it's in the 
			   init))
		  (COMS (* Has to come after ADISPLAY)
			(CURSORS SAVINGCURSOR SYSOUTCURSOR))
		  (P (MOVD? (QUOTE NILL)
			    (QUOTE SETNM])

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

(ADDTOVAR LISPXMACROS
 [CONN (/CNDIR (CAR LISPXLINE)
				    (AND (LISTP (CDR LISPXLINE))
					 (PROG1 (CADR LISPXLINE)
						(FRPLACA (CDR LISPXLINE]
		      (DEL (DODIR LISPXLINE (QUOTE (DELETE))
				  ""
				  (QUOTE L)))
		      (NDIR (DODIR LISPXLINE (QUOTE (PP COLUMNS 21Q))
				   (QUOTE *)
				   0))
		      (TY (COPYALLBYTES (CAR LISPXLINE)
					(OR (CADR LISPXLINE)
					    T)
					(CADDR LISPXLINE)))
		      (SEE (COPYALLBYTES (CAR LISPXLINE)
					 (OR (CADR LISPXLINE)
					     T)
					 (CADDR LISPXLINE))))

(ADDTOVAR LISPXCOMS
 CONN DA DEL NDIR TY SEE)
(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)                        (* rmk: " 6-AUG-80 12:35")

    (RESETLST (PROG (IN
 OUT PTR)
		    [RESETSAVE NIL (COND
				 [[SETQ IN (COND
				       (FROMFILE (OPENP FROMFILE (QUOTE INPUT)))
				       (T (INPUT]
				   (COND
				     ((RANDACCESSP IN)      (* Start at the beginning if you can reset and restore 

							    current position later. If can't reset, just start at 

							    current position.)

				       (SETQ PTR 0)
				       (LIST (QUOTE SETFILEPTR)
					     IN
					     (GETFILEPTR IN]
				 (T (LIST (QUOTE CLOSEF?)
					  (SETQ IN (OPENFILE FROMFILE (QUOTE INPUT)
							     NIL BYTESIZE]
                                                            (* close the files only if I opened them)

		    [COND
		      ([NOT (SETQ OUT (COND
				(TOFILE (OPENP TOFILE (QUOTE OUTPUT)))
				(T (OUTPUT]
			(RESETSAVE NIL (LIST (QUOTE CLOSEF?)
					     (SETQ OUT (OPENFILE TOFILE (QUOTE OUTPUT)
								 NIL BYTESIZE]
		    (COND
		      ((AND (NULL BYTESIZE)
			    (EQ OUT T))
			(PFCOPYBYTES IN OUT PTR (AND PTR -1)))
		      (T (COPYBYTES IN OUT PTR (AND PTR -1])
)



(* The PUP record here made public. Can't go in file PUP because it's in the init)





(* Has to come after ADISPLAY)


(RPAQ SAVINGCURSOR (CURSORCREATE (READBITMAP) 0 17Q))
(20Q 20Q
"@@@@"
"FDJ@"
"HJJ@"
"LJJ@"
"BNJL"
"JJD@"
"LJD@"
"@@@@"
"@JDN"
"@KEB"
"@KE@"
"@JMF"
"@JMB"
"@JEL"
"@@@@"
"@@@@")(RPAQ SYSOUTCURSOR (CURSORCREATE (READBITMAP) 0 17Q))
(20Q 20Q
"@@@@"
"CJDN"
"DAE@"
"C@HL"
"@HHB"
"DIAB"
"CA@L"
"@@@@"
"@@@@"
"AIBN"
"BEBD"
"BEBD"
"BEBD"
"BEBD"
"AHLD"
"@@@@")(MOVD? (QUOTE NILL)
	(QUOTE SETNM))
(PUTPROPS DEXEC COPYRIGHT ("Xerox Corporation" 3676Q 3677Q))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (2367Q 5142Q (/CNDIR 2401Q . 2737Q) (COPYALLBYTES 2741Q . 5140Q)))))
STOP