RATIOP
======

Syntax: (rationalp <Objekt>)    ; Common Lisp Befehl
        (ratiop <Objekt>)       ; Babylon Lisp Befehl

Diese Funktion ist für die Erkennung von rationalen
Zahlen. Der Rückgabewert ist T, wenn das <Objekt>
eine rationale Zahl ist, sonst NIL.

Beispiele:     >(ratiop #C(1 2))
               NIL

               >(ratiop 3/2)
               T