anchor.diff:                              nil nil sample x y)) ))))
   
   (defmethod pixels-translator (input-pixel-format output-pixel-format)
  -  (or ;; (gethash (list input-pixel-format output-pixel-format) *pixels-translator-cache*)
  +  (or (gethash (list input-pixel-format output-pixel-format) *pixels-translator-cache*)
         (setf (gethash (list input-pixel-format output-pixel-format) *pixels-translator-cache*)
               (compile
                nil
  
positive.code: ;;;   Created: 2001-07-14
  ;;;    Author: Gilbert Baumann <unk6@rz.uni-karlsruhe.de>
  ;;;   License: LGPL (See file COPYING for details).
  ;;;       $Id: pixel-format.lisp,v 1.1 2002/02/10 02:01:42 gilbert Exp $
  ;;; --------------------------------------------------------------------------------------
  ;;;  (c) copyright 2001 by Gilbert Baumann
  
  
negative.code: 
  ;;;; Changes
  
  ;; $Log:$
  
  ;;;;
  
  