SBCL test for SEH-utilizing C++ or .NET library

sehtest.lisp

(sb-alien:load-shared-object "sehlib.dll")

(sb-alien:define-alien-routine
  ("catches_fn" catches-fn)
  sb-alien:void)

(defun test-seh ()
  (handler-case
      (progn (catches-fn)
             (format *error-output*
                     "Correct behavior. No exception."))
    (sb-win32:exception
      (ex)
      (format *error-output*
              "Invalid behavior. Got exception. Code #x~8,'0X"
              (sb-win32:exception-code ex))))
  (values))

(test-seh)