Skip to content
Snippets Groups Projects
Commit 8e472e50 authored by wlott's avatar wlott
Browse files

Wrapped truly-the system-area-pointer around %primitive foreign-symbol-

address.
parent 41a12718
No related branches found
No related tags found
No related merge requests found
...@@ -819,14 +819,18 @@ ...@@ -819,14 +819,18 @@
`(progn `(progn
(defparameter ,symbol (defparameter ,symbol
(make-alien ',c-type ,c-size (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* (eval-when ,*alien-eval-when*
(setf (info variable alien-value ',symbol) (setf (info variable alien-value ',symbol)
(lisp::make-ct-a-val (lisp::make-ct-a-val
:type ',c-type :type ',c-type
:size ,c-size :size ,c-size
:offset 0 :offset 0
:sap '(%primitive c::foreign-symbol-address ,name) :sap '(truly-the system-area-pointer
(%primitive c::foreign-symbol-address
,name))
:alien ',symbol))))))) :alien ',symbol)))))))
#| #|
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment