Update domain name to kpe.io

[cl-photo.git] / convert.lisp

diff --git a/convert.lisp b/convert.lisp
index b73595b56dff828f3ab74490a4d74f983a1118c3..bb5094264a051365e1573a41e413931cc9e49ded 100644 (file)
--- 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)