Although hgfred(,[-1], x) is undefined, Maxima
returns a noun form for this case.
All the logic for detecting this is in place, but
it is ignored. In hgfsimp-exec there is
(not (atom (res))).
Should the 'not' be removed and the one
reference to 'undef be changed to '$und?
(defun hgfsimp-exec (arg-l1 arg-l2 arg)
(let* ((l1 (copy-tree arg-l1))
(l2 (copy-tree arg-l2))
(res (hgfsimp l1 l2 arg)))
(if (or (numberp res) (atom res)) ;; <---change
(fpqform l1 l2 arg))))
This change makes
Maybe hgfsimp returns other atoms that aren't correct
(that need to be caught by (not (atom res)). I don't know.
Log in to post a comment.