|
@@ -423,6 +423,10 @@ Multiplication is one of the more frequently used expression types, and is, surp
|
|
|
(defmethod to-sexp ((expression <multiplication>) &optional resolve-constants-p)
|
|
|
`(* ,@(mapcar #'(lambda (exp) (to-sexp exp resolve-constants-p))
|
|
|
(slot-value expression 'terms))))
|
|
|
+
|
|
|
+ (defmethod copy-expression ((expression <multiplication>))
|
|
|
+ (make-instance '<multiplication>
|
|
|
+ :terms (mapcar #'copy-expression (slot-value expression 'terms))))
|
|
|
#+END_SRC
|
|
|
|
|
|
*** DONE Divisions
|