From 937d203b961e0d12a3188568b1cfbe8fe2c3ec11 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 19 Jul 2003 20:32:48 +0000 Subject: [PATCH] r5339: *** empty log message *** --- views.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/views.lisp b/views.lisp index cd4f69b..8205568 100644 --- a/views.lisp +++ b/views.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: views.lisp,v 1.61 2003/07/14 04:10:02 kevin Exp $ +;;;; $Id: views.lisp,v 1.62 2003/07/19 20:32:48 kevin Exp $ ;;;; ;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg ;;;; ************************************************************************* @@ -687,7 +687,7 @@ (aif (slot-value obj (name-slot subobj)) (view-hyperobject it (get-view-id (car (mklist it)) vid) - vid strm (1+ indent) filter subobjects refvars + strm vid (1+ indent) filter subobjects refvars link-printer))))) @@ -712,7 +712,7 @@ (fmt-obj-end obj view strm indent) (when subobjects (fmt-subobj-start obj view strm indent) - (view-subobjects obj vid strm indent filter subobjects + (view-subobjects obj strm vid indent filter subobjects refvars link-printer) (fmt-subobj-end obj view strm indent)))) (fmt-list-end (car objlist) view strm indent nobjs))) -- 2.34.1