X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-alieneval.lisp;h=c670384d70373423764ff1ea0a280624557a79ff;hb=0b99857b2ea02b083040e9789ddefed98e8cae3a;hp=822dd7d0ca1175b4d82efe82ed6f611ffd78640c;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/target-alieneval.lisp b/src/code/target-alieneval.lisp
index 822dd7d..c670384 100644
--- a/src/code/target-alieneval.lisp
+++ b/src/code/target-alieneval.lisp
@@ -852,7 +852,8 @@ ENTER-ALIEN-CALLBACK pulls the corresponsing trampoline out and calls it.")
   (let ((type (parse-alien-type spec env)))
     (if (or (alien-integer-type-p type)
             (alien-float-type-p type)
-            (alien-pointer-type-p type))
+            (alien-pointer-type-p type)
+            (alien-system-area-pointer-type-p type))
         (ceiling (alien-type-word-aligned-bits type) sb!vm:n-byte-bits)
         (error "Unsupported callback argument type: ~A" type))))