Continued Fractions

(defun continued-fraction (real)
  (multiple-value-bind (integer-part fractional-part)
      (floor (rationalize real))
    (cons integer-part (if (zerop fractional-part)
               nil
               (continued-fraction (/ 1 fractional-part))))))
What does /prog/ think? Am I shooting myself in the foot by just throwing rationalize in there and hoping it works out?

>>28
4chan.org can be posted on by anybody, so anything written there MUST be right!

Face it, you don't know shit about Lisp (&aux, zerop), English (coefficient, WTF), or LIFE.