(FILECREATED " 6-Jun-86 18:05:01" {ERIS}<LISPCORE>LIBRARY>CMLENVIRONMENT.;5
 4924   

      changes to:  (VARS CMLENVIRONMENTCOMS)

      previous date: "28-Apr-86 15:48:35" {ERIS}<LISPCORE>LIBRARY>CMLENVIRONMENT.;4)


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

(PRETTYCOMPRINT CMLENVIRONMENTCOMS)

(RPAQQ CMLENVIRONMENTCOMS
 ((FNS LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION MACHINE-INSTANCE 
                                MACHINE-VERSION PRINT-LOADED-FILE-INFORMATION SOFTWARE-TYPE 
                                SOFTWARE-VERSION PRINT-LISP-INFORMATION MACHINE-TYPE)
                           (FNS SHORT-SITE-NAME LONG-SITE-NAME)
                           (ADDVARS (*FEATURES* INTERLISP XEROX COMMON))
                           (COMS (* timing functions)
                                 (FNS SLEEP))))
(DEFINEQ

(LISP-IMPLEMENTATION-TYPE

  [LAMBDA NIL
                                                (* lmm "28-Apr-86 15:11")

    "Xerox"])

(LISP-IMPLEMENTATION-VERSION

  [LAMBDA NIL
    (CONCAT MAKESYSNAME " of " MAKESYSDATE])

(MACHINE-INSTANCE

  [LAMBDA NIL
                                     (* DECLARATIONS: (TYPERECORD NSHOSTNUMBER

                                                  (A B C)))

  (* lmm "14-Sep-85 07:39")

    (MKSTRING (with
 NSHOSTNUMBER \MY.NSHOSTNUMBER (PLUS (LSH A 32)
                                                        (LSH B 16)
                                                        C])

(MACHINE-VERSION

  [LAMBDA NIL
                                                (* lmm " 6-Sep-85 16:37")

    (CONCAT "microcode " (MICROCODEVERSION)
           ", "
           (REALMEMORYSIZE)
           " pages"])

(PRINT-LOADED-FILE-INFORMATION

  [LAMBDA (FILE STRING)
                                      (* raf " 2-Jan-86 17:37")

    (for
 X in
 LOADEDFILELST when
 (STRPOS (OR STRING "PATCH")
                                        X) do
 (PRINTOUT FILE (NAMEFIELD X)
                                                     " dated "
                                                     (CAAR (GETPROP (NAMEFIELD X)
                                                                  (QUOTE FILEDATES)))
                                                     T])

(SOFTWARE-TYPE

  [LAMBDA NIL
                                                (* lmm "28-Apr-86 15:34")

    "Xerox Lisp"])

(SOFTWARE-VERSION

  [LAMBDA NIL
                                                (* lmm " 6-Sep-85 16:39")

    (CAR MAKEINITDATES])

(PRINT-LISP-INFORMATION

  [LAMBDA (FILE STRING)
                                      (* raf " 2-Jan-86 17:38")

    (PRINTOUT (OR FILE T)
           (LISP-IMPLEMENTATION-TYPE
)
           " version "
           (LISP-IMPLEMENTATION-VERSION
)
           " on "
           (MACHINE-TYPE
)
           ", "
           (MACHINE-VERSION
)
           ", " "machine " (MACHINE-INSTANCE
)
           " based on "
           (SOFTWARE-TYPE
)
           " version "
           (SOFTWARE-VERSION
)
           T "Patch files: " # (PRINT-LOADED-FILE-INFORMATION
 FILE (OR STRING "PATCH"])

(MACHINE-TYPE

  [LAMBDA NIL
                                                (* lmm "28-Apr-86 15:48")

    (LET ((MT (MACHINETYPE)))
         (SELECTQ MT
             (DANDELION "Xerox 1108")
             (DORADO "Xerox 1132")
             (DOVE "Xerox 1186")
             MT])
)
(DEFINEQ

(SHORT-SITE-NAME

  [LAMBDA NIL
                                                (* lmm " 6-Sep-85 16:41")

    (OR (ETHERHOSTNAME)
        "unknown"])

(LONG-SITE-NAME

  [LAMBDA NIL
    (SHORT-SITE-NAME
])
)

(ADDTOVAR *FEATURES*
 INTERLISP XEROX COMMON)



(* timing functions)


(DEFINEQ

(SLEEP

  [CL:LAMBDA (N)
         (CL:BLOCK SLEEP (DISMISS (FIX (TIMES N 1000])
)
(PRETTYCOMPRINT CMLENVIRONMENTCOMS)

(RPAQQ CMLENVIRONMENTCOMS
 [(FNS LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION MACHINE-INSTANCE 
                                MACHINE-VERSION PRINT-LOADED-FILE-INFORMATION SOFTWARE-TYPE 
                                SOFTWARE-VERSION PRINT-LISP-INFORMATION MACHINE-TYPE)
                           (FNS SHORT-SITE-NAME LONG-SITE-NAME)
                           (ADDVARS (*FEATURES* INTERLISP XEROX COMMON))
                           (COMS (* timing functions)
                                 (FNS SLEEP))
                           (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
                                  (ADDVARS (NLAMA)
                                         (NLAML)
                                         (LAMA SLEEP])
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 SLEEP)
)
(PUTPROPS CMLENVIRONMENT COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (853 3491 (LISP-IMPLEMENTATION-TYPE 863 . 1001) (LISP-IMPLEMENTATION-VERSION 1003 . 1094
) (MACHINE-INSTANCE 1096 . 1514) (MACHINE-VERSION 1516 . 1741) (PRINT-LOADED-FILE-INFORMATION 1743 . 
2312) (SOFTWARE-TYPE 2314 . 2446) (SOFTWARE-VERSION 2448 . 2589) (PRINT-LISP-INFORMATION 2591 . 3200) 
(MACHINE-TYPE 3202 . 3489)) (3492 3725 (SHORT-SITE-NAME 3502 . 3661) (LONG-SITE-NAME 3663 . 3723)) (
3805 3899 (SLEEP 3815 . 3897)))))
STOP