[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
- To: email@example.com
- Subject: formatting text
- From: BALLS@medcolpa.edu
- Date: Mon, 30 Jan 1995 16:49:16 -0400
- Sender: firstname.lastname@example.org
In specializing the generic function print-object, I use a function
indent shown below. The mention of the trap #_MoveTo by Bill St. Clair
in response to another question reminded me how inefficient indent
appears to be.
(defun indent (*indentation* stream)
(format stream "~&")
(let ((indentation ""))
(dotimes (count *indentation*)
(setf indentation (concatenate 'string indentation " ")))
(format stream indentation)))
(#_MoveTo *indentation* (point-v (view-position stream))))
doesn't indent at all (when followed by a format stream "...
Suggestions would be appreciated.
Sheldon S. Ball