error in advanced portfolio report (svn r16781)

[David Reiser]

On Jan 2, 2008, at 1:33 PM, Andrew Sackville-West wrote:

> On Wed, Jan 02, 2008 at 02:34:43AM -0500, David Reiser wrote:
>> When I run the advanced portfolio report, gnucash complains in the
>> report window:
>>
>> Report error
>> An error occurred while running the report.
>>
>> The terminal window says:
>>
>
> ...
>
>>  564: 637* (if (same-account? current #) (begin # #))
>>  565: 638  (begin (set! basis-list #) (if # # #))
>>  568: 639* (set! basis-list (basis-builder basis-list split- 
>> units ...))
>>  568: 640* [basis-builder #<unspecified> #<<gnc-numeric> num: 8690
>> denom: 10000> ...]
>>  235: 641  (cond ((and # #) (case b-method # ...)) ((and # #) (if #
>> # ...)) ...)
>>      ...
>>  243: 642  [list ...
>>  243: 643*  [cons ...
>>  243: 644*   [gnc-numeric-add #<<gnc-numeric> num: 8690 denom:
>> 10000> ...
>>  244: 645*    [caar #<unspecified>]
>> /opt/gnucash-svn/share/gnucash/guile-modules/gnucash/report/advanced-
>> portfolio.scm:244:43: In procedure caar in expression (caar b-list):
>> /opt/gnucash-svn/share/gnucash/guile-modules/gnucash/report/advanced-
>> portfolio.scm:244:43: Wrong type argument in position 1:  
>> #<unspecified>
>
> wierd. I wonder where the heck it's getting an <#unspecified>. Can you
> run again using
>
> gnucash --logto stdout --log "gnc.scm=debug"
>
> and provide the output? It should be pretty copious.
>
> A

a few lines above the scm that appeared in the last report, I get:

* 17:59:57 DEBUG <gnc.scm> b-list is ((#<<gnc-numeric> num:  
4189799520000 denom: 204700000000> . #<<gnc-numeric> num:  
72682214900000000 denom: 418979952000000>)) b-units is #<<gnc-numeric>  
num: 0 denom: 10000> b-value is #<<gnc-numeric> num: 0 denom: 100> b- 
method is average-basis
* 17:59:57 DEBUG <gnc.scm> split units #<<gnc-numeric> num: 8690  
denom: 10000> split-value #<<gnc-numeric> num: 16280 denom: 100>  
commod-currency #<swig-pointer gnc_commodity * 368e770>
* 17:59:57 DEBUG <gnc.scm> going in to basis list #<unspecified>#<<gnc- 
numeric> num: 8690 denom: 10000>#<<gnc-numeric> num: 16280 denom: 100>
* 17:59:57 DEBUG <gnc.scm> actually in basis-builder
* 17:59:57 DEBUG <gnc.scm> b-list is #<unspecified> b-units is #<<gnc- 
numeric> num: 8690 denom: 10000> b-value is #<<gnc-numeric> num: 16280  
denom: 100> b-method is average-basis
In /opt/gnucash-svn/share/gnucash/guile-modules/gnucash/report/ 
advanced-portfolio.scm:
  654: 626  (let* (# # # ...) (total-value # # ...) ...)
      ...
  341: 627  (let* (# # # # ...) (for-each # #) (set! use-txn #) ...)
  390: 628* [for-each #<procedure #f (split)> (# # # # ...)]
In unknown file:
    ?: 629  (if (null? rest) (letrec ((lp #)) (lp list1)) ...)
      ...
    ?: 630  (begin (f (car l)) (lp (cdr l)))
    ?: 631* [#<procedure #f (split)> #<swig-pointer Split * 4659620>]
etc.

Do you want the other 6000 lines, too?

Dave
--
David Reiser
dbreiser at earthlink.net