From 72ec381271fe5f7839d356d26e0716625e3246e9 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 14 May 2002 15:54:37 +0000 Subject: [PATCH] r2036: Debian build --- interfaces/clsql-uffi/clsql-uffi-loader.cl | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/interfaces/clsql-uffi/clsql-uffi-loader.cl b/interfaces/clsql-uffi/clsql-uffi-loader.cl index a5ad4b7..0c81521 100644 --- a/interfaces/clsql-uffi/clsql-uffi-loader.cl +++ b/interfaces/clsql-uffi/clsql-uffi-loader.cl @@ -7,7 +7,7 @@ ;;;; Programmers: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: clsql-uffi-loader.cl,v 1.2 2002/05/13 21:50:52 kevin Exp $ +;;;; $Id: clsql-uffi-loader.cl,v 1.3 2002/05/14 15:54:37 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -34,11 +34,12 @@ set to the right path before compiling or loading the system.") "T if foreign library was able to be loaded successfully") (defun load-uffi-foreign-library () - (when (uffi:load-foreign-library *clsql-uffi-library-filename* - :module "clsql-uffi" - :supporting-libraries - *clsql-uffi-supporting-libraries*) - (setq *uffi-library-loaded* t))) + (if (uffi:load-foreign-library *clsql-uffi-library-filename* + :module "clsql-uffi" + :supporting-libraries + *clsql-uffi-supporting-libraries*) + (setq *uffi-library-loaded* t) + (warn "Unable to load helper library ~A" *clsql-uffi-library-filename*))) (load-uffi-foreign-library) -- 2.34.1