-
-;;; "Sigcontext" access functions, cut & pasted from x86-vm.lisp then
-;;; hacked for types. The alpha has 64-bit registers, so these
-;;; potentially return 64 bit numbers (which means bignums ... ew)
-;;; We think that 99 times of 100 (i.e. unless something is badly wrong)
-;;; we'll get answers that fit in 32 bits anyway.
-
-;;; Which probably won't help us stop passing bignums around as the
-;;; compiler can't prove they fit in 32 bits. But maybe the stuff it
-;;; does on x86 to unbox 32-bit constants happens magically for 64-bit
-;;; constants here. Just maybe.
-
-;;; see also x86-vm for commentary on signed vs unsigned.
+;;;; "Sigcontext" access functions, cut & pasted from x86-vm.lisp then
+;;;; hacked for types.
+;;;;
+;;;; KLUDGE: The alpha has 64-bit registers, so these potentially
+;;;; return 64 bit numbers (which means bignums ... ew) We think that
+;;;; 99 times of 100 (i.e. unless something is badly wrong) we'll get
+;;;; answers that fit in 32 bits anyway. Which probably won't help us
+;;;; stop passing bignums around as the compiler can't prove they fit
+;;;; in 32 bits. But maybe the stuff it does on x86 to unbox 32-bit
+;;;; constants happens magically for 64-bit constants here. Just
+;;;; maybe. -- Dan Barlow, ca. 2001-05-05
+;;;;
+;;;; See also x86-vm for commentary on signed vs unsigned.