projects
/
hyperobject.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
;;;;
;;;;
;;;; 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
;;;;
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
@@
-84,7
+84,7
@@
(format t "~&Text Format~%")
(format t "~&Text Format~%")
-(
print-hyperobject
mary :subobjects t)
+(
view
mary :subobjects t)
(format t "~&XML Format with field labels and hyperlinks~%")
(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)