(defun std-check-error (code) (if (= code 0) t (error "error-code: ~A~%error-str: ~A" code (foreign-funcall "strerror" :int code :string))))