Make lists starting with the symbol QUOTE print nicely.

1 files changed, 6 insertions, 1 deletions

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