picolisp

commit cfdbcfbafd28d0ddeb14d5768c906bd3608701f7
parent 19bada56bcdb59f6ff04399318f4bbeadd088079
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri, 19 Oct 2012 17:16:39 +0200

'+Clr0' prefix class
Diffstat:
M
lib/form.l
 | 
9
++++++++-

1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/lib/form.l b/lib/form.l
@@ -1,4 +1,4 @@
-# 09jul12abu
+# 19oct12abu
 # (c) Software Lab. Alexander Burger
 
 # *PRG *Top *Gui *Btn *Get *Got *Form *Evt *Lock *Spans
@@ -842,6 +842,13 @@
    (pass extra) )
 
 
+(class +Clr0)
+
+(dm val> ()
+   (let N (extra)
+      (unless (=0 N) N) ) )
+
+
 (class +Var)
 # var