anchor.diff:  (defmethod medium-draw-point* ((medium postscript-medium) x y)
     (let ((stream (postscript-medium-file-stream medium))
           (*transformation* (sheet-native-transformation (medium-sheet medium)))
  -        (radius (format-postscript-number (/ (medium-line-thickness medium) 2))))
  +        (radius (/ (medium-line-thickness medium) 2)))
       (postscript-actualize-graphics-state stream medium :color)
       (format stream "newpath~%")
       (write-coordinates stream x y)
  -    (format stream "~A 0 360 arc~%" radius)
  +    (write-number stream radius)
  +    (format stream "0 360 arc~%")
       (format stream "fill~%")))
   
   (defmethod medium-draw-points* ((medium postscript-medium) coord-seq)
     (let ((stream (postscript-medium-file-stream medium))
           (*transformation* (sheet-native-transformation (medium-sheet medium)))
  -        (radius (format-postscript-number (/ (medium-line-thickness medium) 2))))
  +        (radius (/ (medium-line-thickness medium) 2)))
       (postscript-actualize-graphics-state stream medium :color)
       (map-repeated-sequence 'nil 2
                              (lambda (x y)
                                (format stream "newpath~%")
                                (write-coordinates stream x y)
  -                             (format stream "~A 0 360 arc~%" radius)
  +                             (write-number stream radius)
  +                             (format stream "0 360 arc~%")
                                (format stream "fill~%"))
                              coord-seq)))
   
  
positive.code:                                           (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)))
              (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))))
              (if (eq dashes 't)
                  +postscript-default-line-dashes+
                  dashes))
  
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
  