(FILECREATED " 8-Jul-86 09:56:40" {ERIS}<LISPCORE>LIBRARY>CMLENVIRONMENT.;6
 6573   

      changes to:  (VARS CMLENVIRONMENTCOMS)

      previous date: " 6-Jun-86 18:05:01" {ERIS}<LISPCORE>LIBRARY>CMLENVIRONMENT.;5)


(* 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)
                           (FNS ROOM)
                           (FNS FUNCTIONP)
                           (P (MOVD (QUOTE CCODEP)
                                    (QUOTE COMPILED-FUNCTION-P)))
                           (ADDVARS (*FEATURES* INTERLISP XEROX COMMON))
                           (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
                                  (ADDVARS (NLAMA)
                                         (NLAML)
                                         (LAMA 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
])
)
(DEFINEQ

(ROOM

  (CL:LAMBDA (&OPTIONAL (X NIL X-SUPPLIEDP))
                 (* kbr: " 2-Jul-86 12:31")

         (STORAGE)))
)
(DEFINEQ

(FUNCTIONP

  (LAMBDA (FN)
                                               (* kbr: " 3-Jul-86 14:02")

    (PROG ((DEF FN))
          (COND
             ((LITATOM DEF)
              (SETQ DEF (fetch
 (LITATOM DEFINITIONCELL) of
 DEF))
              (COND
                 ((fetch
 (DEFINITIONCELL PSEUDOCODEP) of
 DEF)
                  (SETQ DEF (\PSEUDOCODE.REALDEF DEF)))
                 ((PROG1 (fetch
 (DEFINITIONCELL CCODEP) of
 DEF)
                         (SETQ DEF (fetch
 (DEFINITIONCELL DEFPOINTER) of
 DEF)))
                  (RETURN T)))))
          (RETURN (COND
                     ((AND (LISTP DEF)
                           (FMEMB (CAR DEF)
                                  (QUOTE (CL:LAMBDA LAMBDA OPENLAMBDA NLAMBDA FUNARG))))
                      T)
                     ((AND (ARRAYP DEF)
                           (EQ (fetch
 (ARRAYP TYP) of
 DEF)
                               \ST.CODE))
                      T))))))
)
(MOVD (QUOTE CCODEP)
      (QUOTE COMPILED-FUNCTION-P))

(ADDTOVAR *FEATURES*
 INTERLISP XEROX COMMON)
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 SLEEP)
)
(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)
                           (FNS ROOM)
                           (FNS FUNCTIONP)
                           (P (MOVD (QUOTE CCODEP)
                                    (QUOTE COMPILED-FUNCTION-P)))
                           (ADDVARS (*FEATURES* INTERLISP XEROX COMMON))
                           (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
                                  (ADDVARS (NLAMA)
                                         (NLAML)
                                         (LAMA ROOM)))))
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 ROOM)
)
(PUTPROPS CMLENVIRONMENT COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1195 3833 (LISP-IMPLEMENTATION-TYPE 1205 . 1343) (LISP-IMPLEMENTATION-VERSION 1345 . 
1436) (MACHINE-INSTANCE 1438 . 1856) (MACHINE-VERSION 1858 . 2083) (PRINT-LOADED-FILE-INFORMATION 2085
 . 2654) (SOFTWARE-TYPE 2656 . 2788) (SOFTWARE-VERSION 2790 . 2931) (PRINT-LISP-INFORMATION 2933 . 
3542) (MACHINE-TYPE 3544 . 3831)) (3834 4067 (SHORT-SITE-NAME 3844 . 4003) (LONG-SITE-NAME 4005 . 4065
)) (4068 4206 (ROOM 4078 . 4204)) (4207 5206 (FUNCTIONP 4217 . 5204)))))
STOP