[Sbcl-commits] CVS: sbcl/contrib/sb-posix macros.lisp,1.8,1.9

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-posix
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30526/contrib/sb-posix

Modified Files:
	macros.lisp 
Log Message:
0.8.14.5: Join the foreign legion!
           * x86/FreeBSD, x86/Linux and Sparc/SunOS now have
              linkage-table support, allowing SAVE-LISP-AND-DIE to
              function properly in the presence of loaded shared
              objects.
           * As a related cleanup automate testing for dlopen
              support on the plaform, and conditionalize
              LOAD-SHARED-OBJECT support on the resulting
              :os-provides-dlopen feature.


Index: macros.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-posix/macros.lisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- macros.lisp	1 Feb 2004 16:06:08 -0000	1.8
+++ macros.lisp	9 Sep 2004 12:10:12 -0000	1.9
@@ -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)