anchor.diff:  (defpackage "IMAGE"
   ; (:use #:clim-lisp)
     (:use #:clim-clx #:common-lisp)
  -  (:export    
  +  (:export
      "WRITE-PNM" "READ-IMAGE-FILE"
      "IMAGE" "IMAGE-COLOR" "IMAGE-GADGET" "IMAGE-HEIGHT"
      "IMAGE-PIXEL" "IMAGE-PIXELS" "IMAGE-WIDTH"
  
positive.code: 
  (defmethod image-height ((image image))
    (car (array-dimensions (image-pixels image))))
     
  (defmethod image-pixel ((image image) x y)
    (aref (image-pixels image) y x))
  
  
negative.code: (defun write-ppm-p3 (stream picture)
    (with-write-pnm-loop (3 255)
      (let ((rgb (aref picture r c)))
        (format stream "~A ~A ~A~%"
  	      (red-component rgb)
  	      (green-component rgb)
  	      (blue-component rgb)))))
  
  