[clinton/lisp-on-lines.git] / src / attributes / numbers.lisp

(in-package :lisp-on-lines)

(defattribute number-attribute (base-attribute)
  ()
  (:type-name number))

;;;; INTEGER
(defattribute integer-attribute (base-attribute)
  ()
  (:type-name integer))

;;;; REALS

(defattribute real-attribute (base-attribute)
  ()
  (:type-name real))


;;;; Currency
(defattribute currency-attribute (base-attribute)
  ()
  (:type-name currency))

(defdisplay
   ((currency currency-attribute) object)
 (<:as-html (format nil "$~$" (attribute-value object currency))))
Commit	Line	Data
2b0fd9c8 DC	1	(in-package :lisp-on-lines)
	2
	3	(defattribute number-attribute (base-attribute)
	4	()
	5	(:type-name number))
	6
	7	;;;; INTEGER
	8	(defattribute integer-attribute (base-attribute)
	9	()
	10	(:type-name integer))
	11
	12	;;;; REALS
	13
	14	(defattribute real-attribute (base-attribute)
	15	()
	16	(:type-name real))
	17
	18
	19	;;;; Currency
	20	(defattribute currency-attribute (base-attribute)
	21	()
	22	(:type-name currency))
	23
	24	(defdisplay
	25	((currency currency-attribute) object)
	26	(<:as-html (format nil "$~$" (attribute-value object currency))))