Fix issue #336

Clozure · Jul 25, 2020 · 8778079 · 8778079
1 parent 67c2378
commit 8778079
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/level-0/l0-numbers.lisp b/level-0/l0-numbers.lisp
@@ -85,11 +85,12 @@
 
 (defun %maybe-make-ratio (numerator denominator res)
   (if res
-      (progn
-        (require-type res 'ratio)
-        (setf (%numerator res) numerator
-              (%denominator res) denominator)
-        res)
+      (number-case res
+        (ratio           
+         (setf (%numerator res) numerator
+               (%denominator res) denominator))
+        (t
+         (%make-ratio numerator denominator)))
       (%make-ratio numerator denominator)))
 
 ; this is no longer used