Commit 9a02ccbd authored by Liam Healy's avatar Liam Healy

Add docstring, modify debug conditional

parent daf855da
;; Objects that represent physical measurements.
;; Liam Healy Wed Mar 6 2002 - 09:04
;; Time-stamp: <2016-01-04 23:06:53EST physical-quantities.lisp>
;; Time-stamp: <2017-10-15 23:09:10EDT physical-quantities.lisp>
;; Copyright 2011, 2012, 2013, 2014, 2015 Liam M. Healy
;; Copyright 2011, 2012, 2013, 2014, 2015, 2016, 2017 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
......@@ -131,6 +131,7 @@
(t (err-return)))))
(defun equal-dimension-pqgrid
"If each of the corresponding elements of the grid have equal dimensions, return the last dimel, otherwise NIL."
(grid0 grid1
&optional
(errorp t)
......
;; Physical dimension quantity with a magnitude that is a scalar
;; Liam Healy 2011-01-01 12:05:37EST grid.lisp
;; Time-stamp: <2015-12-17 14:59:02EST scalar.lisp>
;; Time-stamp: <2017-10-15 22:11:39EDT scalar.lisp>
;; Copyright 2011, 2013, 2015 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -57,7 +57,7 @@
#+debug
(when (physical-quantity-p mag)
(error "Magnitude ~a can't be a PDQ." mag))
#+debug
#+debug2
(assert (if scalar-dimension
(dimelp dimel)
(when (arrayp dimel)
......
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