r3629: *** empty log message ***

[hyperobject.git] / examples / person.lisp

diff --git a/examples/person.lisp b/examples/person.lisp
index 7a00fc1c946e550f2151b3d9d3fbb99ddd820393..a91008b39774e3eec97d2f99ceffd4809c57d389 100644 (file)
--- a/examples/person.lisp
+++ b/examples/person.lisp
@@ -9,7 +9,7 @@
 ;;;;
 ;;;; A simple example file for hyperobjects
 ;;;;
-;;;; $Id: person.lisp,v 1.4 2002/12/14 02:30:58 kevin Exp $
+;;;; $Id: person.lisp,v 1.5 2002/12/14 18:51:56 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
 ;;;;
@@ -37,7 +37,7 @@
   (:description "A Person")
   (:direct-rules
    (:rule-1 (:dependants (last-name first-name) :volatile full-name)
-             (setf full-name (concatentate 'string first-name " " last-name)))))
+             (setf full-name (concatenate 'string first-name " " last-name)))))
 
 (defun format-date (ut)
   (when (typep ut 'integer)