;FIXME use vector for -dims & -chars. needs exploder - (apply valus ...) won't work

(define-type real-pad-dims (list fixnum fixnum fixnum fixnum))
(define-type pad-dims (list fixnum fixnum fixnum fixnum))

(define-type pad-chars (list (or false char) (or false char) (or false char) (or false char)))

(define-inline (%bkgd-pad-chars) (make-list 4 (current-plotter-bkgd-char)))