Welcome to the CHICKEN Scheme pasting service
result of compile of macro added by kevinfish on Fri Mar 3 09:54:00 2017
Error: (#f) "during expansion of (define690 ...) - in `define' - lambda-list expected": ((define (ci 558179417 return: pointer:) ((lazy-ffi:function-ptr ((lazy-ffi:function (quote QueryInterface) (quote lazy-ffi:1488531163.05785775)) ci)) return: pointer:))) Call history: <eval> (rename661 (##core#syntax lazy-ffi:function-ptr)) <eval> (##sys#cons (##sys#cons (##sys#cons (rename661 (##core#syntax lazy-ffi:function)) (##sys#cons (##sys#cons (rename661 (##core#syntax quote)) (##sys#cons (rename661 (##core#syntax QueryInterface)) (quote660 ()))) (##sys#cons (##sys#cons (rename661 (##core#syntax quote)) (##sys#cons (rename661 (##core#syntax lazy-ffi:1488531163.05785775)) (quote660 ()))) (quote660 ())))) (##sys#cons ?name (quote660 ()))) (quote660 ())) <eval> (##sys#cons (##sys#cons (rename661 (##core#syntax lazy-ffi:function)) (##sys#cons (##sys#cons (rename661 (##core#syntax quote)) (##sys#cons (rename661 (##core#syntax QueryInterface)) (quote660 ()))) (##sys#cons (##sys#cons (rename661 (##core#syntax quote)) (##sys#cons (rename661 (##core#syntax lazy-ffi:1488531163.05785775)) (quote660 ()))) (quote660 ())))) (##sys#cons ?name (quote660 ()))) <eval> (##sys#cons (rename661 (##core#syntax lazy-ffi:function)) (##sys#cons (##sys#cons (rename661 (##core#syntax quote)) (##sys#cons (rename661 (##core#syntax QueryInterface)) (quote660 ()))) (##sys#cons (##sys#cons (rename661 (##core#syntax quote)) (##sys#cons (rename661 (##core#syntax lazy-ffi:1488531163.05785775)) (quote660 ()))) (quote660 ())))) <eval> (rename661 (##core#syntax lazy-ffi:function)) <eval> (##sys#cons (##sys#cons (rename661 (##core#syntax quote)) (##sys#cons (rename661 (##core#syntax QueryInterface)) (quote660 ()))) (##sys#cons (##sys#cons (rename661 (##core#syntax quote)) (##sys#cons (rename661 (##core#syntax lazy-ffi:1488531163.05785775)) (quote660 ()))) (quote660 ()))) <eval> (##sys#cons (rename661 (##core#syntax quote)) (##sys#cons (rename661 (##core#syntax QueryInterface)) (quote660 ()))) <eval> (rename661 (##core#syntax quote)) <eval> (##sys#cons (rename661 (##core#syntax QueryInterface)) (quote660 ())) <eval> (rename661 (##core#syntax QueryInterface)) <eval> (##sys#cons (##sys#cons (rename661 (##core#syntax quote)) (##sys#cons (rename661 (##core#syntax lazy-ffi:1488531163.05785775)) (quote660 ()))) (quote660 ())) <eval> (##sys#cons (rename661 (##core#syntax quote)) (##sys#cons (rename661 (##core#syntax lazy-ffi:1488531163.05785775)) (quote660 ()))) <eval> (rename661 (##core#syntax quote)) <eval> (##sys#cons (rename661 (##core#syntax lazy-ffi:1488531163.05785775)) (quote660 ())) <eval> (rename661 (##core#syntax lazy-ffi:1488531163.05785775)) <eval> (##sys#cons ?name (quote660 ()))