File: foreign-loader.lisp

package info (click to toggle)
cl-rsm-random 1.4
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 84 kB
  • ctags: 36
  • sloc: ansic: 85; lisp: 82; makefile: 74; sh: 28
file content (28 lines) | stat: -rw-r--r-- 884 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; Name:          foreign-loader.lisp
;;;; Purpose:       Loads foreign libraries
;;;; Author:        Kevin M. Rosenberg
;;;; Date Started:  Feb 2002
;;;;
;;;; $Id: foreign-loader.lisp,v 1.5 2003/08/23 16:16:36 kevinrosenberg Exp $
;;;;
;;;; *************************************************************************

;;; For CMUCL, it's necessary to load foreign files separate from their
;;; usage

(in-package #:cl-user)

(unless (uffi:load-foreign-library 
	 (uffi:find-foreign-library "random" 
				    (list
				     (pathname-directory *load-truename*)
				     "/usr/lib/rsm-random/"
				     "../ff/"))
	 :supporting-libraries '("c")
	 :module "rsm-random")
  (warn "Unable to load rsm-random library"))