Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;Ukol 17
- (defclass d-expr (binary-expression)
- ())
- (defmethod bin-expr-symbol ((expr d-expr))
- 'd)
- (defmethod simplify ((expr d-expr))
- (call-next-method (deriv (expr-1 expr) (expr-2 expr))))
- (defvar *d-expr-class* 'd-expr)
- (defun make-binary-expr (name expr-1 expr-2)
- (make-instance (case name
- (+ *+-expr-class*)
- (- *--expr-class*)
- (* **-expr-class*)
- (/ */-expr-class*)
- (d *d-expr-class*))
- :expr-1 (parse expr-1)
- :expr-2 (parse expr-2)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement