anchor.diff:                                            (kind (eql :line-style)))
     (let* ((line-style (medium-line-style medium))
            (scale (line-style-scale line-style)))
  -    (format stream "~D setlinewidth ~A setlinejoin ~A setlinecap~%"
  -            (format-postscript-number
  -             (* scale (line-style-thickness line-style)))
  +    (write-number stream (* scale (line-style-thickness line-style)))
  +    (format stream "setlinewidth ~A setlinejoin ~A setlinecap~%"
               (getf +postscript-line-joints+
                     (line-style-joint-shape line-style))
               (getf +postscript-line-caps+
                     (line-style-cap-shape line-style)))
       (let ((dashes (line-style-dashes line-style)))
         (format stream "[")
  -      (mapc (lambda (l) (format stream "~D " (format-postscript-number
  -                                              (* scale l))))
  +      (mapc (lambda (l) (write-number stream (* scale l)))
               (if (eq dashes 't)
                   +postscript-default-line-dashes+
                   dashes))
  
positive.code:            (start-angle (or (ellipse-start-angle circle) 0))
             (end-angle (or (ellipse-end-angle circle) (* 2 pi))))
        (write-string (if filled "true " "false ") stream)
        (format stream "~A ~A "
                (format-postscript-angle (if (< end-angle start-angle)
                                             (+ end-angle (* 2 pi))
                                             end-angle))
                (format-postscript-angle start-angle))
        (write-transformation* stream ndx2 ndx1 ndy2 ndy1 cx cy)
        (format stream "pe~%"))))
  
  
negative.code: (in-package :CLIM-POSTSCRIPT)
  
  ;;; Postscript output utilities
  (defun write-number (stream number)
    (format stream "~,3F " (coerce number 'single-float)))
  
  (defun write-angle (stream angle)
    (write-number stream (* angle (/ 180 pi))))
  
  (defun write-coordinates (stream x y)
    (with-transformed-position (*transformation* x y)
      (write-number stream x)
      (write-number stream y)))
  
  (defun write-transformation* (stream mxx mxy myx myy tx ty)
    (write-char #\[ stream)
    (dolist (c (list mxx myx mxy myy tx ty))
       (write-number stream c))
    (write-string "] " stream))
  
  ;;; Low level functions
  (defstruct postscript-procedure
  