;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: views.lisp,v 1.5 2002/12/02 15:57:17 kevin Exp $
+;;;; $Id: views.lisp,v 1.6 2002/12/03 00:12:55 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
(make-instance 'hyperlink
:name (slot-definition-name esd)
:lookup it
- :link-parameters (slot-value esd 'link-parameters))
+ :link-parameters (slot-value esd 'hyperlink-parameters))
hyperlinks)))
(setf (slot-value cl 'hyperlinks) hyperlinks)))
(fmt-file-end fmt os)))
objs)
+
+;;; Misc formatting
+
+(defun fmt-comma-integer (i)
+ (format nil "~:d" i))
+