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

Load science-data for EOP

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