Function: STD-CHECK-ERROR

Source

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