If pasting or recalling this long line:
(defun quantize (num n &key (qfn #'round) (scale 1)) (multiple-value-bind (q r) (funcall qfn (rationalize num) (rationalize n)) (values (* scale q (rationalize n)) (* scale r))))
The 80-char wide terminal window shows the following:
$ icl --connect localhost:4005
icl 1.8.3-gf755c1a ("SBCL" "2.2.9.debian")
Type ,help for commands, ,quit to exit.
COMMON-LISP-USER> (defun quantize (num n &key (qfn #'round) (scale 1)) (multiple
-value-bind (q r) (funcall qfn (rationalize num) (rationalize n)) (values (* sca
le q (rationalize n)) (* scale r)))) ❚
The cursor appears on the far right on the last line, and line edits are problematic, e.g. C-a puts the cursor in the middle of the last line on the 'n'.