0.9.2.40:

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

diff --git a/src/code/foreign-load.lisp b/src/code/foreign-load.lisp
index a37fee8..197a3a7 100644 (file)
--- a/src/code/foreign-load.lisp
+++ b/src/code/foreign-load.lisp
@@ -166,6 +166,7 @@ ports if the symbols isn't found a special guard address is returned instead,
 accesses to which will result in an UNDEFINED-ALIEN-ERROR. On other ports an
 error is immediately signalled if the symbol isn't found. The returned address
 is never in the linkage-table."
+    (declare (ignorable datap))
     (let ((addr (find-dynamic-foreign-symbol-address symbol)))
       (cond  #!-linkage-table
             ((not addr)