(defun save-obj (obj filespec &key (if-exists nil))
  (if if-exists
      (with-open-file (s filespec
                         :direction :output
                         :if-exists if-exists)
        (write-obj obj s))
      (with-open-file (s filespec
                         :direction :output)
        (write-obj obj s))))