Posted to tcl by jdc at Thu Sep 09 13:28:51 GMT 2010view raw

  1. list doesn't contain element 706
  2. while executing
  3. "lreplace {-1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1..."
  4. ("eval" body line 1)
  5. invoked from within
  6. "eval [linsert $m1s 0 lreplace $whither[set whither {}] $from $to]"
  7. ("uplevel" body line 30)
  8. invoked from within
  9. "uplevel 1 [lindex $args 1]"
  10. (class "::tdbc::resultset" method "foreach" line 34)
  11. invoked from within
  12. "::oo::Obj95::ResultSet::1536 foreach -as dicts -- dd {
  13.  
  14. set from [dict get $dd fromline]
  15. set to [dict get $dd toline]
  16. puts "\n\n\n\n\nOLD OLD pi..."
  17. ("uplevel" body line 1)
  18. invoked from within
  19. "uplevel 1 $cmd"
  20. (class "::tdbc::statement" method "foreach" line 32)
  21. invoked from within
  22. "[statement "diffs_for_pid_v"] foreach -as dicts dd {
  23.  
  24. set from [dict get $dd fromline]
  25. set to [dict get $dd toline]
  26. puts "\n\n\n\n\nOLD OLD pid=..."