diff --git a/code/pmax-machdef.lisp b/code/pmax-machdef.lisp
new file mode 100644
index 0000000000000000000000000000000000000000..6477c8ce5c6697960ee69c1c1470a2fee98de063
--- /dev/null
+++ b/code/pmax-machdef.lisp
@@ -0,0 +1,35 @@
+;;; -*- Log: code.log; Package: Mach -*-
+;;;
+;;; **********************************************************************
+;;; This code was written as part of the Spice Lisp project at
+;;; Carnegie-Mellon University, and has been placed in the public domain.
+;;; If you want to use this code or any part of Spice Lisp, please contact
+;;; Scott Fahlman (FAHLMAN@CMUC). 
+;;; **********************************************************************
+;;;
+;;; Record definitions needed for the interface to Mach.
+;;;
+(in-package "MACH")
+
+
+(export '(sigcontext-onstack sigcontext-mask sigcontext-pc sigcontext-regs
+	  sigcontext-mdlo sigcontext-mdhi sigcontext-ownedfp sigcontext-fpregs
+	  sigcontext-fpc_csr sigcontext-fpc_eir sigcontext-cause
+	  sigcontext-badvaddr sigcontext-badpaddr sigcontext *sigcontext
+	  indirect-*sigcontext))
+
+
+(def-c-record sigcontext
+  (onstack unsigned-long)
+  (mask unsigned-long)
+  (pc system-area-pointer)
+  (regs int-array)
+  (mdlo unsigned-long)
+  (mdhi unsigned-long)
+  (ownedfp unsigned-long)
+  (fpregs int-array)
+  (fpc_csr unsigned-long)
+  (fpc_eir unsigned-long)
+  (cause unsigned-long)
+  (badvaddr system-area-pointer)
+  (badpaddr system-area-pointer))
diff --git a/code/sparc-machdef.lisp b/code/sparc-machdef.lisp
new file mode 100644
index 0000000000000000000000000000000000000000..8b8e96b5aa355ce3c10007dc2c08a4bff13ee027
--- /dev/null
+++ b/code/sparc-machdef.lisp
@@ -0,0 +1,31 @@
+;;; -*- Log: code.log; Package: Mach -*-
+;;;
+;;; **********************************************************************
+;;; This code was written as part of the Spice Lisp project at
+;;; Carnegie-Mellon University, and has been placed in the public domain.
+;;; If you want to use this code or any part of Spice Lisp, please contact
+;;; Scott Fahlman (FAHLMAN@CMUC). 
+;;; **********************************************************************
+;;;
+;;; Record definitions needed for the interface to Mach.
+;;;
+(in-package "MACH")
+
+(export '(sigcontext-onstack sigcontext-mask sigcontext-sp sigcontext-pc
+	  sigcontext-npc sigcontext-psr sigcontext-g1 sigcontext-o0
+	  sigcontext-regs sigcontext-fpregs sigcontext-y sigcontext-fsr
+	  sigcontext *sigcontext indirect-*sigcontext))
+
+(def-c-record sigcontext
+  (onstack unsigned-long)
+  (mask unsigned-long)
+  (sp system-area-pointer)
+  (pc system-area-pointer)
+  (npc system-area-pointer)
+  (psr unsigned-long)
+  (g1 unsigned-long)
+  (o0 unsigned-long)
+  (regs int-array)
+  (fpregs int-array)
+  (y unsigned-long)
+  (fsr unsigned-long))