|
@@ -350,6 +350,10 @@ CLOSED: [2019-01-17 Thu 09:53]
|
|
|
(defmethod to-sexp ((expression <addition>) &optional resolve-constants-p)
|
|
|
`(+ ,@(mapcar #'(lambda (exp) (to-sexp exp resolve-constants-p))
|
|
|
(slot-value expression 'terms))))
|
|
|
+
|
|
|
+ (defmethod copy-expression ((expression <addition>))
|
|
|
+ (make-instance '<addition>
|
|
|
+ :terms (mapcar #'copy-expression (slot-value expression 'terms))))
|
|
|
#+END_SRC
|
|
|
|
|
|
*** DONE Subtractions
|