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

Modified Files: print.lisp Log Message: Minor edits.

Date: Wed Apr 21 11:07:48 2004 Author: ffjeld

Index: movitz/losp/muerte/print.lisp diff -u movitz/losp/muerte/print.lisp:1.7 movitz/losp/muerte/print.lisp:1.8 --- movitz/losp/muerte/print.lisp:1.7 Tue Apr 13 11:15:55 2004 +++ movitz/losp/muerte/print.lisp Wed Apr 21 11:07:48 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.7 2004/04/13 15:15:55 ffjeld Exp $ +;;;; $Id: print.lisp,v 1.8 2004/04/21 15:07:48 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -202,8 +202,7 @@ (null (write-string (symbol-name nil) stream)) ((or cons tag5) - (let ((level *print-level*) - (length *print-length*)) + (let ((level *print-level*)) (cond ((and level (minusp level)) (write-char ## stream)) @@ -227,7 +226,7 @@ (write (cdr c)) (write-char #) stream))))))) (write-char #( stream) - (write-cons object stream length)))))) + (write-cons object stream *print-length*)))))) (integer (write-integer object stream *print-base* *print-radix*)) (string