From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sat, 23 Apr 2005 15:19:08 +0000 (+0000)
Subject: r10463: update cameras
X-Git-Tag: v0.13~29
X-Git-Url: http://git.kpe.io/?p=cl-photo.git;a=commitdiff_plain;h=69714017bc3f5e6085872e24790c19fd65d6862b

r10463: update cameras
---

diff --git a/cameras.lisp b/cameras.lisp
index 814e387..d914d0b 100644
--- a/cameras.lisp
+++ b/cameras.lisp
@@ -184,8 +184,10 @@ so the proper aspect ratio is used."
   "Return pixel size in micrometers."
   (let ((pixel-dim (pixel-dimensions format-spec))
 	(imager-dim (imager-dimensions format-spec)))
-    (values (* 1000 (/ (car imager-dim) (car pixel-dim)))
-	    (* 1000 (/ (cdr imager-dim) (cdr pixel-dim))))))
+    (when (and pixel-dim imager-dim)
+      (values (* 1000 (/ (car imager-dim) (car pixel-dim)))
+	      (* 1000 (/ (cdr imager-dim) (cdr pixel-dim)))))))
+
 (defun output-dimensions (format-spec)
   "Returns the output dimensions in mm of a FORMAT."
   (getf (find-format format-spec) :output))