picolisp

commit 4ddc09f3e9954dbdb423317975675ce429505fda
parent 85c920d0b408e5984fe11cc06eb2518110ff32d7
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue,  8 Nov 2011 11:49:20 +0100

Minor: Clear properties in 'object' first (preserve 'def')
Diffstat:
M
ersatz/lib.l
 | 
4
++--
M
lib.l
 | 
4
++--
M
test/lib.l
 | 
5
+++--

3 files changed, 7 insertions(+), 6 deletions(-)
diff --git a/ersatz/lib.l b/ersatz/lib.l
@@ -1,4 +1,4 @@
-# 09oct11abu
+# 08nov11abu
 # (c) Software Lab. Alexander Burger
 
 (setq *OS (java (java "java.lang.System" "getProperty" "os.name")))
@@ -207,8 +207,8 @@
                (cons (car L) (recurse (cdr L))) ) ) ) ) )
 
 (de object ("Sym" "Val" . @)
-   (def "Sym" "Val")
    (putl "Sym")
+   (def "Sym" "Val")
    (while (args)
       (put "Sym" (next) (next)) )
    "Sym" )
diff --git a/lib.l b/lib.l
@@ -1,4 +1,4 @@
-# 09oct11abu
+# 08nov11abu
 # (c) Software Lab. Alexander Burger
 
 (de task (Key . Prg)
@@ -254,8 +254,8 @@
                (cons (car L) (recurse (cdr L))) ) ) ) ) )
 
 (de object ("Sym" "Val" . @)
-   (def "Sym" "Val")
    (putl "Sym")
+   (def "Sym" "Val")
    (while (args)
       (put "Sym" (next) (next)) )
    "Sym" )
diff --git a/test/lib.l b/test/lib.l
@@ -1,4 +1,4 @@
-# 10jun11abu
+# 08nov11abu
 # (c) Software Lab. Alexander Burger
 
 ### task ###
@@ -183,7 +183,8 @@
 (off "Obj")
 (test '"Obj"
    (object '"Obj" '("+A" "+B" "+C")  'a 1 'b 2 'c 3) )
-(test '((3 . c) (2 . b) (1 . a)) (getl '"Obj"))
+(test '((3 . c) (2 . b) (1 . a) (@X . *Dbg))
+   (getl '"Obj") )
 
 
 ### extend var var: ###