X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/e1645f63189477f1b39a173a41fcbbfefb5e88a6..91b9f259d38073a9847ede172cdda1218f2c35fb:/src/attributes/numbers.lisp

diff --git a/src/attributes/numbers.lisp b/src/attributes/numbers.lisp
index a2d4b8f..520e621 100644
--- a/src/attributes/numbers.lisp
+++ b/src/attributes/numbers.lisp
@@ -12,6 +12,9 @@
 (defattribute integer-attribute (number-attribute integer-field)
   ()
   (:in-layer editor)
+  (:default-initargs
+      :default-value ""
+    :default-value-predicate (complement #'numberp))
   (:type-name integer))
 
 
@@ -41,10 +44,6 @@
   ()
   (:type-name currency))
 
-(defdisplay
-   ((currency currency-attribute) object)
- (<:as-html "$")
- (call-next-method))
 
 (defdisplay :in-layer editor
    ((currency currency-attribute) object)