Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo

Close

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

  Switch to side-by-side view

--- a/maxima-pre59/src/mlisp.lisp
+++ b/maxima-pre59/src/mlisp.lisp
@@ -1792,17 +1792,14 @@
 ;;    (AND PROPS (GET PROPS IND)))
 ;    (AND PROPS (GETf (cdr PROPS) IND))))
  
-(DEFMFUN MPUTPROP (ATOM VAL IND)
-  (LET ((PROPS (GET ATOM 'MPROPS)))
-    (IF (NULL PROPS) (PUTPROP ATOM (SETQ PROPS (NCONS NIL)) 'MPROPS))
-    (PUTPROP PROPS VAL IND)))
+
 
 #-cl
 (DEFUN MDEFPROP FEXPR (L) (MPUTPROP (CAR L) (CADR L) (CADDR L)) (CAR L))
 
-#+cl
-(defquote mdefprop (&rest l)
- (MPUTPROP (CAR L) (CADR L) (CADDR L)) (CAR L))
+
+
+
 
 (DEFMFUN MREMPROP (ATOM IND)
   (LET ((PROPS (GET ATOM 'MPROPS))) (AND PROPS (ZL-REMPROP PROPS IND))))