[movitz-cvs] CVS update: movitz/losp/muerte/print.lisp

[Frode Vatvedt Fjeld]

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