r3474: *** empty log message ***

[hyperobject.git] / views.lisp

diff --git a/views.lisp b/views.lisp
index cf92ed09dec131e097849e21fc964bb0d53c4ab6..e9a89e3cd9c9d02eef285ec640d85546ca73a5b5 100644 (file)
--- a/views.lisp
+++ b/views.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: views.lisp,v 1.1 2002/11/25 04:47:23 kevin Exp $
+;;;; $Id: views.lisp,v 1.2 2002/11/25 07:45:35 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
 ;;;;
@@ -404,11 +404,11 @@
               (load-all-subobjects it))))))
     objs))
 
-(defgeneric print-hyperobject-class (objs fmt strm
+(defgeneric view-hyperobject (objs fmt strm
                                  &optional label english-only-function
                                  indent subobjects refvars))
 
-(defmethod print-hyperobject-class (objs (fmt dataformat) (strm stream) 
+(defmethod view-hyperobject (objs (fmt dataformat) (strm stream) 
                                 &optional (label nil) (indent 0)
                                 (english-only-function nil)
                                 (subobjects nil) (refvars nil))
@@ -427,7 +427,7 @@
               (awhen (hyperobject-class-subobjects obj)  ;; access list of functions
                         (dolist (child-obj it)   ;; for each child function
                           (awhen (funcall (reader child-obj) obj) ;; access set of child objects
-                                    (print-hyperobject-class it fmt strm label 
+                                    (view-hyperobject it fmt strm label 
                                                      (1+ indent) english-only-function
                                                     subobjects refvars)))))
           (fmt-obj-end obj fmt strm indent)))
@@ -435,16 +435,15 @@
     t))
 
 
-
-(defun print-hyperobject (objs &key (os *standard-output*) (format :text)
+(defun view (objs &key (os *standard-output*) (format :text)
                      (label nil) (english-only-function nil)
                      (subobjects nil) (file-wrapper t) (refvars nil))
-  "EXPORTED Function: prints hyperobject-class objects. Simplies call to print-hyperobject-class"
+  "EXPORTED Function: prints hyperobject-class objects. Simplies call to view-hyperobject"
   (let ((fmt (make-format-instance format)))
     (if file-wrapper
        (fmt-file-start fmt os))
     (when objs
-      (print-hyperobject-class objs fmt os label 0 english-only-function subobjects refvars))
+      (view-hyperobject objs fmt os label 0 english-only-function subobjects refvars))
     (if file-wrapper
        (fmt-file-end fmt os)))
   objs)