;hacker mentality
(defmacro defresult (func args &optional docstring form)
"define function that returns a result on error"
`(defun ,func ,args
,docstring
(handler-case
,form
(error (e)
(let ((message (format nil "~A" e)))
(make-result :error e))))))
10 days ago