All pastes #727573 Raw Edit

Unnamed

public text v1 · immutable
#727573 ·published 2007-10-06 04:23 UTC
rendered paste body
gnucash: [M] "Found Finance::Quote version ""1.12"
Backtrace:
In /usr/share/gnucash/scm/qif-import/qif-file.scm:
 520:  2* (and # # # ...)
 561:  3* [check-and-parse-field #<procedure qif-xtn:date #> ...]
 651:  4  (let (# # #) (if # #) (cond # # #) ...)
 656:  5* (if (not (null? objects)) (letrec (#) (loop # #)))
 657:  6  (letrec ((loop (lambda # # #))) (loop (car objects) (cdr objects)))
    ...
 667:  7  [loop # #]
 659:  8* (let ((val #)) (if val (begin # #)))
 660:  9  (if val (begin (set! do-parsing #t) (set! formats (checker val formats))))
    ...
 663: 10  (set! formats (checker val formats))
 663: 11* [qif-parse:check-date-format "04/07/2006" #f]
In /usr/share/gnucash/scm/qif-import/qif-parse.scm:
 392: 12  (let ((retval #f)) (if (or # #) (set! retval possible-formats)) ...)
 396: 13* (let ((match #)) (if match (if # # #)))
 397: 14  (if match (if (match:substring match 1) (set! retval #) (let* # # # ...)))
    ...
 399: 15  (set! retval (parse-check-date-format match possible-formats))
 399: 16* [parse-check-date-format #("04/07/2006" (0 . 10) (0 . 2) ...) #f]
 312: 17  (let (# # #) (set! numeric-date-parts #) (let # # # ...) ...)
 331: 18* (let (# # # # ...) (if # #) (if # #) ...)
 359: 19* (if (or (not #) (> n3 12)) (set! possibilities (delq # possibilities)))
 360: 20  (set! possibilities (delq (quote y-d-m) possibilities))
 360: 21* [delq y-d-m #f]

/usr/share/gnucash/scm/qif-import/qif-parse.scm:360:31: In procedure list-copy in expression (delq (quote y-d-m) possibilities):
/usr/share/gnucash/scm/qif-import/qif-parse.scm:360:31: Wrong type argument in position 1: #f