src/attributes/numbers.lisp

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