Getting started:

  cl-user(12): :cf exifinfo
  ;;; Compiling file exifinfo.cl
  ;;; Writing fasl file exifinfo.fasl
  ;;; Fasl write complete
  cl-user(14): :ld exifinfo
  ; Fast loading c:\src\exif-utils\exifinfo.fasl
  cl-user(15): (use-package :util.exif)
  t
  cl-user(16): 

Now, you're ready to do some real work:

  cl-user(16): (setq exif
		 (parse-exif-data
		  "c:/pictures/_TMP/20041128-1515-1200-S1IS.JPG"))
  #S(exif-info :file "c:/pictures/_TMP/20041128-1515-1200-S1IS.JPG"
	       :make "Canon"
	       :model "Canon PowerShot S1 IS"
	       :date "2004:11:28 15:15:12"
	       :comment ...)
  cl-user(17): (exif-info-make exif)
  "Canon"
  cl-user(18): (exif-info-model exif)
  "Canon PowerShot S1 IS"
  cl-user(19): (exif-info-date exif)
  "2004:11:28 15:15:12"
  cl-user(20):