diff --git a/sources/CMLARITH b/sources/CMLARITH
index 86733ee2..419cabf9 100644
--- a/sources/CMLARITH
+++ b/sources/CMLARITH
@@ -1,14 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "LISP" READTABLE "XCL" BASE 10)
 
-(IL:FILECREATED "23-Sep-2023 23:15:39" IL:|{WMEDLEY}<sources>CMLARITH.;2| 100545 
+(IL:FILECREATED "24-Sep-2023 15:37:27" IL:|{WMEDLEY}<sources>CMLARITH.;3| 100379 
 
       :EDIT-BY IL:|rmk|
 
-      :PREVIOUS-DATE " 4-Jan-93 17:38:48" IL:|{WMEDLEY}<sources>CMLARITH.;1|)
+      :PREVIOUS-DATE "23-Sep-2023 23:15:39" IL:|{WMEDLEY}<sources>CMLARITH.;2|)
 
 
-; Copyright (c) 1985-1990, 1993 by Venue & Xerox Corporation.
-
 (IL:PRETTYCOMPRINT IL:CMLARITHCOMS)
 
 (IL:RPAQQ IL:CMLARITHCOMS
@@ -2549,50 +2547,48 @@
 
 (IL:ADDTOVAR IL:LAMA LOGEQV LOGIOR LCM GCD / * - + >= <= > < /= =)
 )
-(IL:PUTPROPS IL:CMLARITH IL:COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1989 1990 1993)
-)
 (IL:DECLARE\: IL:DONTCOPY
-  (IL:FILEMAP (NIL (17111 17229 (%NOT-NUMBER-ERROR 17111 . 17229)) (17231 17444 (
-%NOT-NONCOMPLEX-NUMBER-ERROR 17231 . 17444)) (17446 17566 (%NOT-INTEGER-ERROR 17446 . 17566)) (17568 
-17690 (%NOT-RATIONAL-ERROR 17568 . 17690)) (17692 17808 (%NOT-FLOAT-ERROR 17692 . 17808)) (18334 18571
- (DENOMINATOR 18334 . 18571)) (18573 18809 (NUMERATOR 18573 . 18809)) (18902 21818 (%RATIO-PRINT 18902
- . 21818)) (21820 22424 (%BUILD-RATIO 21820 . 22424)) (22426 22885 (RATIONAL 22426 . 22885)) (22887 
-23368 (RATIONALIZE 22887 . 23368)) (23370 24386 (%RATIO-PLUS 23370 . 24386)) (24388 25187 (
-%RATIO-TIMES 24388 . 25187)) (26169 27030 (COMPLEX 26169 . 27030)) (27032 27198 (REALPART 27032 . 
-27198)) (27200 27380 (IMAGPART 27200 . 27380)) (27382 27622 (CONJUGATE 27382 . 27622)) (27624 28101 (
-PHASE 27624 . 28101)) (28103 28670 (%COMPLEX-PRINT 28103 . 28670)) (28672 28996 (%COMPLEX-+ 28672 . 
-28996)) (28998 29330 (%COMPLEX-- 28998 . 29330)) (29332 29786 (%COMPLEX-* 29332 . 29786)) (29788 30654
- (%COMPLEX-/ 29788 . 30654)) (30656 30961 (%COMPLEX-ABS 30656 . 30961)) (31580 31626 (ZEROP 31580 . 
-31626)) (31628 31674 (PLUSP 31628 . 31674)) (31977 32024 (MINUSP 31977 . 32024)) (32352 32509 (EVENP 
-32352 . 32509)) (32511 32673 (ODDP 32511 . 32673)) (33247 35130 (%= 33247 . 35130)) (35132 35181 (%/= 
-35132 . 35181)) (35183 36942 (%> 35183 . 36942)) (36944 36980 (%< 36944 . 36980)) (36982 37031 (%>= 
-36982 . 37031)) (37033 37082 (%<= 37033 . 37082)) (38352 39211 (%COMPARISON-MACRO 38352 . 39211)) (
-39214 41086 (= 39227 . 39749) (/= 39751 . 40476) (< 40478 . 40627) (> 40629 . 40778) (<= 40780 . 40931
-) (>= 40933 . 41084)) (41088 41629 (%COMPARISON-OPTIMIZER 41088 . 41629)) (45755 48239 (%+ 45755 . 
-48239)) (48241 50782 (%- 48241 . 50782)) (50784 53230 (%* 50784 . 53230)) (53232 56469 (%/ 53232 . 
-56469)) (57279 59433 (+ 57292 . 57800) (- 57802 . 58382) (* 58384 . 58892) (/ 58894 . 59431)) (59435 
-59478 (1+ 59435 . 59478)) (59480 59523 (1- 59480 . 59523)) (59525 59638 (%RECIPROCOL 59525 . 59638)) (
-62448 63497 (%GCD 62448 . 63497)) (63499 63869 (%LCM 63499 . 63869)) (63870 65380 (GCD 63883 . 64658) 
-(LCM 64660 . 65378)) (68708 69947 (ISQRT 68708 . 69947)) (70029 70583 (ABS 70029 . 70583)) (70585 
-70763 (%ABS 70585 . 70763)) (70765 71259 (SIGNUM 70765 . 71259)) (71261 71489 (%SIGNUM 71261 . 71489))
- (71776 72741 (XCL::STRUNCATE 71776 . 72741)) (72743 73561 (XCL::SFLOOR 72743 . 73561)) (73563 74377 (
-XCL::SCEILING 73563 . 74377)) (74379 74732 (XCL::SROUND 74379 . 74732)) (75310 75848 (
-%INTEGER-COERCE-MACRO 75310 . 75848)) (75852 76100 (TRUNCATE 75852 . 76100)) (76102 76352 (FLOOR 76102
- . 76352)) (76354 76608 (CEILING 76354 . 76608)) (76610 76865 (ROUND 76610 . 76865)) (76867 77206 (
-%INTEGER-COERCE-OPTIMIZER 76867 . 77206)) (77903 78154 (FTRUNCATE 77903 . 78154)) (78156 78340 (FFLOOR
- 78156 . 78340)) (78342 78599 (FCEILING 78342 . 78599)) (78601 78859 (FROUND 78601 . 78859)) (79572 
-80517 (MOD 79572 . 80517)) (80519 81086 (REM 80519 . 81086)) (81495 81989 (%LOGICAL-OPTIMIZER 81495 . 
-81989)) (82708 82751 (%LOGIOR 82708 . 82751)) (82753 82809 (%LOGEQV 82753 . 82809)) (82966 84536 (
-LOGIOR 82979 . 83755) (LOGEQV 83757 . 84534)) (84911 84989 (LOGNAND 84911 . 84989)) (84991 85072 (
-LOGNOR 84991 . 85072)) (85074 85163 (LOGANDC1 85074 . 85163)) (85165 85244 (LOGANDC2 85165 . 85244)) (
-85246 85338 (LOGORC1 85246 . 85338)) (85340 85422 (LOGORC2 85340 . 85422)) (86712 87701 (BOOLE 86712
- . 87701)) (87768 87850 (LOGTEST 87768 . 87850)) (88071 88128 (ASH 88071 . 88128)) (88273 88742 (
-LOGCOUNT 88273 . 88742)) (88744 89405 (%LOGCOUNT 88744 . 89405)) (89548 89780 (%BIGNUM-LOGCOUNT 89548
- . 89780)) (89782 91478 (INTEGER-LENGTH 89782 . 91478)) (91540 91579 (%LLSH8 91540 . 91579)) (91581 
-91620 (%LLSH1 91581 . 91620)) (91622 91661 (%LRSH8 91622 . 91661)) (91663 91702 (%LRSH1 91663 . 91702)
-) (94077 94389 (BYTE 94077 . 94389)) (94815 95019 (OPTIMIZE-BYTE 94815 . 95019)) (95203 95378 (
-%MAKE-BYTE-MASK-1 95203 . 95378)) (95380 95481 (%MAKE-BYTE-MASK-0 95380 . 95481)) (95485 95709 (LDB 
-95485 . 95709)) (95711 96024 (DPB 95711 . 96024)) (96026 96222 (MASK-FIELD 96026 . 96222)) (96224 
-96516 (DEPOSIT-FIELD 96224 . 96516)) (96518 96821 (%CONSTANT-BYTESPEC-P 96518 . 96821)) (99730 99812 (
-LDB-TEST 99730 . 99812)))))
+  (IL:FILEMAP (NIL (17050 17168 (%NOT-NUMBER-ERROR 17050 . 17168)) (17170 17383 (
+%NOT-NONCOMPLEX-NUMBER-ERROR 17170 . 17383)) (17385 17505 (%NOT-INTEGER-ERROR 17385 . 17505)) (17507 
+17629 (%NOT-RATIONAL-ERROR 17507 . 17629)) (17631 17747 (%NOT-FLOAT-ERROR 17631 . 17747)) (18273 18510
+ (DENOMINATOR 18273 . 18510)) (18512 18748 (NUMERATOR 18512 . 18748)) (18841 21757 (%RATIO-PRINT 18841
+ . 21757)) (21759 22363 (%BUILD-RATIO 21759 . 22363)) (22365 22824 (RATIONAL 22365 . 22824)) (22826 
+23307 (RATIONALIZE 22826 . 23307)) (23309 24325 (%RATIO-PLUS 23309 . 24325)) (24327 25126 (
+%RATIO-TIMES 24327 . 25126)) (26108 26969 (COMPLEX 26108 . 26969)) (26971 27137 (REALPART 26971 . 
+27137)) (27139 27319 (IMAGPART 27139 . 27319)) (27321 27561 (CONJUGATE 27321 . 27561)) (27563 28040 (
+PHASE 27563 . 28040)) (28042 28609 (%COMPLEX-PRINT 28042 . 28609)) (28611 28935 (%COMPLEX-+ 28611 . 
+28935)) (28937 29269 (%COMPLEX-- 28937 . 29269)) (29271 29725 (%COMPLEX-* 29271 . 29725)) (29727 30593
+ (%COMPLEX-/ 29727 . 30593)) (30595 30900 (%COMPLEX-ABS 30595 . 30900)) (31519 31565 (ZEROP 31519 . 
+31565)) (31567 31613 (PLUSP 31567 . 31613)) (31916 31963 (MINUSP 31916 . 31963)) (32291 32448 (EVENP 
+32291 . 32448)) (32450 32612 (ODDP 32450 . 32612)) (33186 35069 (%= 33186 . 35069)) (35071 35120 (%/= 
+35071 . 35120)) (35122 36881 (%> 35122 . 36881)) (36883 36919 (%< 36883 . 36919)) (36921 36970 (%>= 
+36921 . 36970)) (36972 37021 (%<= 36972 . 37021)) (38291 39150 (%COMPARISON-MACRO 38291 . 39150)) (
+39153 41025 (= 39166 . 39688) (/= 39690 . 40415) (< 40417 . 40566) (> 40568 . 40717) (<= 40719 . 40870
+) (>= 40872 . 41023)) (41027 41568 (%COMPARISON-OPTIMIZER 41027 . 41568)) (45694 48178 (%+ 45694 . 
+48178)) (48180 50721 (%- 48180 . 50721)) (50723 53169 (%* 50723 . 53169)) (53171 56408 (%/ 53171 . 
+56408)) (57218 59372 (+ 57231 . 57739) (- 57741 . 58321) (* 58323 . 58831) (/ 58833 . 59370)) (59374 
+59417 (1+ 59374 . 59417)) (59419 59462 (1- 59419 . 59462)) (59464 59577 (%RECIPROCOL 59464 . 59577)) (
+62387 63436 (%GCD 62387 . 63436)) (63438 63808 (%LCM 63438 . 63808)) (63809 65319 (GCD 63822 . 64597) 
+(LCM 64599 . 65317)) (68647 69886 (ISQRT 68647 . 69886)) (69968 70522 (ABS 69968 . 70522)) (70524 
+70702 (%ABS 70524 . 70702)) (70704 71198 (SIGNUM 70704 . 71198)) (71200 71428 (%SIGNUM 71200 . 71428))
+ (71715 72680 (XCL::STRUNCATE 71715 . 72680)) (72682 73500 (XCL::SFLOOR 72682 . 73500)) (73502 74316 (
+XCL::SCEILING 73502 . 74316)) (74318 74671 (XCL::SROUND 74318 . 74671)) (75249 75787 (
+%INTEGER-COERCE-MACRO 75249 . 75787)) (75791 76039 (TRUNCATE 75791 . 76039)) (76041 76291 (FLOOR 76041
+ . 76291)) (76293 76547 (CEILING 76293 . 76547)) (76549 76804 (ROUND 76549 . 76804)) (76806 77145 (
+%INTEGER-COERCE-OPTIMIZER 76806 . 77145)) (77842 78093 (FTRUNCATE 77842 . 78093)) (78095 78279 (FFLOOR
+ 78095 . 78279)) (78281 78538 (FCEILING 78281 . 78538)) (78540 78798 (FROUND 78540 . 78798)) (79511 
+80456 (MOD 79511 . 80456)) (80458 81025 (REM 80458 . 81025)) (81434 81928 (%LOGICAL-OPTIMIZER 81434 . 
+81928)) (82647 82690 (%LOGIOR 82647 . 82690)) (82692 82748 (%LOGEQV 82692 . 82748)) (82905 84475 (
+LOGIOR 82918 . 83694) (LOGEQV 83696 . 84473)) (84850 84928 (LOGNAND 84850 . 84928)) (84930 85011 (
+LOGNOR 84930 . 85011)) (85013 85102 (LOGANDC1 85013 . 85102)) (85104 85183 (LOGANDC2 85104 . 85183)) (
+85185 85277 (LOGORC1 85185 . 85277)) (85279 85361 (LOGORC2 85279 . 85361)) (86651 87640 (BOOLE 86651
+ . 87640)) (87707 87789 (LOGTEST 87707 . 87789)) (88010 88067 (ASH 88010 . 88067)) (88212 88681 (
+LOGCOUNT 88212 . 88681)) (88683 89344 (%LOGCOUNT 88683 . 89344)) (89487 89719 (%BIGNUM-LOGCOUNT 89487
+ . 89719)) (89721 91417 (INTEGER-LENGTH 89721 . 91417)) (91479 91518 (%LLSH8 91479 . 91518)) (91520 
+91559 (%LLSH1 91520 . 91559)) (91561 91600 (%LRSH8 91561 . 91600)) (91602 91641 (%LRSH1 91602 . 91641)
+) (94016 94328 (BYTE 94016 . 94328)) (94754 94958 (OPTIMIZE-BYTE 94754 . 94958)) (95142 95317 (
+%MAKE-BYTE-MASK-1 95142 . 95317)) (95319 95420 (%MAKE-BYTE-MASK-0 95319 . 95420)) (95424 95648 (LDB 
+95424 . 95648)) (95650 95963 (DPB 95650 . 95963)) (95965 96161 (MASK-FIELD 95965 . 96161)) (96163 
+96455 (DEPOSIT-FIELD 96163 . 96455)) (96457 96760 (%CONSTANT-BYTESPEC-P 96457 . 96760)) (99669 99751 (
+LDB-TEST 99669 . 99751)))))
 IL:STOP
diff --git a/sources/CMLARITH.LCOM b/sources/CMLARITH.LCOM
index e26b23ae..438354d5 100644
--- a/sources/CMLARITH.LCOM
+++ b/sources/CMLARITH.LCOM
@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "LISP" READTABLE "XCL" BASE 10)
 
-(IL:FILECREATED "23-Sep-2023 23:16:18" ("compiled on " IL:|{WMEDLEY}<sources>CMLARITH.;2|) 
-"23-Sep-2023 23:13:47" "COMPILE-FILEd" IL:|in| "FULL 23-Sep-2023 ..." IL:|dated| 
-"23-Sep-2023 23:13:54")
-(IL:FILECREATED "23-Sep-2023 23:15:39" IL:|{WMEDLEY}<sources>CMLARITH.;2| 100545 :EDIT-BY IL:|rmk| 
-:PREVIOUS-DATE " 4-Jan-93 17:38:48" IL:|{WMEDLEY}<sources>CMLARITH.;1|)
+(IL:FILECREATED "24-Sep-2023 15:37:41" ("compiled on " IL:|{WMEDLEY}<sources>CMLARITH.;3|) 
+"24-Sep-2023 15:27:49" "COMPILE-FILEd" IL:|in| "FULL 24-Sep-2023 ..." IL:|dated| 
+"24-Sep-2023 15:27:56")
+(IL:FILECREATED "24-Sep-2023 15:37:27" IL:|{WMEDLEY}<sources>CMLARITH.;3| 100379 :EDIT-BY IL:|rmk| 
+:PREVIOUS-DATE "23-Sep-2023 23:15:39" IL:|{WMEDLEY}<sources>CMLARITH.;2|)
 (IL:RPAQQ IL:CMLARITHCOMS ((IL:* IL:|;;;| "Common Lisp Arithmetic ") (IL:COMS (IL:* IL:|;;| 
 "Error utilities") (IL:FUNCTIONS %NOT-NUMBER-ERROR %NOT-NONCOMPLEX-NUMBER-ERROR %NOT-INTEGER-ERROR 
 %NOT-RATIONAL-ERROR %NOT-FLOAT-ERROR)) (IL:COMS (IL:* IL:|;;;| "Section 2.1.2 Ratios. ") (IL:COMS (
@@ -689,9 +689,9 @@ NIL
 ( 10 (IL:OPENLAMBDA (X) (COND ((EQ X 0) 0) ((PLUSP X) 1) (T -1))))
 (IL:SETF-MACRO-FUNCTION (QUOTE %SIGNUM) (QUOTE |expand-%SIGNUM|))
 XCL::STRUNCATE :D8
-(IL:L (1 DIVISOR 0 NUMBER)) }Aµ9@dÃ—¿@	dÃ²¿@É@ÉÛ3 ‘@@	Hd3 ”¿@AÛÃ²@íAí¹íIíë	HÃœ@A
-	A	(122 %NOT-NONCOMPLEX-NUMBER-ERROR 115 XCL::STRUNCATE 110 %/ 95 IL:UFIX 56 %NOT-NONCOMPLEX-NUMBER-ERROR 17 IL:\\FIXP.FROM.FLOATP)
-(102 RATIO 75 IL:FLOATP 41 RATIO 33 RATIO 24 RATIO 9 IL:FLOATP)
+(IL:L (1 DIVISOR 0 NUMBER)) tAµ9@dÃ—¿@	dÃ²¿@É@ÉÛ3 ‘@@	Hd3 ”¿@AÛÃš@íAíìíHÃœ@A
+	A	(113 %NOT-NONCOMPLEX-NUMBER-ERROR 106 XCL::STRUNCATE 101 %/ 56 %NOT-NONCOMPLEX-NUMBER-ERROR 17 IL:\\FIXP.FROM.FLOATP)
+(93 RATIO 75 IL:FLOATP 41 RATIO 33 RATIO 24 RATIO 9 IL:FLOATP)
 ()
 XCL::SFLOOR :D8
 (IL:L (1 DIVISOR 0 NUMBER)) GA³@	H@ÿ‘Hj@ó²ûHkÕ@A
@@ -815,17 +815,14 @@ QUOTE FFLOOR) (QUOTE COMPILER:OPTIMIZER-LIST))))
 (IL:PUTPROP (QUOTE FROUND) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FROUND|) (GET (
 QUOTE FROUND) (QUOTE COMPILER:OPTIMIZER-LIST))))
 MOD :D8
-(IL:L (1 DIVISOR 0 NUMBER)) “@µA²k@íAíhHdíIíë	IíÖíìZddío
-³3¿oIí
-˜Hío‡oHí
-™JíIíÔí€Jí@A
-jHÿ®jAó’@j�j@ó“HAÔH(121 REM 99 IL:UFGREATERP 76 IL:UFGREATERP 60 IL:UFEQP 32 IL:UFIX)
-(37 IL:FLOATP)
-( 91 0.0 85 0.0 68 0.0 55 0.0)
+(IL:L (1 DIVISOR 0 NUMBER)) l@µA²D@íAíhHdIìíIíÖíìZddhì²¿hIì´Hh€Hì™JíIíÔí€Jí@A
+jHÿ®jAó’@j�j@ó“HAÔH(82 REM)
+(31 IL:FLOATP)
+()
 REM :D8
-(IL:L (1 DIVISOR 0 NUMBER)) J@d3 ™¿A3 “@AÜ@¤A²(@íAíHdíIíë	IíÖíìí@A@A
-ÖÕ(69 XCL::STRUNCATE 44 IL:UFIX)
-(49 IL:FLOATP)
+(IL:L (1 DIVISOR 0 NUMBER)) D@d3 ™¿A3 “@AÜ@¤A²"@íAíHdIìíIíÖíìí@A@A
+ÖÕ(63 XCL::STRUNCATE)
+(43 IL:FLOATP)
 ()
 %LOGICAL-OPTIMIZER :D8
 (IL:L (4 MORE-INTEGERS 3 SECOND-INTEGER 2 FIRST-INTEGER 1 IDENTITY 0 BINARY-LOGICAL-FN)) 1B¡AC¡BD§@BCh@BCh!DYµHº@HJh¸I°ïNIL
@@ -1149,6 +1146,4 @@ NIL
 (QUOTE LDB-TEST) (QUOTE COMPILER:OPTIMIZER-LIST))))
 (IL:PUTPROPS IL:CMLARITH IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "LISP"))
 (IL:PUTPROPS IL:CMLARITH IL:FILETYPE COMPILE-FILE)
-(IL:PUTPROPS IL:CMLARITH IL:COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1989 1990 1993)
-)
 NIL
