Author: hhubner Date: Tue May 6 12:15:02 2008 New Revision: 12
Modified: branches/hans/output.lisp Log: remove spurious declaration
Modified: branches/hans/output.lisp ============================================================================== --- branches/hans/output.lisp (original) +++ branches/hans/output.lisp Tue May 6 12:15:02 2008 @@ -108,7 +108,6 @@
(define-char-writer ((stream flexi-ascii-output-stream) char sink) (let ((octet (char-code char))) - (declare (type fixnum char-code)) (when (> octet 127) (signal-encoding-error stream "~S is not an ASCII character." char)) (write-byte* octet sink))
flexi-streams-cvs@common-lisp.net