[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
EXCL::FAST-WRITE-STRING
- To: express-windows@atc
- Subject: EXCL::FAST-WRITE-STRING
- From: Stephen L. Nicoud <snicoud@atc>
- Date: Mon, 2 Jul 90 17:01 PDT
Here's something I found which is helpful in EW on Allegro CL
;; From io-functions.lisp
#+excl
(eval-when (lisp:load lisp:eval)
(defun fast-write-string (string &OPTIONAL output-stream start end)
(setup-output-stream output-stream)
(if (window-p output-stream)
(presentation-print-string string output-stream start end)
(excl-fast-write-string string output-stream start (or end (length string)))))
(setf (symbol-function 'excl-fast-write-string) (symbol-function 'excl::fast-write-string))
(setf (symbol-function 'excl::fast-write-string) (symbol-function 'fast-write-string)))
Steve