(current-cont :c-type #!-alpha "lispobj *" #!+alpha "u32")
#!-(or x86 x86-64) current-code
entry-pc
- #!+win32 next-seh-frame
- #!+win32 seh-frame-handler
+ #!+(and win32 x86) next-seh-frame
+ #!+(and win32 x86) seh-frame-handler
tag
(previous-catch :c-type #!-alpha "struct catch_block *" #!+alpha "u32"))