anchor.diff:                (clim:draw-polygon* stream '(20 20 50 80 40 20) :filled nil)
                 (clim:draw-polygon* stream '(30 90 40 110 20 110)))))
           (new-page stream)
  -
           (draw-rosette stream 300 300 200 18
                         :ink +steel-blue+ :line-thickness 2)
  -
           (new-page stream)
  -
           (with-text-style (stream '(:serif nil :huge))
             (draw-text* stream "Text alignment test" 170 20
                         :text-family :sans-serif
  
positive.code:                                 :text-style (make-text-style
                                               :sans-serif :bold :huge))))))
          (new-page stream)
  
          (with-translation (stream 540 75)
            (with-scaling (stream 3)
              (with-rotation (stream (/ pi 2))
  
negative.code:                       :align-y :baseline)
            (draw-line* stream 50 200 535 200
                        :ink +red+))
          (new-page stream)
          (formatting-table (stream)
            (flet ((draw (angle line-joint-shape)
                     (let ((record
  