github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-13 23:47:27 +00:00
Code Issues Projects Releases Wiki Activity

CMLARAITH: Makefile new to get fns/functions in filemap

Browse Source
This commit is contained in:
rmkaplan 2023-09-23 23:30:25 -07:00
parent 02665ca91b
commit 8a8e6fa4dc
2 changed files with 440 additions and 406 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

810
sources/CMLARITH
View File

File diff suppressed because it is too large Load Diff

36
sources/CMLARITH.LCOM
View File

@ -1,9 +1,10 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP")
(IL:FILECREATED "13-Jun-2021 21:16:13" ("compiled on "
IL:|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARITH.;1|) "13-Jun-2021 14:44:27"
"COMPILE-FILEd" IL:|in| "FULL 13-Jun-2021 ..." IL:|dated| "13-Jun-2021 14:44:40")
(IL:FILECREATED " 4-Jan-93 17:38:48" IL:|{DSK}<python>lde>lispcore>sources>CMLARITH.;2| 102283
IL:|previous| IL:|date:| "16-May-90 12:46:36" IL:|{DSK}<python>lde>lispcore>sources>CMLARITH.;1|)
(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: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 (
@ -688,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)) 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)
(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)
()
XCL::SFLOOR :D8
(IL:L (1 DIVISOR 0 NUMBER)) GA³@ H@ÿ‘Hj@ó²ûHkÕ@A
@ -814,14 +815,17 @@ 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)) 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)
()
(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)
REM :D8
(IL:L (1 DIVISOR 0 NUMBER)) D@d3 ™¿A3 “@AÜ@¤A²"@íAíHdIìíIíÖíìí@A@A
ÖÕ(63 XCL::STRUNCATE)
(43 IL:FLOATP)
(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)
()
%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