+cl-hyperobject (2.8.1-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Wed, 14 May 2003 13:45:01 -0600
+
cl-hyperobject (2.8.0-1) unstable; urgency=low
* Rework object viewing to reduce format calls
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: views.lisp,v 1.42 2003/05/14 08:30:38 kevin Exp $
+;;;; $Id: views.lisp,v 1.43 2003/05/14 21:15:11 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
)
(defmacro write-simple (v s)
- `(if (stringp ,v)
- (write-string ,v ,s)
- (write-string (write-to-string ,v) ,s)))
+ `(typecase v
+ (string
+ (write-string ,v ,s))
+ #+allegro
+ (fixnum
+ (excl::print-fixnum ,s 10 ,v))
+ (symbol
+ (write-string (symbol-name ,v) ,s))
+ (t
+ (write-string (write-to-string ,v) ,s))))
(defun write-ho-value (obj name type formatter cdata strm)
(declare (ignorable type))