;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: package.lisp,v 1.14 2002/12/02 15:57:17 kevin Exp $
+;;;; $Id: package.lisp,v 1.15 2002/12/03 00:12:55 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;; *************************************************************************
#:hyperobject-class-title
#:load-all-subobjects
#:view
+ #:fmt-comma-integer
))
(defpackage #:hyperobject-user
;;;; 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))
+