|
@@ -458,6 +458,11 @@ Division is similar to ~<multiplication>~, although instead of having ~terms~ it
|
|
|
(defmethod to-sexp ((expression <division>) &optional resolve-constants-p)
|
|
|
`(/ ,(to-sexp (slot-value expression 'numerator) resolve-constants-p)
|
|
|
,(to-sexp (slot-value expression 'denominator) resolve-constants-p)))
|
|
|
+
|
|
|
+ (defmethod copy-expression ((expression <division>))
|
|
|
+ (make-instance '<division>
|
|
|
+ :numerator (copy-expression (slot-value expression 'numerator))
|
|
|
+ :denominator (copy-expression (slot-value expression 'denominator))))
|
|
|
#+END_SRC
|
|
|
|
|
|
*** DONE Exponentials
|