X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fforeign-load.lisp;h=197a3a7f4606c90bb7ccfa80bf088ff6777f255f;hb=1af3faa2b79125b774c2182cab841ed7ee555bed;hp=a37fee8d26f52ee3c7458ae3b215141e6aae0574;hpb=dc33d6a6b84f8338e603759cec8e25da29055d50;p=sbcl.git

diff --git a/src/code/foreign-load.lisp b/src/code/foreign-load.lisp
index a37fee8..197a3a7 100644
--- 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)