From 3e7340efb9a18d65078db5122083e711d86d8fc8 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 23 Oct 2002 18:03:21 +0000 Subject: [PATCH 1/1] r3151: add to search path --- examples/c-test-fns.lisp | 5 +++-- tests/c-test-fns.lisp | 5 +++-- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/examples/c-test-fns.lisp b/examples/c-test-fns.lisp index 435fdd6..84c2161 100644 --- a/examples/c-test-fns.lisp +++ b/examples/c-test-fns.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: c-test-fns.lisp,v 1.2 2002/10/16 11:56:43 kevin Exp $ +;;;; $Id: c-test-fns.lisp,v 1.3 2002/10/23 18:03:21 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -19,7 +19,8 @@ (in-package :cl-user) (unless (uffi:load-foreign-library - (uffi:find-foreign-library "c-test-fns" *load-truename*) + (uffi:find-foreign-library "c-test-fns" + (list *load-truename* "/home/kevin/debian/src/uffi/examples/")) :supporting-libraries '("c") :force-load t) (warn "Unable to load c-test-fns library")) diff --git a/tests/c-test-fns.lisp b/tests/c-test-fns.lisp index 435fdd6..84c2161 100644 --- a/tests/c-test-fns.lisp +++ b/tests/c-test-fns.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: c-test-fns.lisp,v 1.2 2002/10/16 11:56:43 kevin Exp $ +;;;; $Id: c-test-fns.lisp,v 1.3 2002/10/23 18:03:21 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -19,7 +19,8 @@ (in-package :cl-user) (unless (uffi:load-foreign-library - (uffi:find-foreign-library "c-test-fns" *load-truename*) + (uffi:find-foreign-library "c-test-fns" + (list *load-truename* "/home/kevin/debian/src/uffi/examples/")) :supporting-libraries '("c") :force-load t) (warn "Unable to load c-test-fns library")) -- 2.34.1