;(QUOTE (((FIT X) - Check if X will fit on the current line) (ARGUMENT: X - any data object) (DESCRIPTION: Returns T if X will fit (when printed with PRIN1) on the) (remainder of the current line. Returns () if it won%'t. This is used) (by PPRIN2.)))
(DEFINE FIT (X) (< (NCHARS X) (- (LINELENGTH) (POSITION))))
(QUOTE ())
;(QUOTE (((PP X) - Pretty Print X) (ARGUMENT: X - any LISP data object) (VALUE: ()) (DESCRIPTION: Pretty prints X, includes a final (TERPRI) .)))
(DEFINE PP (X) (PROGN (PPRIN2 X) (TERPRI)))
(QUOTE ())
;(QUOTE (((PPRIN2 X) - pretty print X) (ARGUMENT: X - any LISP data object) (VALUE: ()) (DESCRIPTION: If X is not a list, PPRIN2 is just like PRIN2.) (If X is a list, PPRIN2 prints it with carriage returns and) (indentations inserted to make it more readable.) (% It also replaces lists of the form: (QUOTE X) with) (% %'X forms.) (NOTE: This version has been revised to make use of a simple function) (PPRIN3 which prints list elements separated by the execution of a) (delimiter function.)))
;(QUOTE (((PPRIN3 L D) - print list elements) (DESCRIPTION: L is a non nil list. D is a function of no arguments) (which provides a delimiter between elements of L.)))
