(FILECREATED "25-Aug-86 16:49:37" {ERIS}<LISPCORE>LIBRARY>CMLENVIRONMENT.;8
 4790   

      changes to:  (VARS CMLENVIRONMENTCOMS)
                   (VARIABLES *FEATURES*)

      previous date: "17-Jul-86 02:01:20" {ERIS}<LISPCORE>LIBRARY>CMLENVIRONMENT.;7)


(* 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)))
                           (VARIABLES *FEATURES*)
                           (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
                                  (ADDVARS (NLAMA)
                                         (NLAML)
                                         (LAMA ROOM)))))
(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)
                                               (* lmm "17-Jul-86 01:59")

    (AND (OR (SYMBOLP FN)
             (COMPILED-FUNCTION-P FN)
             (CONSP FN))
         T])
)
(MOVD (QUOTE CCODEP)
      (QUOTE COMPILED-FUNCTION-P))
(DEFPARAMETER *FEATURES*
 (QUOTE (INTERLISP XEROX COMMON)) )

(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 ROOM)
)
(PUTPROPS CMLENVIRONMENT COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1213 3851 (LISP-IMPLEMENTATION-TYPE 1223 . 1361) (LISP-IMPLEMENTATION-VERSION 1363 . 
1454) (MACHINE-INSTANCE 1456 . 1874) (MACHINE-VERSION 1876 . 2101) (PRINT-LOADED-FILE-INFORMATION 2103
 . 2672) (SOFTWARE-TYPE 2674 . 2806) (SOFTWARE-VERSION 2808 . 2949) (PRINT-LISP-INFORMATION 2951 . 
3560) (MACHINE-TYPE 3562 . 3849)) (3852 4085 (SHORT-SITE-NAME 3862 . 4021) (LONG-SITE-NAME 4023 . 4083
)) (4086 4224 (ROOM 4096 . 4222)) (4225 4448 (FUNCTIONP 4235 . 4446)))))
STOP