(FILECREATED " 5-Dec-84 18:00:22" {ERIS}<LISP>CURRENT>INIT.NEW-CSL;1
 3804   )


(* Copyright (c) 1984 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS
 [(* "This is the CSL system greeting file.")
		 (FNS SETDIRECTORIES)
		 [VARS USERGREETFILES (COPYRIGHTFLG (QUOTE DEFAULT))
		       (COPYRIGHTRESERVED T)
		       (DEFAULTCOPYRIGHTOWNER (QUOTE XEROX))
		       (COPYRIGHTOWNERS (QUOTE ((XEROX "Xerox Corporation"]
		 (P (SETDIRECTORIES NIL NIL T))
		 (COMS (* FONTS)
		       (VARS (INTERPRESSFONTDIRECTORIES DISPLAYFONTDIRECTORIES)
			     (LIST (FINDFILE (QUOTE FONTS.WIDTHS)
					     T DISPLAYFONTDIRECTORIES)
				   (QUOTE {DSK}FONTS.WIDTHS)))
		       (* Outdated vars))
		 (VARS (DEFAULTREGISTRY (QUOTE PA))
		       (DEFAULTPRINTINGHOST (QUOTE (Clover LispPrint:Parc)))
		       (CH.DEFAULT.ORGANIZATION "Xerox")
		       (CH.DEFAULT.DOMAIN "PARC"))
		 (ADDVARS (NETWORKOSTYPES (PARC-CSLI . UNIX)
					  (PARC-VAXC . UNIX)
					  (GSLVAX . VMS)
					  (MAXC2 . TENEX)))
		 (INITVARS (SNOOPY.DEFAULT.OUTFILE (QUOTE {ERIS}<LISPSTATS>.HISTOGRAPHS)))
		 (P (LOGIN NIL (QUOTE QUIET])



(* "This is the CSL system greeting file.")


(DEFINEQ

(SETDIRECTORIES

  [LAMBDA (HOST RELEASE RESET)                               (* lmm " 5-Dec-84 17:45")

    (
PROG
 (DIR NEWDIRECTORIES NEWLISPUSERSDIRECTORIES)
          (
OR
 HOST (
SETQ
 HOST (
QUOTE
 ERIS)))
          [
OR
 RELEASE (
SETQ
 RELEASE (
COND

		  ((
BOUNDP
 (
QUOTE
 MAKESYSNAME))
		    MAKESYSNAME)
		  (T (
QUOTE
 CAROL]
          (
SETQ
 DIR (
SELECTQ
 RELEASE
			     (LISPCORE "<LISPCORE>")
			     (
CONCAT
 "<LISP>" RELEASE ">")))
          (
SETQ
 NEWLISPUSERSDIRECTORIES (
LIST
 (
PACK*
 "{" HOST "}" DIR "LIBRARY>")
					      (
PACK*
 "{" HOST "}" DIR "LISPUSERS>")
					      (
PACK*
 "{" HOST "}" "<LISPUSERS>")))
          [
SETQ
 NEWDIRECTORIES (
APPEND
 NEWLISPUSERSDIRECTORIES
				       (
LIST
 (
PACK*
 "{" HOST "}" DIR "SOURCES>"]
          [
SELECTQ
 RELEASE
		   [CAROL (
RPAQ
 FONTDIRECTORIES (
LIST
 (
PACK*
 "{" HOST "}<LISP>FONTS>"]
		   (
RPAQ
 DISPLAYFONTDIRECTORIES (
LIST
 (
PACK*
 "{" HOST "}" DIR "FONTS>")
						      (
PACK*
 "{" HOST "}<LISP>FONTS>"]
          [
RPAQ
 LISPUSERSDIRECTORIES (
APPEND
 NEWLISPUSERSDIRECTORIES (
AND
 (
NOT
 RESET)
									  (
LDIFFERENCE
 
									     LISPUSERSDIRECTORIES 
									  NEWLISPUSERSDIRECTORIES]
          (
RPAQ
 DIRECTORIES (
APPEND
 NEWDIRECTORIES (
AND
 (
NOT
 RESET)
							(
LDIFFERENCE
 DIRECTORIES NEWDIRECTORIES])
)

(RPAQQ USERGREETFILES
 (({PHYLUM}< USER >LISP>INIT. COM)
		       ({PHYLUM}< USER >LISP>INIT)
		       ({PHYLUM}< USER >INIT. COM)
		       ({PHYLUM}< USER >INIT.LISP)
		       ({ERIS}< USER >LISP>INIT. COM)
		       ({ERIS}< USER >LISP>INIT)
		       ({ERIS}< USER >INIT. COM)
		       ({ERIS}< USER >INIT.LISP)))

(RPAQQ COPYRIGHTFLG
 DEFAULT)

(RPAQQ COPYRIGHTRESERVED
 T)

(RPAQQ DEFAULTCOPYRIGHTOWNER
 XEROX)

(RPAQQ COPYRIGHTOWNERS
 ((XEROX "Xerox Corporation")))
(SETDIRECTORIES NIL NIL T)



(* FONTS)



(RPAQ INTERPRESSFONTDIRECTORIES
 DISPLAYFONTDIRECTORIES)

(RPAQ LIST
 (FINDFILE (QUOTE FONTS.WIDTHS)
		     T DISPLAYFONTDIRECTORIES)
	   (QUOTE {DSK}FONTS.WIDTHS))



(* Outdated vars)



(RPAQQ DEFAULTREGISTRY
 PA)

(RPAQQ DEFAULTPRINTINGHOST
 (Clover LispPrint:Parc))

(RPAQ CH.DEFAULT.ORGANIZATION
 "Xerox")

(RPAQ CH.DEFAULT.DOMAIN
 "PARC")

(ADDTOVAR NETWORKOSTYPES
 (PARC-CSLI . UNIX)
			 (PARC-VAXC . UNIX)
			 (GSLVAX . VMS)
			 (MAXC2 . TENEX))

(RPAQ? SNOOPY.DEFAULT.OUTFILE
 (QUOTE {ERIS}<LISPSTATS>.HISTOGRAPHS))
(LOGIN NIL (QUOTE QUIET))
(PUTPROPS INIT.NEW-CSL COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1189 2610 (SETDIRECTORIES 1199 . 2608)))))
STOP