CL-USER> (format nil "~10,VF" 0 -0.01)
" -0.0"
CL-USER> (format nil "~10,VF" 1 -0.01)
" -0.01"
CL-USER> (format nil "~10,VF" 2 -0.01)
" -0.01"
CL-USER> (format nil "~10,VF" 3 -0.01)
" -0.010"
CL-USER> (format nil "~10,VF" 4 -0.01)
" -0.0100"
CL-USER> (format nil "~10,VF" 0 -0.01)
" -0.0"
CL-USER> (format nil "~10,VF" 1 -0.01)
" -0.01"
CL-USER> (format nil "~10,VF" 2 -0.01)
" -0.01"
CL-USER> (format nil "~10,VF" 3 -0.01)
" -0.010"
CL-USER> (format nil "~10,VF" 4 -0.01)
" -0.0100"