X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=views.lisp;h=e9a89e3cd9c9d02eef285ec640d85546ca73a5b5;hb=a922259ecd7b9d02cccb8cc735e06ed8483f270a;hp=cf92ed09dec131e097849e21fc964bb0d53c4ab6;hpb=a332fc23291a68f46d2e973df7c28ec07a4abcfe;p=hyperobject.git

diff --git a/views.lisp b/views.lisp
index cf92ed0..e9a89e3 100644
--- 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)