1.8.4 Crash while importing qif

[Rick Ziegler]

I received this backtrace importing a qif from Manulife.  qif is
attached.  Gnucash version 1.8.4 provided by Bill Notting.

Backtrace:
In /usr/share/gnucash/scm/qif-import/qif-file.scm:
 551:  3* [check-and-parse-field #<procedure qif-xtn:date #> ...]
 641:  4  (let (# # #) (if # #) (cond # # #) ...)
 646:  5* (if (not (null? objects)) (letrec (#) (loop # #)))
 647:  6  (letrec ((loop (lambda # # #))) (loop (car objects) (cdr
objects)))
    ...
 657:  7  [loop # #]
 649:  8* (let ((val #)) (if val (begin # #)))
 650:  9  (if val (begin (set! do-parsing #t) (set! formats (checker val
formats))))
    ...
 653: 10  (set! formats (checker val formats))
 653: 11* [qif-parse:check-date-format 04/15/2003 #f]
In /usr/share/gnucash/scm/qif-import/qif-parse.scm:
 393: 12  (let ((retval #f)) (if (or # #) (set! retval
possible-formats)) ...)
 397: 13* (let ((match #)) (if match (if # # #)))
 398: 14  (if match (if (match:substring match 1) (set! retval #) (let*
# # # ...)))
    ...
 400: 15  (set! retval (parse-check-date-format match possible-formats))
 400: 16* [parse-check-date-format #("04/15/2003" (0 . 10) (0 . 2) ...)
#f]
 313: 17  (let (# # #) (set! numeric-date-parts #) (let # # # ...) ...)
 332: 18* (let (# # # # ...) (if # #) (if # #) ...)
 350: 19* (if (or # #) (begin # #))
 351: 20  (begin (set! possibilities #) (set! possibilities #))
 352: 21* (set! possibilities (delq (quote d-m-y) possibilities))
 352: 22* [delq d-m-y #f]
 
/usr/share/gnucash/scm/qif-import/qif-parse.scm:352:33: In procedure
list-copy in expression (delq (quote d-m-y) possibilities):
/usr/share/gnucash/scm/qif-import/qif-parse.scm:352:33: Wrong type
argument in position 1: #f


Attached is the qif.


-------------- next part --------------
A non-text attachment was scrubbed...
Name: 20030401.qif
Type: application/x-qw
Size: 1120 bytes
Desc: not available
Url : /pipermail/attachments/20030802/49e72994/20030401.bin