Commit 14dc16d8 authored by Liam Healy's avatar Liam Healy

Make the zero pq object if it's a grid in make-pq-object

Make the zero pq object if it's a grid in make-pq-object. This fixes errors from the last commit.
parent 8426a05a
;; Physical dimension quantity with a magnitude that is a scalar
;; Liam Healy 2011-01-01 12:05:37EST grid.lisp
;; Time-stamp: <2015-04-24 17:01:41EDT scalar.lisp>
;; Time-stamp: <2015-04-25 10:18:08EDT scalar.lisp>
;; Copyright 2011, 2013 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -70,7 +70,7 @@
t))) ; only check vectors for non-scalar units
(dimel)
"~a is not a dimel" dimel)
(if (or (and *zero-is-dimensionless* (zerop mag))
(if (or (and *zero-is-dimensionless* (zerop mag) (not (grid:gridp mag)))
(equal dimel (dimension 'dimensionless)))
mag
(make-instance
......
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