anchor.diff:  		    (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))
  +  (clim:draw-text* stream string u v :ink alu
  +                   :align-x attachment-x :align-y attachment-y
  +                   :text-style character-style))
   
   (defun draw-vertical-text (text stream u v &key (rotation (/ pi 2))
   			   style (alu %draw))
  
positive.code:       (alu %draw)
        (margin 1)
        (thickness 1)
        (vsp #-clim 4 #+clim 2)
        )
       &body body)
    ;; This one is better done in terms of other DWIM operations.
    (let ((continuation (gensym)) (x (gensym)) (y (gensym))
  
negative.code: 			      (start-angle 0)
  			      (end-angle 2pi)
  			      thickness)
    (clim:draw-ellipse* stream x-center y-center x-radius 0 0 y-radius
  		      :start-angle start-angle
  		      :end-angle end-angle
  