Code: Select all
newLISP v.10.7.1 32-bit on Windows IPv4/6 UTF-8 libffi, options: newlisp -h
> (= '(true) '(true nil))
nil
> (= '(true nil) '(true))
true
Code: Select all
> (= '(1 0) '(1)) #-> true?
nil
>
Code: Select all
newLISP v.10.7.1 32-bit on Windows IPv4/6 UTF-8 libffi, options: newlisp -h
> (= '(true) '(true nil))
nil
> (= '(true nil) '(true))
true
Code: Select all
> (= '(1 0) '(1)) #-> true?
nil
>
Code: Select all
> (= '(1 2 3 nil nil) '(1 2 3))
true
> (= '(1 2 3 nil nil nil) '(1 2 3))
true
> (= '(1 2 3 nil nil nil nil) '(1 2 3))
true
> ;; and so on ...
Code: Select all
newlisp.h:450:#define isNil(A) ((A)->type == CELL_NIL || ((A)->type == CELL_SYMBOL && (A)->contents == (UINT)nilSymbol))
Thank you for nifty tool, Lutz!Lutz wrote:Thanks for the discovery of this bug.
Fixed here: http://newlisp.nfshost.com/downloads/de ... nprogress/
Code: Select all
(letn (L '((1 2 3) (1 2 ))) (= L (transpose (transpose L)))) -> nil
Code: Select all
> (set 'L '((1 2 3) (1 2 )))
((1 2 3) (1 2))
> (transpose L)
((1 1) (2 2) (3 nil))
> (transpose (transpose L))
((1 2 3) (1 2 nil))
> (= L (transpose (transpose L)))
nil
>
Code: Select all
> (transpose '((1) (1 2)))
((1 1))
> (transpose (transpose '((1) (1 2))))
((1) (1))
Code: Select all
> (transpose (transpose '((1 nil) (1 2))))
((1 nil) (1 2))
- thank you! Hope that QA-tests is up to date.Lutz wrote: Downloads for an upcoming 10.7.5 later this spring: http://www.newlisp.org/downloads1075/