;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: io.lisp,v 1.9 2003/06/20 08:35:21 kevin Exp $
+;;;; $Id: io.lisp,v 1.10 2003/06/20 08:50:38 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(setf pos 0))))
(buf-flush buf out)))
+(declaim (inline write-fixnum))
(defun write-fixnum (n s)
#+allegro (excl::print-fixnum s 10 n)
- (write-string (write-to-string n) s))
+ #-allegro (write-string (write-to-string n) s))