From 277bbc5d1a53e335668f33bf6e9656e16f8acc24 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 3 Jul 2008 20:41:04 +0200
Subject: Make lists starting with the symbol QUOTE print nicely.

---
 MLKCons.m | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'MLKCons.m')

diff --git a/MLKCons.m b/MLKCons.m
index f56cfd7..5bc761a 100644
--- a/MLKCons.m
+++ b/MLKCons.m
@@ -17,6 +17,7 @@
  */
 
 #import "MLKCons.h"
+#import "MLKPackage.h"
 #import "runtime-compatibility.h"
 
 #import <Foundation/NSArray.h>
@@ -112,7 +113,11 @@
 
 -(NSString *)descriptionForLisp
 {
-  return [NSString stringWithFormat:@"(%@)", [self bareDescriptionForLisp]];
+  if ([_cdr isKindOfClass:[MLKCons class]]
+      && _car == [[MLKPackage findPackage:@"COMMON-LISP"] intern:@"QUOTE"])
+    return [NSString stringWithFormat:@"'%@", [_cdr bareDescriptionForLisp]];
+  else
+    return [NSString stringWithFormat:@"(%@)", [self bareDescriptionForLisp]];
 }
 
 -(void) dealloc
-- 
cgit v1.2.3