r3491: *** empty log message ***

[hyperobject.git] / examples / example.lisp

diff --git a/examples/example.lisp b/examples/example.lisp
index 0e97b03f9e2a730d6aeda6e6ae699675a2ca737e..0d6b3d5ac76858b20eeea370591f0632420e69fa 100644 (file)
--- a/examples/example.lisp
+++ b/examples/example.lisp
@@ -9,7 +9,7 @@
 ;;;;
 ;;;; A simple example file for hyperobjects
 ;;;;
-;;;; $Id: example.lisp,v 1.1 2002/11/25 04:47:23 kevin Exp $
+;;;; $Id: example.lisp,v 1.2 2002/11/26 21:51:10 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
 ;;;;
@@ -84,7 +84,7 @@
 
 
 (format t "~&Text Format~%")
-(print-hyperobject mary :subobjects t)
+(view mary :subobjects t)
 
 (format t "~&XML Format with field labels and hyperlinks~%")
-(print-hyperobject mary :subobjects t :label t :format :xmlref)
+(view mary :subobjects t :label t :format :xmlref)