Add copy expression for division

larcs.org

@@ -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