Thomas A. Russ <tar@sevak.isi.edu> wrote:
+---------------
| For an interesting comment from lisp code, there is the comments for
| the original RATIONALIZE in the CMUCL sources:
|   ;; Thanks to Kim Fateman, who stole this function rationalize-float
|   ;; from macsyma's rational...
+---------------

Though note that, at least as of CMUCL-19c, it's now:

    ;;; RATIONALIZE  --  Public
    ;;;
    ;;; The algorithm here is the method described in CLISP.
    ;;; Bruno Haible has graciously given permission to use this
    ;;; algorithm. He says, "You can use it, if you present the
    ;;; following explanation of the algorithm."
    ;;; ...[trimmed]...

Not sure why the change or what the differences are...


-Rob

-----
Rob Warnock			<rpw3@rpw3.org>
627 26th Avenue			<URL:http://rpw3.org/>
San Mateo, CA 94403		(650)572-2607