0.9.2.33: restore buildability on non-linkage-table ports

  ...thanks to Thiemo Seufer.

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)

diff --git a/src/code/foreign.lisp b/src/code/foreign.lisp
index 7f4ca6e..247d09a 100644 (file)
--- a/src/code/foreign.lisp
+++ b/src/code/foreign.lisp
@@ -53,6 +53,7 @@ address of a static symbol, or the linkage-table address of a dynamic one.
 Dynamic symbols are entered into the linkage-table if they aren't there already.
 
 On non-linkage-table ports signals an error if the symbol isn't found."
+  (declare (ignorable datap))
   (let ((static (find-foreign-symbol-in-table name  *static-foreign-symbols*)))
     (if static
        (values static nil)

diff --git a/version.lisp-expr b/version.lisp-expr
index eea7f23..2aecb34 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.2.32"
+"0.9.2.33"