[flexi-streams-cvs] r12 - branches/hans

[hhubner at common-lisp.net]

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))