X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Fmacros.lisp;h=5cfa2e9d855d74c455711c7edfc5909e06474d1e;hb=75b52379bdc2269961af6a1308eca63610f38ac3;hp=248db203491fb80794d0b8458d7ec9310d7cc4a8;hpb=e6c468c2b371f7deac2010cf03896a60974ea766;p=sbcl.git

diff --git a/contrib/sb-posix/macros.lisp b/contrib/sb-posix/macros.lisp
index 248db20..5cfa2e9 100644
--- a/contrib/sb-posix/macros.lisp
+++ b/contrib/sb-posix/macros.lisp
@@ -47,8 +47,7 @@
   (intern (substitute #\- #\_ (string-upcase s)) :sb-posix))
 
 (defmacro define-call-internally (lisp-name c-name return-type error-predicate &rest arguments)
-  (if (sb-fasl::foreign-symbol-address-as-integer-or-nil
-       (sb-vm:extern-alien-name c-name))
+  (if (sb-sys:foreign-symbol-address-as-integer-or-nil c-name)
       `(progn
 	(declaim (inline ,lisp-name))
 	(defun ,lisp-name ,(mapcar #'car arguments)