Index: /trunk/source/level-1/x86-trap-support.lisp
===================================================================
--- /trunk/source/level-1/x86-trap-support.lisp	(revision 14838)
+++ /trunk/source/level-1/x86-trap-support.lisp	(revision 14839)
@@ -272,6 +272,7 @@
     `(pref ,xp :ucontext_t.uc_mcontext))
   (defun xp-mxcsr (xp)
-    (pref (pref xp :ucontext_t.uc_mcontext.mc_fpstate) :savexmm.sv_env.en_mxcsr)
-)
+    (pref (pref xp :ucontext_t.uc_mcontext.mc_fpstate) :savexmm.sv_env.en_mxcsr))
+  (defmacro xp-xmm-regs (xp)
+    `(pref (pref ,xp :ucontext_t.uc_mcontext.mc_fpstate) :savexmm.sv_xmm))
   (defconstant flags-register-offset 17)
   (defconstant eip-register-offset 15)