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

diff --git a/convert.lisp b/convert.lisp
old mode 100755
new mode 100644
index b73595b..bb50942
--- 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)