;;;; 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
;;;; *************************************************************************
(funcall formatter slot-data)
slot-data)))
(if cdata
- (write-xml-cdata fmt-data strm)
+ (write-cdata fmt-data strm)
(write-simple fmt-data strm))))
(defun ppfc-html (title name type formatter cdata print-func)
(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)))