mirror of
https://github.com/PDP-10/its.git
synced 2026-01-30 13:36:42 +00:00
85994ed770
Resolves #284. Commented out uses of time-origin in maxtul; mcldmp (init) until we can figure out why it gives arithmetic overflows under the emulators. Updated the expect script statements in build_macsyma_portion to not attempt to match expected strings, but simply sleep for some time since in some cases the matching appears not to work.
41 lines
1.4 KiB
Common Lisp
41 lines
1.4 KiB
Common Lisp
;;;;;;;;;;;;;;;;;;; -*- Mode: Lisp; Package: Macsyma -*- ;;;;;;;;;;;;;;;;;;;
|
|
;;; (c) Copyright 1981 Massachusetts Institute of Technology ;;;
|
|
;;; GJC 10:11pm Tuesday, 14 July 1981 ;;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(macsyma-module trprop)
|
|
|
|
;; Many macsyma extension commands, e.g. $INFIX, $TELLSIMP,
|
|
;; $DEFTAYLOR work by doing explicit PUTPROPS.
|
|
;; These META-PROP functions allow selected commands to
|
|
;; also output DEFPROP's when processed in the Macsyma->lisp translation.
|
|
|
|
(DEFMVAR META-PROP-P NIL)
|
|
(DEFMVAR META-PROP-L NIL)
|
|
|
|
(DEFUN META-OUTPUT (FORM)
|
|
(IF *IN-TRANSLATE-FILE* (PUSH FORM META-PROP-L))
|
|
;; unfortunately, MATCOM needs to see properties in order
|
|
;; to compose tellsimps. so eval it always.
|
|
(EVAL FORM))
|
|
|
|
(DEFMFUN META-ADD2LNC (ITEM SYMBOL)
|
|
(IF META-PROP-P
|
|
(META-OUTPUT `(ADD2LNC ',ITEM ,SYMBOL))
|
|
(ADD2LNC ITEM (SYMEVAL SYMBOL))))
|
|
|
|
(DEFMFUN META-PUTPROP (SYMBOL ITEM KEY)
|
|
(IF META-PROP-P
|
|
(PROG1 ITEM (META-OUTPUT `(DEFPROP ,SYMBOL ,ITEM ,KEY)))
|
|
(PUTPROP SYMBOL ITEM KEY)))
|
|
|
|
(DEFMFUN META-MPUTPROP (SYMBOL ITEM KEY)
|
|
(IF META-PROP-P
|
|
(PROG1 ITEM (META-OUTPUT `(MDEFPROP ,SYMBOL ,ITEM ,KEY)))
|
|
(MPUTPROP SYMBOL ITEM KEY)))
|
|
|
|
(DEFMFUN META-FSET (SYMBOL DEFINITION)
|
|
(IF META-PROP-P
|
|
(PROG1 DEFINITION (META-OUTPUT `(FSET ',SYMBOL ',DEFINITION)))
|
|
(FSET SYMBOL DEFINITION)))
|