transl: do not assume a catch's mode based on the last body form

[maxima.git] / tests / test_readbase_lisp.lisp

(defun $test_readbase_lisp () '((mlist) 1 2 3 4 10 20 30 40))