CL:ROOM no longer errors (#890)

With 4-byte atoms it no longer makes sense to report atom-space separately.

sources/CMLENVIRONMENT

@@ -1,13 +1,13 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP")
-
(IL:FILECREATED " 3-Sep-93 09:49:06" IL:|{PELE:MV:ENVOS}<LISPCORE>SOURCES>CMLENVIRONMENT.;4|
 7109   
+(DEFINE-FILE-INFO PACKAGE "LISP" READTABLE "XCL" BASE 10)
 
-      IL:|changes| IL:|to:|  (IL:VARIABLES *FEATURES*)
+
(IL:FILECREATED "12-Aug-2022 12:31:32" IL:|{DSK}<home>larry>medley>sources>CMLENVIRONMENT.;2|
 6958   
 
-      IL:|previous| IL:|date:| " 8-Nov-90 17:26:56" 
-IL:|{PELE:MV:ENVOS}<LISPCORE>SOURCES>CMLENVIRONMENT.;3|)
+      :CHANGES-TO (IL:FUNCTIONS ROOM)
+
+      :PREVIOUS-DATE " 3-Sep-93 09:49:06" IL:|{DSK}<home>larry>medley>sources>CMLENVIRONMENT.;1|)
 
 
-; Copyright (c) 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporation.  All rights reserved.
+; Copyright (c) 1986-1988, 1990, 1993 by Venue & Xerox Corporation.
 
 (IL:PRETTYCOMPRINT IL:CMLENVIRONMENTCOMS)
 
@@ -22,8 +22,7 @@ IL:|{PELE:MV:ENVOS}<LISPCORE>SOURCES>CMLENVIRONMENT.;3|)
            (IL:FUNCTIONS ROOM)
            (IL:COMS 
 
-                  (IL:* IL:|;;| 
-
                "Functions for printing the system information for Customer Support:")

+                  (IL:* IL:|;;| "Functions for printing the system information for Customer Support:")

 
                   (IL:FNS IL:PRINT-LISP-INFORMATION IL:PRINT-LOADED-FILE-INFORMATION))
            (IL:VARIABLES *FEATURES*)
@@ -61,7 +60,7 @@ IL:|{PELE:MV:ENVOS}<LISPCORE>SOURCES>CMLENVIRONMENT.;3|)
 (DEFUN MACHINE-VERSION
 ()
    (IL:SELECTQ (IL:MACHINETYPE)
          (IL:MAIKO                                           (IL:* IL:\; 
-
                         "For emulators, convert the emulator creation date from microcodeversion.")

+
                           "For emulators, convert the emulator creation date from microcodeversion.")

                    (FORMAT NIL "Emulator created: ~A, memory size: ~D"
                           (IL:SUBSTRING (IL:GDATE (+ (IL:IDATE "14-OCT-87 12:00:00")
                                                      (* 86400 (IL:MICROCODEVERSION))))
@@ -100,23 +99,21 @@ IL:|{PELE:MV:ENVOS}<LISPCORE>SOURCES>CMLENVIRONMENT.;3|)
    (OR XCL:*LONG-SITE-NAME* XCL:*SHORT-SITE-NAME* "Unknown"))
 
 (DEFUN ROOM
 (&OPTIONAL (TYPES NIL SP)
-                       (PAGE-LIMIT (IF SP
-                                       NIL
-                                       20))
-                       (IN-USE-LIMIT NIL))
+                   (PAGE-LIMIT (IF SP
+                                   NIL
+                                   20))
+                   (IN-USE-LIMIT NIL))
                (IL:* IL:\; "Edited 12-Aug-2022 12:25 by lmm")

 
    (IL:* IL:|;;| "The three args are identical to those of IL:STORAGE, except that TYPES = NIL, T or omitted is handled per silver book (small, maximal, medium, respectively).")

 
    (LET* ((STORAGE-LEFT (IL:STORAGE.LEFT))
           (DATA-REMAINING (ROUND (* 100 (SECOND STORAGE-LEFT))))
-          (SYMBOLS-REMAINING (ROUND (* 100 (FIFTH STORAGE-LEFT))))
           (ONE-PERCENT-VMEM (ROUND (+ IL:\\LASTVMEMFILEPAGE 50)
                                    100))
           (VMEM-PERCENT (- 100 (ROUND (+ (IL:VMEMSIZE)
                                          (ASH ONE-PERCENT-VMEM -1))
                                       ONE-PERCENT-VMEM))))
          (FORMAT T "Data area remaining:~25t~a%~%" DATA-REMAINING)
-         (FORMAT T "Symbol area remaining:~25t~a%~%" SYMBOLS-REMAINING)
          (FORMAT T "Vmem remaining:~25t~a%~%" VMEM-PERCENT)
          (WHEN (OR TYPES PAGE-LIMIT IN-USE-LIMIT)
              (TERPRI T)
@@ -172,6 +169,10 @@ IL:|{PELE:MV:ENVOS}<LISPCORE>SOURCES>CMLENVIRONMENT.;3|)
 (IL:PUTPROPS IL:CMLENVIRONMENT
 IL:FILETYPE
 :COMPILE-FILE)
 (IL:PUTPROPS IL:CMLENVIRONMENT IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1993))
 (IL:DECLARE\: IL:DONTCOPY
-  (IL:FILEMAP (NIL (5523 6724 (IL:PRINT-LISP-INFORMATION 5536 . 6161) (IL:PRINT-LOADED-FILE-INFORMATION 
-6163 . 6722)))))
+  (IL:FILEMAP (NIL (1272 1329 (LISP-IMPLEMENTATION-TYPE 1272 . 1329)) (1331 1534 (
+LISP-IMPLEMENTATION-VERSION 1331 . 1534)) (1536 2186 (MACHINE-INSTANCE 1536 . 2186)) (2188 2886 (
+MACHINE-VERSION 2188 . 2886)) (2888 2934 (SOFTWARE-TYPE 2888 . 2934)) (2936 3140 (SOFTWARE-VERSION 
+2936 . 3140)) (3142 3456 (MACHINE-TYPE 3142 . 3456)) (3537 3607 (SHORT-SITE-NAME 3537 . 3607)) (3609 
+3699 (LONG-SITE-NAME 3609 . 3699)) (3701 5278 (ROOM 3701 . 5278)) (5372 6573 (IL:PRINT-LISP-INFORMATION
+ 5385 . 6010) (IL:PRINT-LOADED-FILE-INFORMATION 6012 . 6571)))))
 IL:STOP