[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

EXCL::FAST-WRITE-STRING



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