X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=convert.lisp;h=bb5094264a051365e1573a41e413931cc9e49ded;hb=b304f0ff9a505a3654c39f321a3a62de0281f869;hp=b73595b56dff828f3ab74490a4d74f983a1118c3;hpb=42befba0efb70b244c70edf76dbb1c5d012bb685;p=cl-photo.git

diff --git a/convert.lisp b/convert.lisp
index b73595b..bb50942 100644
--- a/convert.lisp
+++ b/convert.lisp
@@ -55,8 +55,8 @@
   (ecase units
     (:mm d)
     (:inches (inches->mm d))
-    (:feet (* 12 (inches->mm d)))
-    (:yards (* 36 (inches->mm d)))
+    (:feet (inches->mm (* d 12)))
+    (:yards (inches->mm (* d 36)))
     (:meters (* 1000 d))))
 
 (defun mm->length (d units)