From: espen <espen>
Date: Sat, 30 Oct 2004 19:23:11 +0000 (+0000)
Subject: Not need any more
X-Git-Url: https://git.distorted.org.uk/~mdw/clg/commitdiff_plain/a778b5b46572327b5813b72c831cf30572863f5f

Not need any more
---

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)))