X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=convert.lisp;fp=convert.lisp;h=bb5094264a051365e1573a41e413931cc9e49ded;hb=4860883d5bf05e9e7c83d4f16a001e4edd1d1cb2;hp=b73595b56dff828f3ab74490a4d74f983a1118c3;hpb=69714017bc3f5e6085872e24790c19fd65d6862b;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)