src/imagelib/jpeg.lisp

   1 ;;; jpeg.lisp -- render JPEG files in Closure
   2 ;;;
   3 ;;; Author: Eric Marsden <eric.marsden@free.fr>
   4 ;;
   5 ;;
   6 ;; This will soon be replaced by an implementation based on cl-jpeg.
   7
   8 (in-package :imagelib)
   9
  10
  11 (defun jpeg-stream->aimage (input)
  12   (any->aimage-by-filter "djpeg" input))
  13
  14
  15 ;; EOF