;; This file:
;;   http://anggtwu.net/MAXIMA/2025-Integrate.lisp.html
;;   http://anggtwu.net/MAXIMA/2025-Integrate.lisp
;;          (find-angg "MAXIMA/2025-Integrate.lisp")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;
;; (defun e () (interactive) (find-angg "MAXIMA/2025-Integrate.lisp"))
;; (find-angg "MAXIMA/lazynouns.lisp")

(defun my-copy-properties (tosymbol fromsymbol keys)
  (loop for key in keys
	do (setf (get tosymbol key) (get fromsymbol key))))

(my-copy-properties '$_integrate '%integrate  '(dimension tex))


;; (displa-def)


#|
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
load("2025-Integrate.lisp");

_integrate(a,b);
_integrate(f,x,a,b);
_Integrate(f,x,a,b) := _integrate(f,x,x=a,x=b);
_Integrate(f,x,a,b);


o : _Integrate(f,x,a,b);
subst(x=box(x), o);



* (eepitch-sbcl)
* (eepitch-kill)
* (eepitch-sbcl)
(load "2025-Integrate.lisp")

|#






;; Local Variables:
;; coding:  utf-8-unix
;; End: