github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-03-03 18:27:44 +00:00
Code Issues Projects Releases Wiki Activity

CMLARITH: The compiled file was bad in the previous commit

Browse Source 
This has a FILESLOAD for lispusers/UNBOXEDOPS that somehow didn't get executed by the previous cleanup.  (That may be a separate issue with the compiler interface, not clear that it always makes the right choices even when the FILETYPE property is set.)

But this also begs the question, why is UNBOXEDOPS on lispusers?
This commit is contained in:
rmkaplan
2023-09-24 16:41:52 -07:00
parent 8a8e6fa4dc
commit 1bed018db8
2 changed files with 60 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
sources/CMLARITH
View File

@@ -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

35
sources/CMLARITH.LCOM
View File

@@ -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