0.9.2.13:

[sbcl.git] / src / code / foreign.lisp

diff --git a/src/code/foreign.lisp b/src/code/foreign.lisp
index c7268ac..39e928c 100644 (file)
--- a/src/code/foreign.lisp
+++ b/src/code/foreign.lisp
@@ -46,8 +46,11 @@
                 t))))
 
 (defun foreign-symbol-address-as-integer (name &optional datap)
-  (or (foreign-symbol-address-as-integer-or-nil name datap)
-      (error "Unknown foreign symbol: ~S" name)))
+  (multiple-value-bind (addr sharedp)
+      (foreign-symbol-address-as-integer-or-nil name datap)
+    (if addr
+        (values addr sharedp)
+        (error "Unknown foreign symbol: ~S" name))))
 
 (defun foreign-symbol-address (symbol &optional datap)
   (declare (ignorable datap))