From 8e472e501e6f5d7507bb8904a711f362d9b6f57a Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 9 Jun 1990 00:51:13 +0000 Subject: [PATCH] Wrapped truly-the system-area-pointer around %primitive foreign-symbol- address. --- code/c-call.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/code/c-call.lisp b/code/c-call.lisp index 9e7143a22..c2967ecee 100644 --- a/code/c-call.lisp +++ b/code/c-call.lisp @@ -819,14 +819,18 @@ `(progn (defparameter ,symbol (make-alien ',c-type ,c-size - (%primitive c::foreign-symbol-address ,name))) + (truly-the system-area-pointer + (%primitive c::foreign-symbol-address + ,name)))) (eval-when ,*alien-eval-when* (setf (info variable alien-value ',symbol) (lisp::make-ct-a-val :type ',c-type :size ,c-size :offset 0 - :sap '(%primitive c::foreign-symbol-address ,name) + :sap '(truly-the system-area-pointer + (%primitive c::foreign-symbol-address + ,name)) :alien ',symbol))))))) #| -- GitLab