Code: Select all
(defmethod write-int-to-string ((x (eql (mod x #x7FFFFFFF))))
(write-to-string x))
Thanks in advance.
Code: Select all
(defmethod write-int-to-string ((x (eql (mod x #x7FFFFFFF))))
(write-to-string x))
Code: Select all
(defgeneric simplify (form))
(defgeneric simplify-list (car cdr))
(defmethod simplify ((form list))
(simplify-list (car form) (cdr form)))
(defmethod simplify ((form array))
...)
(defmethod simplify-list ((car (eql '+)) cdr)
...)
(defmethod simplify-list ((car (eql '*)) cdr)
...)