2 (defgeneric over-format
(a strm
))
4 (defmethod over-format ((n float
) s
)
5 (let ((sig-figs 9);*sig-figs*)
13 :while
(< (setq n
(* n
10)) 1)))
15 (t (loop :do
(incf mag
)
16 :until
(< (setq n
(/ n
10)) 10))))
17 (princ (/ (round (* (if neg
(- n
) n
)
19 (expt 10d0
(- sig-figs mag
)))
22 (defmethod over-format ((a number
) s
)
24 (defmethod over-format ((a cons
) s
)
26 (defmethod over-format ((a tuple
) s
)
27 (output-tuple (tuple-elems a
) s
))
28 (defmethod over-format ((a mtrix
) s
)
29 (output-matrix (mtrix-elems a
) s
))
31 (defmethod over-format ((a string
) strm
)