(in-package :maxima)
#-(and gcl ansi-cl)
(use-package "SERROR")

(defvar errset nil)

#-(and gcl ansi-cl)
(defmacro errset (form &optional flag) flag
	  `(cond-any-error (er)
	    (list ,form)
	    ((null errset) nil)))

#+(and gcl ansi-cl)
(defmacro errset (&rest l)
  `(handler-case (list ,(car l))
    (cl::error (e) (if errset (error e)))))