+(def-alien-routine ("os_context_register_addr" context-register-addr)
+ (* unsigned-int)
+ ;; (Note the mismatch here between the 'int *' value that the C code
+ ;; may think it's giving us and the 'unsigned *' value that we
+ ;; receive. It's intentional: the C header files may think of
+ ;; register values as signed, but the CMU CL code tends to think of
+ ;; register values as unsigned, and might get bewildered if we ask
+ ;; it to work with signed values.)