Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv18880

Modified Files: print.lisp Log Message: Cleaned up most ":int 107" instances. Now, we mostly use the semi-standardized ":int 64" which means that the value in EAX wasn't integer. The default interrupt-handler understands this and signals the appropriate error.

Date: Tue Jul 20 01:54:43 2004 Author: ffjeld

Index: movitz/losp/muerte/print.lisp diff -u movitz/losp/muerte/print.lisp:1.12 movitz/losp/muerte/print.lisp:1.13 --- movitz/losp/muerte/print.lisp:1.12 Mon Jul 19 02:57:44 2004 +++ movitz/losp/muerte/print.lisp Tue Jul 20 01:54:43 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Mon Sep 3 11:48:19 2001 ;;;; -;;;; $Id: print.lisp,v 1.12 2004/07/19 09:57:44 ffjeld Exp $ +;;;; $Id: print.lisp,v 1.13 2004/07/20 08:54:43 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -312,6 +312,10 @@ (hash-table-count (package-object-external-symbols object)) (hash-table-count (package-object-internal-symbols object)))) (print-unreadable-object (object stream :identity t :type t)))) + (ratio + (write-integer (ratio-numerator object) stream *print-base* *print-radix*) + (write-char #/ stream) + (write-integer (ratio-denominator object) stream *print-base* nil)) (t (if (not *never-use-print-object*) (print-object object stream) (print-unreadable-object (object stream :identity t)