;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: views.lisp,v 1.61 2003/07/14 04:10:02 kevin Exp $
+;;;; $Id$
;;;;
;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
(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)))))
(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)))