(require 'qp)
When displaying error messages and warnings, it is paramount that the
output generated for circular lists and large data structures be
limited. This section supplies a procedure to do this. It could be
much improved.
Notice that the neccessity for truncating output eliminates Common-Lisp's Format from consideration; even when variables*print-level*and*print-level*are set, huge strings and bit-vectors are not limited.
qpwrites its arguments, separated by spaces, to(current-output-port).qpcompresses printing by substituting ‘...’ for substructure it does not have sufficient room to print.qpnis likeqpbut outputs a newline before returning.qpris likeqpnexcept that it returns its last argument.