@Override
public LispObject printObject() {
final LispThread thread = LispThread.currentThread();
final LispObject printLength = Symbol.PRINT_LENGTH.symbolValue(thread);
final int maxLength;
if (printLength.isFixnum()) maxLength = ((Fixnum) printLength).value;
else maxLength = Integer.MAX_VALUE;
final LispObject printLevel = Symbol.PRINT_LEVEL.symbolValue(thread);
final int maxLevel;
if (printLevel.isFixnum()) maxLevel = ((Fixnum) printLevel).value;
else maxLevel = Integer.MAX_VALUE;
StringBuilder sb = new StringBuilder();
if (car == Symbol.QUOTE) {
if (cdr.isCons()) {
// Not a dotted list.
if (cdr.cdr() == NIL) {
sb.append('\'');
sb.append(cdr.car().printObject());
return new SimpleString(sb.toString());
}
}
}
if (car == Symbol.FUNCTION) {
if (cdr.isCons()) {
// Not a dotted list.
if (cdr.cdr() == NIL) {
sb.append("#'");
sb.append(cdr.car().printObject().toString());
return new SimpleString(sb.toString());
}
}
}
LispObject currentPrintLevel = _CURRENT_PRINT_LEVEL_.symbolValue(thread);
int currentLevel = Fixnum.getValue(currentPrintLevel);
if (currentLevel < maxLevel) {
final SpecialBindingsMark mark = thread.markSpecialBindings();
thread.bindSpecial(_CURRENT_PRINT_LEVEL_, currentPrintLevel.incr());
try {
int count = 0;
boolean truncated = false;
sb.append('(');
if (count < maxLength) {
LispObject p = this;
sb.append(p.car().printObject());
++count;
while ((p = p.cdr()).isCons()) {
sb.append(' ');
if (count < maxLength) {
sb.append(p.car().printObject());
++count;
} else {
truncated = true;
break;
}
}
if (!truncated && p != NIL) {
sb.append(" . ");
sb.append(p.printObject());
}
} else truncated = true;
if (truncated) sb.append("...");
sb.append(')');
} finally {
thread.resetSpecialBindings(mark);
}
} else sb.append('#');
return new SimpleString(sb.toString());
}
