http://www.newlisp.org/downloads/UTF-8_win32/
Verion is 10.6.0.
And let it run this program:
Code: Select all
(define (db-clear-sync-queues-vlog clearlist)
(let ((conds '())
(sql ""))
(dolist (_item clearlist)
(if (and (> (length _item) 1)
(string? (nth 0 _item))
(number? (nth 2 _item))
)
(extend conds (list (format "(tablename='%s' and orderid=%d)" (nth 0 _item) (nth 2 _item))))
)
)
(setq sql (append "delete from tbl_sync_queues_vlog where " (join conds " or ")))
))
(debug (db-clear-sync-queues-vlog '(("tbl_test" "2014-10-21 10:35:35.873000000" 1))))
Code: Select all
(define (db-clear-sync-queues-vlog clearlist)
(let ((conds '()) (sql ""))
(dolist (_item clearlist)
(if (and (> (length _item) 1) (string? (nth 0 _item)) (number? (nth 2 _item)))
(extend conds (list (format "(tablename='(null)' and orderid=10503914)" (nth 0 _item)
(nth 2 _item))))))
(setq sql (append "delete from tbl_sync_queues_vlog where " (join conds " or ")))))
And while I step and step, the program will crash in this step:
Code: Select all
(define (db-clear-sync-queues-vlog clearlist)
(let ((conds '()) (sql ""))
#(dolist (_item clearlist)
(if (and (> (length _item) 1) (string? (nth 0 _item)) (number? (nth 2 _item)))
(extend conds (list (format "(tablename='(null)' and orderid=10503914)" (nth 0 _item)
(nth 2 _item))))))#
(setq sql (append "delete from tbl_sync_queues_vlog where " (join conds " or ")))))