(FILECREATED " 8-Dec-83 16:00:57" {PHYLUM}<LISPCORE>SOURCES>DEXEC.;12
 6702Q  

      changes to:  (VARS DEXECCOMS)

      previous date: "14-NOV-83 16:29:41" {PHYLUM}<LISPCORE>SOURCES>DEXEC.;11)


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

(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 LISPXLINE)
				    (AND (LISTP (CDR LISPXLINE))
					 (PROG1 (CADR LISPXLINE)
						(FRPLACA (CDR LISPXLINE]
		      (NDIR (DODIR LISPXLINE (QUOTE (PP COLUMNS 21Q))
				   (QUOTE *)
				   0)))

(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                                              (* bvm: "13-NOV-83 17:23")

    (COND
      ((LISTP LINE)
	(COPYALLBYTES
 (CAR LINE)
		      (OR (CADR LINE)
			  T)
		      (CADDR LINE)))
      (T (COPYALLBYTES
 LINE T])

(SEE*

  [NLAMBDA LINE                                              (* bvm: "13-NOV-83 17:24")

    (RESETVARS ((**COMMENT**FLG))
	       (RETURN (COND
			 ((LISTP LINE)
			   (COPYALLBYTES
 (CAR LINE)
					 (OR (CADR LINE)
					     T)
					 (CADDR LINE)))
			 (T (COPYALLBYTES
 LINE T])
)



(* 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"
"@@@@")(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" 3676Q 3677Q))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (2163Q 5300Q (/CNDIR 2175Q . 2533Q) (COPYALLBYTES 2535Q . 4223Q) (SEE 4225Q . 4620Q) (
SEE* 4622Q . 5276Q)))))
STOP