X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Fmacros.lisp;h=7d388aca7f33b127e355ce6de5addca7151c72f6;hb=5e2b057871cf47c795c75106899f5fb05dc3397e;hp=cd722e3339a95b2e66dabd7c50b5627f6d1ae462;hpb=ccc4a55f3f70219a45b0038d8442615e5abff494;p=sbcl.git

diff --git a/contrib/sb-posix/macros.lisp b/contrib/sb-posix/macros.lisp
index cd722e3..7d388ac 100644
--- a/contrib/sb-posix/macros.lisp
+++ b/contrib/sb-posix/macros.lisp
@@ -48,8 +48,7 @@
 
 (defmacro define-call-internally (lisp-name c-name return-type error-predicate
 				  &rest arguments)
-  (if (sb-sys: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)