;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
-;;;; $Id: no-mop-example.lisp,v 1.1 2002/11/22 15:45:06 kevin Exp $
+;;;; $Id: no-mop-example.lisp,v 1.3 2002/11/23 18:41:45 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
;;;; *************************************************************************
-(in-package :hyperobject-user)
+(in-package :hyperobject-no-mop-user)
(define-hyperobject person ()
((first-name :type string :reference find-person-by-last-name)
(last-name :type string)
- (dob :type integer :initform 0 :format-func format-date)
+ (dob :type integer :initform 0 :print-formatter format-date)
(resume :type cdata)
(addresses :subobject t))
(:title "Person")