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