Commit d21fa5b5 authored by Liam M. Healy's avatar Liam M. Healy
Browse files

Add comment on header file name

parent efcc519c
;; Additional methods for lisp-unit ;; Additional methods for lisp-unit
;; Liam Healy 2009-04-15 23:23:30EDT augment.lisp ;; Liam Healy 2009-04-15 23:23:30EDT augment.lisp
;; Time-stamp: <2011-01-10 18:19:07EST augment.lisp> ;; Time-stamp: <2014-02-15 18:40:50EST augment.lisp>
;; ;;
;; Copyright 2009, 2011 Liam M. Healy ;; Copyright 2009, 2011, 2014 Liam M. Healy
;; Distributed under the terms of the GNU General Public License ;; Distributed under the terms of the GNU General Public License
;; ;;
;; This program is free software: you can redistribute it and/or modify ;; This program is free software: you can redistribute it and/or modify
...@@ -27,7 +27,7 @@ ...@@ -27,7 +27,7 @@
(lisp-unit:numerical-equal (grid:copy-to result1) (grid:copy-to result2) (lisp-unit:numerical-equal (grid:copy-to result1) (grid:copy-to result2)
:test test))) :test test)))
;;; See cdf/test.c ;;; See cdf/test.c, specfunc/test_sf.h
(defconstant +test-tol0+ (* 2 +dbl-epsilon+)) (defconstant +test-tol0+ (* 2 +dbl-epsilon+))
(defconstant +test-tol1+ (* 16 +dbl-epsilon+)) (defconstant +test-tol1+ (* 16 +dbl-epsilon+))
(defconstant +test-tol2+ (* 256 +dbl-epsilon+)) (defconstant +test-tol2+ (* 256 +dbl-epsilon+))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment