Commit 004db63d authored by Liam Healy's avatar Liam Healy

Load science-data for EOP

parent 24dff6bc
;; UT1 timescale
;; Liam Healy 2015-01-03 11:13:34EST ut1.lisp
;; Time-stamp: <2015-01-03 12:42:37EST ut1.lisp>
;; Time-stamp: <2015-04-23 17:06:59EDT ut1.lisp>
;; Copyright 2011, 2013, 2014, 2015 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -44,10 +44,10 @@
(unless *eop-data-fetch*
#+quicklisp
(progn
(cerror "Load drakma" "To fetch earth orientation data, drakma system needs to be loaded.")
(ql:quickload "drakma"))
(cerror "Load science-data" "To fetch earth orientation data, science-data system needs to be loaded.")
(ql:quickload "science-data"))
#-quicklisp
(error "To fetch earth orientation data, drakma system needs to be loaded."))
(error "To fetch earth orientation data, science-data system needs to be loaded."))
(let ((eop-data (funcall *eop-data-fetch*)))
(unless (and (> (length eop-data) 10000)
(equal (subseq eop-data 0 2) "73"))
......
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