--- a/src/lsp/top.lsp +++ b/src/lsp/top.lsp @@ -1428,6 +1428,7 @@ (*print-readably* nil) (*print-pretty* nil) (*print-circle* t) + (*print-length* 2) (*readtable* (or *break-readtable* *readtable*)) (*break-message* (format nil "~&Condition of type: ~A~%~A~%" (type-of condition) condition))