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 @@
`(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)))))))
#|
......
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