github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-05-02 22:33:27 +00:00
Code Issues Releases Wiki Activity

Added missing function $taylorp to JM;SIMP.

Browse Source 
Also made JM;SIMP virtually identical to LISPM version.
Resolves #2188.
This commit is contained in:
Eric Swenson
2023-04-18 16:57:36 -07:00
parent 600199e94b
commit 31048c62fa
2 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/jm/simp.834 → src/jm/simp.835
View File

@@ -14,7 +14,9 @@
BIGFLOATZERO BIGFLOATONE $ASSUMESCALAR $SUBNUMSIMP BIGFLOATZERO BIGFLOATONE $ASSUMESCALAR $SUBNUMSIMP
OPERS-LIST *OPERS-LIST WFLAG $DONTFACTOR *N OPERS-LIST *OPERS-LIST WFLAG $DONTFACTOR *N
*OUT *IN VARLIST GENVAR $FACTORFLAG RADCANP) *OUT *IN VARLIST GENVAR $FACTORFLAG RADCANP)
(*EXPR PSQUOREM1 PNTHROOTP) (*EXPR PSQUOREM1 PNTHROOTP %especial csign oper-apply sumpls sumtimes
srf mevenp moddp demoivre pdis rischint sinint context-unwinder
$defint pgcdexpon pexpon*// psimp pdivide pterm)
(*LEXPR FMAPL1 $LIMIT OUTERMAP1 $RATSIMP $EXPAND) (*LEXPR FMAPL1 $LIMIT OUTERMAP1 $RATSIMP $EXPAND)
(FIXNUM FMAPLVL L1 L2 XN NARGS I (SIGNUM1)) (FIXNUM FMAPLVL L1 L2 XN NARGS I (SIGNUM1))
(NOTYPE N) (NOTYPE N)
@@ -242,6 +244,9 @@
(DEFMFUN $RATP (X) (AND (NOT (ATOM X)) (EQ (CAAR X) 'MRAT))) (DEFMFUN $RATP (X) (AND (NOT (ATOM X)) (EQ (CAAR X) 'MRAT)))
(defmfun $taylorp (x)
(and (not (atom x)) (eq (caar x) 'mrat) (memq 'trunc (cdar x)) t))
(DEFMFUN SPECREPCHECK (E) (IF (SPECREPP E) (SPECDISREP E) E)) (DEFMFUN SPECREPCHECK (E) (IF (SPECREPP E) (SPECDISREP E) E))
;; Note that the following two functions are carefully coupled. ;; Note that the following two functions are carefully coupled.
@@ -411,7 +416,7 @@
(DEFMFUN SIMPLIFYA (X Y) (DEFMFUN SIMPLIFYA (X Y)
(COND ((ATOM X) (COND ((AND (EQ X '$%PI) $NUMER) %PI-VAL) (T X))) (COND ((ATOM X) (COND ((AND (EQ X '$%PI) $NUMER) %PI-VAL) (T X)))
((NOT $SIMP) X) ((NOT $SIMP) X)
((ATOM (CAR X)) ((ATOM (CAR X))
(COND ((AND (CDR X) (ATOM (CDR X))) (COND ((AND (CDR X) (ATOM (CDR X)))
(MERROR "~%~S is a cons with an atomic cdr - SIMPLIFYA" X)) (MERROR "~%~S is a cons with an atomic cdr - SIMPLIFYA" X))
@@ -2066,7 +2071,7 @@
(DEFUN RATQU (A B) (RATQUOTIENT (RATFIX A) (RATFIX B))) (DEFUN RATQU (A B) (RATQUOTIENT (RATFIX A) (RATFIX B)))
(DEFUN RATFIX (A) (COND ((EQUAL A (RATNUMERATOR A)) (CONS A 1)) (T A))) (DEFUN RATFIX (A) (COND ((EQUAL A (RATNUMERATOR A)) (CONS A 1)) (T A)))
(DEFUN RATDIVIDE (F G) (DEFUN RATDIVIDE (F G)
(LET* (((FNUM . FDEN) (RATFIX F)) (LET* (((FNUM . FDEN) (RATFIX F))
((GNUM . GDEN) (RATFIX G)) ((GNUM . GDEN) (RATFIX G))
@@ -2104,6 +2109,7 @@
(DEFMFUN *KAR (X) (IF (NOT (ATOM X)) (CAR X))) (DEFMFUN *KAR (X) (IF (NOT (ATOM X)) (CAR X)))
;MATCOEF is obsolete, only needed for old SAVE files. - JPG 5/12/80 ;MATCOEF is obsolete, only needed for old SAVE files. - JPG 5/12/80
#-NIL (declare (*expr ratcoef))
#-NIL #-NIL
(DEFUN MATCOEF FEXPR (L) (DEFUN MATCOEF FEXPR (L)
(RATDISREP (RATCOEF (MEVAL (CAR L)) (MEVAL (CADR L))))) (RATDISREP (RATCOEF (MEVAL (CAR L)) (MEVAL (CADR L)))))
@@ -2127,4 +2133,3 @@
; Undeclarations for the file: ; Undeclarations for the file:
(DECLARE (NOTYPE L1 L2 XN NARGS I)) (DECLARE (NOTYPE L1 L2 XN NARGS I))

0
src/jpg/comm2.56 → src/jpg/comm2.57
View File