From 3836edaccf2d9027d01b9d7c7b7a29df512b8d7c Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 4 Aug 2007 18:50:34 +0200
Subject: Do not use a hardcoded path to libobjcl.

darcs-hash:6c225015baacffcbbc4642f2bfc29617e9bee737
---
 Lisp/libobjcl.lisp | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index bf246be..84d4aa6 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -1,8 +1,19 @@
 (in-package #:mulk.objective-cl)
 
 
+(pushnew
+  (merge-pathnames (make-pathname :directory '(:relative "Objective-C"
+                                                         "shared_obj")
+                                  :type :unspecific
+                                  :name :unspecific)
+                   (asdf:component-pathname (asdf:find-system
+                                             '#:objective-cl)))
+   cffi:*foreign-library-directories*)
+
 (define-foreign-library libobjcl
-  (unix "/home/mulk/Dokumente/Projekte/Objective-CL/Objective-C/shared_obj/libobjcl.so"))
+  (:unix (:or "libobjcl.so"
+              "libobjcl.so.0"))
+  (t (:default "libobjcl")))
 
 (use-foreign-library libobjcl)
 
-- 
cgit v1.2.3