(with-open-file (s "/tmp/foo.ps" :direction :output :if-exists :supersede)
  (clim:with-output-to-postscript-stream (s s :device-type :a4)
    (clim:draw-rectangle* s 1 1 29 19)))

(with-open-file (s "/tmp/foo.eps" :direction :output :if-exists :supersede)
  (clim:with-output-to-postscript-stream (s s :device-type :eps)
    (clim:draw-rectangle* s 1 1 29 19)))
