anchor.diff:  
   (defun draw-polygon (points &key (stream *standard-output*) (alu %alu) (filled nil)
   		     &allow-other-keys)
  -  #-clim (graphics:draw-polygon points :stream stream :alu alu :filled filled)
  -  #+clim (clim:draw-polygon* stream points :ink alu :filled filled))
  +  (clim:draw-polygon* stream points :ink alu :filled filled))
   
   (defun draw-triangle (u1 v1 u2 v2 u3 v3 &key (stream *standard-output*) (alu %alu)
   		      (filled nil) &allow-other-keys)
  -  #-clim (graphics:draw-triangle u1 v1 u2 v2 u3 v3 :stream stream :filled filled :alu alu)
  -  #+clim (let ((points (list u1 v1 u2 v2 u3 v3)))
  -	   ;; No stack allocation, please, redisplay needs the list around
  -	   ;; permanently. 
  -	   (clim:draw-polygon* stream points :ink alu :filled filled)))
  +  (let ((points (list u1 v1 u2 v2 u3 v3)))
  +    ;; No stack allocation, please, redisplay needs the list around
  +    ;; permanently. 
  +    (clim:draw-polygon* stream points :ink alu :filled filled)))
   
   (defconstant 2pi (* 2 pi))
   
  
positive.code: 		    (attachment-y :baseline)
  		    character-style
  		    &allow-other-keys)
    #+clim (clim:draw-text* stream string u v :ink alu
  			  :align-x attachment-x :align-y attachment-y
  			  :text-style character-style)
    #-clim (graphics:draw-string string u v :stream stream
  			       :attachment-x attachment-x
  			       :attachment-y attachment-y
  			       :character-style character-style :alu alu))
  
  (defun draw-vertical-text (text stream u v &key (rotation (/ pi 2))
  			   style (alu %draw))
  
negative.code: 			     :thickness ,thickness
  			     :stream ,stream :filled nil :alu ,alu)))))))
  
  (proclaim '(inline
              draw-point
              draw-line
              draw-string
              draw-string-image
              draw-polygon
              draw-triangle
              draw-rectangle
              draw-circle
              draw-ellipse))
  
  (defun DRAW-POINT (x y &key (stream *standard-output*) (alu %alu) &allow-other-keys)
    (clim:draw-point* stream x y :ink alu))
  
  (defun DRAW-LINE (u1 v1 u2 v2 &key
  		  (stream *standard-output*)
  		  (thickness 1)
  		  (alu %alu)
  		  (line-end-shape :butt)
  		  (pattern nil)
  		  (line-dashes nil) ;; add parameter, res 3/2/93
  		  &allow-other-keys)
    (declare (ignore pattern))
    (clim:draw-line* stream u1 v1 u2 v2 :ink alu
  			  :line-thickness thickness
  			  :line-cap-shape line-end-shape
  			  :line-dashes line-dashes))
  
  (defun draw-string (string u v &key
  		    (stream *standard-output*)
  