From 1381841f57998f2acc649411a87c440ae49054c4 Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Tue, 21 Jan 2003 20:55:49 +0000
Subject: [PATCH] Fix system::alternate-global-address to actually pass the
 right argument to dlsym (FreeBSD port). This may be source of some segfault
 reports while trying to use foreign functions.

---
 code/foreign.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/foreign.lisp b/code/foreign.lisp
index 23d00ef6c..71eae5b0b 100644
--- a/code/foreign.lisp
+++ b/code/foreign.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.42 2002/08/28 07:16:36 moore Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.43 2003/01/21 20:55:49 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -693,7 +693,7 @@ to skip undefined symbols which don't have an address."
   (let ((result 0))
        (do ((table *global-table* (cdr table)))
 	   ((or (null (car table)) (not (zerop result))))
-	   (setq result (sap-int (dlsym (car table) symbol))))
+	   (setq result (sap-int (dlsym (caar table) symbol))))
        (values result)))
 
 (defun load-foreign (files &key
-- 
GitLab