From 36432b9b1c9e01048867ae459519c8808d647c22 Mon Sep 17 00:00:00 2001
From: "Liam M. Healy" <lhealy@common-lisp.net>
Date: Mon, 17 Oct 2011 23:11:33 -0400
Subject: [PATCH] Library path for Darwin + CCL per Yuan MEI

---
 init/init.lisp | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/init/init.lisp b/init/init.lisp
index 41ef370a..4ba518cb 100644
--- a/init/init.lisp
+++ b/init/init.lisp
@@ -1,6 +1,6 @@
 ;; Load GSL
 ;; Liam Healy Sat Mar  4 2006 - 18:53
-;; Time-stamp: <2011-08-19 23:29:56EDT init.lisp>
+;; Time-stamp: <2011-10-17 23:09:40EDT init.lisp>
 ;;
 ;; Copyright 2006, 2007, 2008, 2009, 2010, 2011 Liam M. Healy
 ;; Distributed under the terms of the GNU General Public License
@@ -66,7 +66,9 @@
     (merge-pathnames pn (pathname (format nil "~a/" (gsl-config "--prefix"))))))
 
 (cffi:define-foreign-library libgslcblas
-  (:darwin #.(gsl-config-pathname "lib/libgslcblas.dylib"))
+  (:darwin #+ccl #.(ccl:native-translated-namestring
+		    (gsl-config-pathname "lib/libgslcblas.dylib"))
+           #-ccl #.(gsl-config-pathname "lib/libgslcblas.dylib"))
   (:cygwin "cyggslcblas-0.dll")
   (:unix (:or "libgslcblas.so.0" "libgslcblas.so"))
   (t (:default "libgslcblas")))
@@ -80,7 +82,9 @@
 (cffi:load-foreign-library "/lib/lapack/cygblas.dll")
 
 (cffi:define-foreign-library libgsl
-  (:darwin #. (gsl-config-pathname "lib/libgsl.dylib"))
+  (:darwin #+ccl #.(ccl:native-translated-namestring
+                     (gsl-config-pathname "lib/libgsl.dylib"))
+           #-ccl #.(gsl-config-pathname "lib/libgsl.dylib"))
   (:cygwin "cyggsl-0.dll")
   (:unix (:or "libgsl.so.0" "libgsl.so"))
   (t (:default "libgsl")))
-- 
GitLab