anchor.diff:                                         :huge 24))
   
   (defun text-style->postscript-font (text-style)
  -  (with-slots (family face size) text-style
  +  (multiple-value-bind (family face size) (text-style-components text-style)
       (let* ((family-fonts (or (getf +postscript-fonts+ family)
                                (getf +postscript-fonts+ :fix)))
              (font-name (or (getf family-fonts face)
  
positive.code:                     +postscript-default-line-dashes+
                      dashes))))))
  
  (defmethod medium-color-rgb (medium (ink (eql +foreground-ink+)))
    (medium-color-rgb medium (medium-foreground medium)))
  
  
negative.code:         ;; every drawing function depends on clipping region
          do (postscript-set-graphics-state stream medium state)))
  
  ;;; Line style
  (defconstant +postscript-line-joints+ '(:miter 0
                                          :round 1
                                          :bevel 2
  