From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sat, 19 Jul 2003 20:32:48 +0000 (+0000)
Subject: r5339: *** empty log message ***
X-Git-Tag: debian-2.11.0-2~41
X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=commitdiff_plain;h=937d203b961e0d12a3188568b1cfbe8fe2c3ec11

r5339: *** empty log message ***
---

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