Permalink
Browse files

Work around 'already exported' messages, regenerated lisp file.

  • Loading branch information...
1 parent 235c990 commit e52ebb4c536cc3bc8291641f5d8b856fea31131f @tpapp committed Feb 6, 2013
Showing with 24 additions and 11 deletions.
  1. +9 −5 cl-rmath.i
  2. +15 −6 cl-rmath.lisp
View
@@ -5,12 +5,16 @@
give errors otherwise because of symbols exported previously. */
%insert("lisphead") %{
-(defpackage #:cl-rmath
- (:use #:cl)
- (:nicknames #:rmath)
- (:shadow #:fround))
+(in-package #:cl-user)
-(in-package :cl-rmath)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (unless (find-package '#:cl-rmath)
+ (defpackage #:cl-rmath
+ (:use #:cl)
+ (:nicknames #:rmath)
+ (:shadow #:fround))))
+
+(in-package #:cl-rmath)
(cffi:define-foreign-library librmath
(:unix "libRmath.so")
View
@@ -1,15 +1,19 @@
;;; This file was automatically generated by SWIG (http://www.swig.org).
-;;; Version 2.0.4
+;;; Version 2.0.7
;;;
;;; Do not make changes to this file unless you know what you are doing--modify
;;; the SWIG interface file instead.
-(defpackage #:cl-rmath
- (:use #:cl)
- (:nicknames #:rmath)
- (:shadow #:fround))
+(in-package #:cl-user)
-(in-package :cl-rmath)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (unless (find-package '#:cl-rmath)
+ (defpackage #:cl-rmath
+ (:use #:cl)
+ (:nicknames #:rmath)
+ (:shadow #:fround))))
+
+(in-package #:cl-rmath)
(cffi:define-foreign-library librmath
(:unix "libRmath.so")
@@ -328,6 +332,11 @@
(cl:export 'log1pmx)
+(cffi:defcfun ("log1pexp" log1pexp) :double
+ (arg0 :double))
+
+(cl:export 'log1pexp)
+
(cffi:defcfun ("lgamma1p" lgamma1p) :double
(arg0 :double))

0 comments on commit e52ebb4

Please sign in to comment.