All source files converted to LF (#315)

* All source files converted to LF

Also, HPRINT:  EQUALALL knows about CL arrays
FILEIO:  STREAM record with fields for external format functions

* Delete makeinit.dribble

* Converted CR to LF on internal/library and docs/Documentation Tools

lispusers/checkset

@@ -1 +1,142 @@
-
(FILECREATED " 8-JAN-83 15:26:29" <LISPUSERS>CHECKSET.;3
    3992
+
(FILECREATED " 8-JAN-83 15:26:29" <LISPUSERS>CHECKSET.;3
    3992
+
+      changes to:  (FNS CHECKSET1)
+
+      previous date: " 6-JAN-83 22:58:57" <LISPUSERS>CHECKSET.;2)
+
+
+(* Copyright (c) 1983 by Xerox Corporation)
+
+(PRETTYCOMPRINT CHECKSETCOMS)
+
+(RPAQQ CHECKSETCOMS
 ((* making sure files are up to date)
+		     (FNS CHECKSET CHECKSET1 CSETASK COMPFILES)
+		     (LOCALVARS . T)
+		     (GLOBALVARS COMPILE.EXT FILERDTBL DWIMWAIT)))
+
+
+
+(* making sure files are up to date)

+
+(DEFINEQ
+
+(CHECKSET

+  [LAMBDA (SET COMPFLG)            (* lmm " 6-JAN-83 22:57")

+    (OR COMPFLG (SETQQ COMPFLG Y))
+    (COND
+      [SET (SETQ SET (CHECKSET1
 (OR (LISTP SET)
+				    [LISTP (GETATOMVAL (PACK* SET (QUOTE LISPSET]
+				    (LIST SET))
+				COMPFLG))
+	   (COND
+	     ((EQ COMPFLG (QUOTE N))
+	       SET)
+	     (T (COMPFILES
 SET]
+      (T (for
 X in
 FILESETS join
 (CHECKSET
 (EVAL X)
+					   COMPFLG])
+
+(CHECKSET1

+  [LAMBDA (FILES COMPFLG)          (* lmm " 8-JAN-83 14:31")

+    (PROG (@COM.SOURCES .COM @LISP LISP @PREV @SOURCE NEEDCOMPILE TEM TODO SFD)
+          (for
 GROUP in
 FILES
+	     do
 (SETQ NEEDCOMPILE)
+		(SETQ @COM.SOURCES (COND
+		    [(SETQ .COM (FINDFILE [PACKFILENAME (QUOTE EXTENSION)
+							COMPILE.EXT
+							(QUOTE BODY)
+							(CAR (OR (LISTP GROUP)
+								 (SETQ GROUP (LIST GROUP]
+					  T))
+		      (INPUT (INFILE .COM))
+		      (SKREAD .COM)
+		      (for
 SOURCE in
 GROUP collect
 (IDATE (CADR (READ .COM]
+		    (T (SETQQ NEEDCOMPILE COMPILE)
+		       NIL)))
+		[for
 SOURCE in
 GROUP as
 @COM.SOURCE in
 (OR @COM.SOURCES GROUP)
+		   do
 (COND
+			((NOT (SETQ TEM (FINDFILE SOURCE T)))
+			  (PRINT (LIST SOURCE (QUOTE (not found)))
+				 T T)
+			  (SETQ NEEDCOMPILE)
+			  (RETURN)))
+		      (SETQ TEM (INPUT (INFILE TEM)))
+		      (SETFILEPTR TEM 0)
+		      (SETQ SFD (READ TEM FILERDTBL))
+		      (CLOSEF TEM)
+		      (SETQ @PREV (AND [STRINGP (SETQ @PREV (CAR (NLEFT SFD 2]
+				       (IDATE @PREV)))
+		      (SETQ @SOURCE (IDATE (CADR SFD)))
+		      (SETQ SFD (CONS (CADR SFD)
+				      TEM))
+		      (COND
+			((NEQ NEEDCOMPILE (QUOTE COMPILE))
+			  (COND
+			    (@COM.SOURCE (COND
+					   ((NOT (IEQP @COM.SOURCE @SOURCE))
+					     (SETQ NEEDCOMPILE (COND
+						 ((AND @PREV (IEQP @PREV @COM.SOURCE))
+						   (QUOTE RECOMPILE))
+						 (T (QUOTE COMPILE]
+		[COND
+		  ((AND NEEDCOMPILE (PROGN (SETQ NEEDCOMPILE (CONS NEEDCOMPILE GROUP))
+					   (CSETASK
 NEEDCOMPILE COMPFLG)))
+		    (SETQ TODO (NCONC1 TODO NEEDCOMPILE]
+		(AND .COM (CLOSEF .COM)))
+          (RETURN TODO])
+
+(CSETASK

+  [LAMBDA (Q DEFAULT)              (* bvm: "30-DEC-81 12:58")

+    (SELECTQ DEFAULT
+	     ((Y N)
+	       (MAPRINT Q T NIL "
+")
+	       T)
+	     (EQ (QUOTE Y)
+		 (ASKUSER DWIMWAIT DEFAULT Q NIL T])
+
+(COMPFILES

+  [LAMBDA (FILES FLG)              (* bvm: "30-DEC-81 13:28")

+    (PROG [LISPXHIST (LISTING (OR (SELECTQ (COND
+					     ((LISTP FLG)
+					       (OR (CADR FLG)
+						   (CAR FLG)))
+					     (T FLG))
+					   (F (QUOTE F))
+					   (ST (QUOTE ST))
+					   NIL)
+				  (QUOTE F]
+          (DECLARE
 (SPECVARS LISPXHIST))
+          (SELECTQ (OR (CAR (LISTP FLG))
+		       FLG)
+		   (C (SETQQ FLG COMPILE))
+		   (RC (SETQQ FLG RECOMPILE))
+		   NIL)
+          (RETURN (for
 FL in
 FILES collect
 (SELECTQ [CAR (OR (LISTP FL)
+							     (SETQ FL (LIST FLG FL]
+						    (RECOMPILE (PRINT (CONS (QUOTE recompiling)
+									    (CDR FL))
+								      T)
+							       (LISPXUNREAD (LIST LISTING))
+							       (BRECOMPILE (CDR FL)
+									   NIL
+									   (QUOTE CHANGES)))
+						    (COMPILE (PRINT (CONS (QUOTE compiling)
+									  (CDR FL))
+								    T)
+							     (LISPXUNREAD (LIST LISTING))
+							     (BCOMPL (CDR FL)))
+						    (HELP FL])
+)
+(DECLARE: DOEVAL@COMPILE DONTCOPY
+
+(LOCALVARS . T)
+)
+(DECLARE: DOEVAL@COMPILE DONTCOPY
+
+(ADDTOVAR GLOBALVARS COMPILE.EXT FILERDTBL DWIMWAIT)
+)
+(PUTPROPS CHECKSET COPYRIGHT ("Xerox Corporation" 1983))
+(DECLARE: DONTCOPY
+  (FILEMAP (NIL (485 3770 (CHECKSET 495 . 926) (CHECKSET1 928 . 2571) (CSETASK 2573 . 2785) (COMPFILES 
+2787 . 3768)))))
+STOP