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

Add macro with-si-units

parent 250eedb5
;; Define physical dimensions and units of measure and systems of units.
;; Liam Healy Wed Feb 27 2002 - 13:18
;; Time-stamp: <2013-03-30 10:36:42EDT units.lisp>
;; Time-stamp: <2013-04-06 09:22:41EDT units.lisp>
;; Copyright 2011, 2013 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -31,6 +31,7 @@
make-set-system-of-units-symbol
with-system-of-units
with-system-of-units*
with-si-units
dimensionless))
;;; Handle physical dimensions and units of measure, for any
......@@ -238,6 +239,9 @@
`(with-nf-options (:system-of-units (make-sysunits ,(cons 'list units-or-system)))
,@body))
(defmacro with-si-units (&body body)
`(with-system-of-units* (*siu*) ,@body))
;;;;****************************************************************************
;;;; Parsing and generating dimensions and units
;;;;****************************************************************************
......
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