diff options
Diffstat (limited to 'src/interp/sfsfun-l.lisp')
| -rw-r--r-- | src/interp/sfsfun-l.lisp | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/interp/sfsfun-l.lisp b/src/interp/sfsfun-l.lisp index 810cbe21..4014543b 100644 --- a/src/interp/sfsfun-l.lisp +++ b/src/interp/sfsfun-l.lisp @@ -1,6 +1,6 @@ ;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. ;; All rights reserved. -;; Copyright (C) 2007-2008, Gabriel Dos Reis. +;; Copyright (C) 2007-2010, Gabriel Dos Reis. ;; All rights reserved. ;; ;; Redistribution and use in source and binary forms, with or without @@ -40,9 +40,6 @@ ;; SMW Feb 91 ;; -;; #-:CCL -;; (defun |float| (x) (|float| x)) - ;; Conversion between spad and lisp complex representations (defun s-to-c (c) (complex (car c) (cdr c))) (defun c-to-s (c) (cons (realpart c) (imagpart c))) @@ -56,7 +53,6 @@ (defun rlngamma (x) (|lnrgamma| x) ) (defun clngamma (z) (c-to-s (|lncgamma| (s-to-c z)) )) -;; #-:CCL (defun rgamma (x) (|rgamma| x)) (defun cgamma (z) (c-to-s (|cgamma| (s-to-c z)) )) |