Hello.
On 25.4.17, you simplified 'body' and 'attr' in lib/xm.l.
The changes are not compatible with the xml files from gnumeric :
# Cells-References is the list of all cells from the tab 'Références'
: (car Cells-References)
-> (gnm:Cell ((Row . "0") (Col . "0") (ValueType . "60")) "Ticker")
# old versions of 'body' and 'attr'
: (de body (Lst . @)
(while (and (setq Lst (cddr Lst)) (args))
(setq Lst (asoq (next) Lst)) )
Lst )
# body redefined
-> body # (Lst)
: (de attr (Lst Key . @)
(while (args)
(setq
Lst (asoq Key (cddr Lst))
Key (next) ) )
(get Lst 2 Key) )
# attr redefined
-> attr
: (body (car Cells-References))
-> ("Ticker")
: (attr (car Cells-References) 'Row)
-> "0"
# new versions of 'body' and 'attr'
: (de body @
(cdr (pass get)) )
# body redefined
-> body
: (de attr (Lst Key . @)
(while (args)
(setq Lst (get Lst Key) Key (next)) )
(get Lst 1 Key) )
# attr redefined
-> attr
: (body (car Cells-References))
-> (((Row . "0") (Col . "0") (ValueType . "60")) "Ticker")
: (attr (car Cells-References) 'Row)
-> NIL
# adding a 'cdr' works, but I don't know if it was intended...
: (body (cdr (car Cells-References)))
-> ("Ticker")
: (attr (cdr (car Cells-References)) 'Row)
-> "0"
Regards,
Laurent.
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
