r3579: *** empty log message ***

[hyperobject.git] / views.lisp

diff --git a/views.lisp b/views.lisp
index b0811c44a0050f954297d7610ae674fcc40f046e..f1016a14599de1f25f6d43dc62d4d98293e1854e 100644 (file)
--- a/views.lisp
+++ b/views.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: views.lisp,v 1.9 2002/12/05 19:57:12 kevin Exp $
+;;;; $Id: views.lisp,v 1.10 2002/12/06 20:46:51 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
 ;;;;
@@ -493,7 +493,7 @@
                                (slot-value x name)
                                (append (link-parameters hyperlink) refvars))
               refvalues)
-         (push (make-link-end x (link-ref fmt) name) refvalues)))
+       (push (make-link-end x (link-ref fmt) name) refvalues)))
     (setq refvalues (nreverse refvalues))
     (apply #'format s (make-ref-data-str x fmt label) refvalues)))