fixed define-save-format lisp