From 650385128d0e31777e51d2bc9c1f79f15e966cd8 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 17 Aug 2008 15:19:08 +0200
Subject: MLKCons: Do not crash when displaying a cons whose cdr is a fixnum.

---
 MLKCons.m | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'MLKCons.m')

diff --git a/MLKCons.m b/MLKCons.m
index bee917f..9e49d45 100644
--- a/MLKCons.m
+++ b/MLKCons.m
@@ -146,7 +146,7 @@
   if (!_cdr)
     return [NSString stringWithFormat:@"%@",
                      MLKPrintToString(_car)];
-  else if ([_cdr isKindOfClass:[MLKCons class]])
+  else if (MLKInstanceP (_cdr) && [_cdr isKindOfClass:[MLKCons class]])
     return [NSString stringWithFormat:@"%@ %@",
                      MLKPrintToString(_car),
                      [_cdr bareDescriptionForLisp]];
@@ -158,7 +158,7 @@
 
 -(NSString *)descriptionForLisp
 {
-  if ([_cdr isKindOfClass:[MLKCons class]])
+  if (MLKInstanceP (_cdr) && [_cdr isKindOfClass:[MLKCons class]])
     {
       if (_car == [[MLKPackage findPackage:@"COMMON-LISP"] intern:@"QUOTE"])
         return [NSString stringWithFormat:@"'%@", [_cdr bareDescriptionForLisp]];
-- 
cgit v1.2.3