Diff of /maxima-pre59/src/maxmac.lisp [1759ba] .. [44a136]  Maximize  Restore

Switch to side-by-side view

--- a/maxima-pre59/src/maxmac.lisp
+++ b/maxima-pre59/src/maxmac.lisp
@@ -642,3 +642,13 @@
 ;  #+nil `(si:get-symbol-array-pointer ,x)
 ;  #+cl `(symbol-array ,x)
 ;  #+maclisp `(get ,x 'array))
+
+
+(defmacro  mdefprop (sym val indicator)
+  `(mputprop ',sym ',val ',indicator))
+
+
+(DEFMFUN MPUTPROP (ATOM VAL IND)
+  (LET ((PROPS (GET ATOM 'MPROPS)))
+    (IF (NULL PROPS) (PUTPROP ATOM (SETQ PROPS (NCONS NIL)) 'MPROPS))
+    (PUTPROP PROPS VAL IND)))

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:

JavaScript is required for this form.





No, thanks