Code: Select all
(setq test (lambda nil
(block (mylist copyList result)
(setq mylist '((a b c)))
(setq copyList '((d e f)))
(setq result (append mylist copyList))
(lnkRemove (item result 0) 0 nil)
mylist
)
))
Code: Select all
(setq test2 (lambda nil
(block (mylist copyList result)
(setq mylist '((a b c)))
(setq copyList '((d e f)))
(setq result (append mylist copyList))
(lnkRemove (item mylist 0) 0 nil)
result
)
))
Code: Select all
(setq test3 (lambda nil
(block (mylist copyList result)
(setq mylist '((a b c)))
(setq copyList '((d e f)))
(setq result (append mylist copyList))
(setq mylist '((g h i)))
result
)
))
and one more just to confuse you
Code: Select all
(setq test4 (lambda nil
(block (mylist copyList result)
(setq mylist '(a b c))
(setq copyList '(d e f))
(setq result (append mylist copyList))
(lnkRemove result 0 nil)
mylist
)
))
any questions or comments?