X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Falpha-vm.lisp;h=44ec30e107dff25d89d860d7b7449b8cbd1fc7c3;hb=c1aeac123df223746249567a9c0d2f656d1222cb;hp=6741975a1cdd8e872cd43a2009c3dcbff0c8e478;hpb=50305b602c3953440af716137a56f50cd204375d;p=sbcl.git

diff --git a/src/code/alpha-vm.lisp b/src/code/alpha-vm.lisp
index 6741975..44ec30e 100644
--- a/src/code/alpha-vm.lisp
+++ b/src/code/alpha-vm.lisp
@@ -15,7 +15,7 @@
 (defvar *bits-per-word* 64)
 
 ;;; See x86-vm.lisp for a description of this.
-(def-alien-type os-context-t (struct os-context-t-struct))
+(define-alien-type os-context-t (struct os-context-t-struct))
 
 ;;;; MACHINE-TYPE and MACHINE-VERSION
 
@@ -37,7 +37,8 @@
 	(assert (zerop (ldb (byte 2 0) value)))
 	#+nil
 	(setf (sap-ref-16 sap offset)
-	      (logior (sap-ref-16 sap offset) (ldb (byte 14 0) (ash value -2)))))
+	      (logior (sap-ref-16 sap offset)
+		      (ldb (byte 14 0) (ash value -2)))))
        (:bits-63-48
 	(let* ((value (if (logbitp 15 value) (+ value (ash 1 16)) value))
 	       (value (if (logbitp 31 value) (+ value (ash 1 32)) value))
@@ -57,7 +58,7 @@
 	(setf (sap-ref-8 sap offset) (ldb (byte 8 0) value))
 	(setf (sap-ref-8 sap (1+ offset)) (ldb (byte 8 8) value)))))))
 
-;;;; "Sigcontext" access functions, cut & pasted from x86-vm.lisp then
+;;;; "sigcontext" access functions, cut & pasted from x86-vm.lisp then
 ;;;; hacked for types.
 ;;;;
 ;;;; KLUDGE: The alpha has 64-bit registers, so these potentially
@@ -71,14 +72,14 @@
 ;;;;
 ;;;; See also x86-vm for commentary on signed vs unsigned.
 
-(def-alien-routine ("os_context_pc_addr" context-pc-addr) (* unsigned-long)
+(define-alien-routine ("os_context_pc_addr" context-pc-addr) (* unsigned-long)
   (context (* os-context-t)))
 
 (defun context-pc (context)
   (declare (type (alien (* os-context-t)) context))
   (int-sap (deref (context-pc-addr context))))
 
-(def-alien-routine ("os_context_register_addr" context-register-addr)
+(define-alien-routine ("os_context_register_addr" context-register-addr)
   (* unsigned-long)
   (context (* os-context-t))
   (index int))
@@ -101,7 +102,8 @@
 
 ;;; FIXME: Whether COERCE actually knows how to make a float out of a
 ;;; long is another question. This stuff still needs testing.
-(def-alien-routine ("os_context_fpregister_addr" context-float-register-addr)
+(define-alien-routine ("os_context_fpregister_addr"
+		       context-float-register-addr)
   (* long)
   (context (* os-context-t))
   (index int))