diff --git a/mathematical/mathematical.lisp b/mathematical/mathematical.lisp index b0a229faa9d64fe41486eb06372e40400b528699..74428e0776fa7b855746dce05e2fd016a001e502 100644 --- a/mathematical/mathematical.lisp +++ b/mathematical/mathematical.lisp @@ -1,8 +1,8 @@ ;; Mathematical functions ;; Liam Healy, Wed Mar 8 2006 - 22:09 -;; Time-stamp: <2010-05-22 16:48:47EDT mathematical.lisp> +;; Time-stamp: <2010-07-19 12:33:44EDT mathematical.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -53,14 +53,19 @@ (map-name '+negative-infinity+ "gsl_neginf") (map-name '+nan+ "gsl_nan") +;; CCL gives a bizarre error when trying to compile these, even though +;; loading them works fine. +#-ccl (defconstant +nan+ (ignore-errors (cffi:foreign-funcall "gsl_nan" :double))) +#-ccl (defconstant +positive-infinity+ (ignore-errors (cffi:foreign-funcall "gsl_posinf" :double))) +#-ccl (defconstant +negative-infinity+ (ignore-errors (cffi:foreign-funcall "gsl_neginf" :double))) @@ -105,7 +110,7 @@ (defmfun hypotenuse* (x y) ;; This is redundant; there is "gsl_sf_hypot_e" defined as - ;; #'hyptoenuse. + ;; #'hypotenuse. "gsl_hypot" ((x :double) (y :double)) :c-return :double :documentation ;FDL