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

Correct package for nf-grid

parent 2716a4a1
;; Format numerical output
;; Liam Healy Wed Dec 11 2002 - 16:37
;; Time-stamp: <2014-01-16 22:06:11EST format-output.lisp>
;; Time-stamp: <2014-02-07 10:25:03EST format-output.lisp>
;; Copyright 2011, 2013, 2014 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -71,7 +71,7 @@
(:documentation "Format output for numerical objects. Default stream is *standard-output*.")
(:method ((object t) &optional (stream *standard-output*))
(if-defined (grid::gridp object)
(grid::nf-grid object)
(nf-grid object)
(princ object stream))))
(defun nf-string (object)
......
;; Tests of physical quantities
;; Liam Healy 2011-01-09 17:38:41EST tests.lisp
;; Time-stamp: <2013-11-23 14:34:27EST physical-quantities-grid.lisp>
;; Time-stamp: <2014-02-07 11:21:19EST physical-quantities-grid.lisp>
;; Copyright 2011, 2013 Liam M. Healy
;; Copyright 2011, 2013, 2014 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
......@@ -99,6 +99,7 @@
(equal (grid:dimensions grid) '(2))
(check-pq (grid:aref grid 0) 1.0d0 'meter)
(check-pq (grid:aref grid 1) 5.0d0 'second))))
;; [[id:6e7e8d6f-cc79-44bb-a264-06e9ec160d49][This test prints out when quickloaded]]
(lisp-unit:assert-true
;; A physical-quantity with a foreign-array as magnitude
(check-pq #m(#_1.0d0_m #_5.0d0_s) #m(1.0d0 5.0d0) #(meter second)))
......
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