HCoop
/
clinton
/
lisp-on-lines.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Removed most of the old LoL stuff for good.
[clinton/lisp-on-lines.git]
/
src
/
attributes
/
numbers.lisp
diff --git
a/src/attributes/numbers.lisp
b/src/attributes/numbers.lisp
index
a2d4b8f
..
520e621
100644
(file)
--- a/
src/attributes/numbers.lisp
+++ b/
src/attributes/numbers.lisp
@@
-12,6
+12,9
@@
(defattribute integer-attribute (number-attribute integer-field)
()
(:in-layer editor)
(defattribute integer-attribute (number-attribute integer-field)
()
(:in-layer editor)
+ (:default-initargs
+ :default-value ""
+ :default-value-predicate (complement #'numberp))
(:type-name integer))
(:type-name integer))
@@
-41,10
+44,6
@@
()
(:type-name currency))
()
(:type-name currency))
-(defdisplay
- ((currency currency-attribute) object)
- (<:as-html "$")
- (call-next-method))
(defdisplay :in-layer editor
((currency currency-attribute) object)
(defdisplay :in-layer editor
((currency currency-attribute) object)