;;;; 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
;;;;
(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)))