From a778b5b46572327b5813b72c831cf30572863f5f Mon Sep 17 00:00:00 2001 From: espen Date: Sat, 30 Oct 2004 19:23:11 +0000 Subject: [PATCH] Not need any more --- tools/sharedlib.lisp | 28 ---------------------------- 1 file changed, 28 deletions(-) delete mode 100644 tools/sharedlib.lisp diff --git a/tools/sharedlib.lisp b/tools/sharedlib.lisp deleted file mode 100644 index ea8cde2..0000000 --- a/tools/sharedlib.lisp +++ /dev/null @@ -1,28 +0,0 @@ -(asdf:oos 'asdf:load-op :uffi) - -(defpackage #:sharedlib - (:use #:common-lisp #:uffi) - (:export #:load-shared-library)) - -(in-package #:sharedlib) - - -(defparameter *library-paths* '("/usr/lib/")) - - - -(defun load-shared-library (name &key init prototype initargs) - (format t ";;; Loading shared library ~A~%" name) - (let ((pathname (find-foreign-library name *library-paths*))) - (if pathname - (unless (load-foreign-library pathname) - (error "Couldn't load shared library: ~A" pathname)) - (error "Shared library not found: ~A" name))) - (when init - (apply - #'alien:alien-funcall - (alien::%heap-alien - (alien::make-heap-alien-info - :type (alien::parse-alien-type (or prototype `(function c-call:void))) - :sap-form (system:foreign-symbol-address init))) - initargs))) -- 2.11.0