Add a -descriptionForLisp method to all number classes.

1 files changed, 11 insertions, 0 deletions

diff --git a/MLKRatio.m b/MLKRatio.m
index 4c434c9..d11ff49 100644
--- a/MLKRatio.m
+++ b/MLKRatio.m
@@ -16,6 +16,8 @@
  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  */
 
+#import "MLKDynamicContext.h"
+#import "MLKPackage.h"
 #import "MLKRatio.h"
 #import "runtime-compatibility.h"
 #import "util.h"
@@ -104,6 +106,15 @@ DEFINE_MPQ_TWOARG_OPERATION (divideBy:, mpq_div)
   return str;
 }
 
+-(NSString *) descriptionForLisp
+{
+  MLKInteger *base = [[MLKDynamicContext currentContext]
+                       valueForBinding:[[MLKPackage
+                                          findPackage:@"COMMON-LISP"]
+                                         intern:@"*PRINT-BASE*"]];
+  return [self descriptionWithBase:[base intValue]];
+}
+
 -(void) dealloc
 {
   mpq_clear (value);