From: <mar...@gm...> - 2008-01-16 13:37:28
|
As for sb-cover: seems like (report) function is not able to delete cover file. I tried differenf if-exists parameters but noone worked. In windows it is not possible to move file which is still open. >From stacktrace it seems the failure is in SB-GRAY::PCL-CLOSE, which is not that easy for me to fix ;) Error log is: ; compilation finished in 0:00:00 ; compiling file "c:\\dev\\cvstree\\sbcl.git\\contrib\\sb-cover\\test-data-1.lisp" (written 16 JUL 2007 12:10:08 PM): ; compiling (IN-PACKAGE SB-COVER-TEST) ; compiling (DEFUN TEST1 ...) ; c:\dev\cvstree\sbcl.git\contrib\sb-cover\test-data-1.fasl written ; compilation finished in 0:00:00 unhandled SB-INT:SIMPLE-FILE-ERROR: couldn't remove "c:\\dev\\cvstree\\sbcl.git\\contrib\\sb-cover\\test-output\\cover-index.html": Permission denied 0: (SB-DEBUG:BACKTRACE 128 #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDERR* {9094711}>) 1: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SB-INT:SIMPLE-FILE-ERROR {A935EE9}> #<unavailable argument>) 2: (INVOKE-DEBUGGER #<SB-INT:SIMPLE-FILE-ERROR {A935EE9}>) 3: (INVOKE-DEBUGGER #<SB-INT:SIMPLE-FILE-ERROR {A935EE9}>) 4: (ERROR SB-INT:SIMPLE-FILE-ERROR) 5: (SB-IMPL::FD-STREAM-MISC-ROUTINE #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\sbcl.git\\contrib\\sb-cover\\test-output\\cover-index.html" {A934AE9} > :CLOSE T #<unused argument>) 6: ((SB-PCL::FAST-METHOD SB-GRAY::PCL-CLOSE (SB-KERNEL:ANSI-STREAM)) #<unavailable argument> #<unavailable argument> #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\sbcl.git\\contrib\\sb-cover\\test-output\\cover-index.html" {A934AE9} >) 7: ((FLET #:CLEANUP-FUN-[REPORT]96)) 8: (SB-COVER:REPORT #P"\\dev\\cvstree\\sbcl.git\\contrib\\sb-cover\\test-output\\") 9: (REPORT-EXPECT-FAILURE) 10: (SB-FASL::LOAD-FASL-GROUP #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\sbcl.git\\contrib\\sb-cover\\tests.fasl" {A8F6999}>) 11: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK)) 12: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\sbcl.git\\contrib\\sb-cover\\tests.fasl" {A8F6999}> NIL #<unavailable argument>) 13: (SB-FASL::%LOAD #<SB-SYS:FD-STREAM for "file c:\\dev\\cvstree\\sbcl.git\\contrib\\sb-cover\\tests.fasl" {A8F6999}>) 14: (SB-FASL::%LOAD #P"c:\\dev\\cvstree\\sbcl.git\\contrib\\sb-cover\\tests.fasl") 15: (LOAD #P"c:\\dev\\cvstree\\sbcl.git\\contrib\\sb-cover\\tests.fasl") 16: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:LOAD-OP ASDF:CL-SOURCE-FILE)) #<unavailable argument> #<unavailable argument> #<ASDF:LOAD-OP NIL {B218C01}> #<ASDF:CL-SOURCE-FILE "tests" {AF50F41}>) 17: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable argument> #<ASDF:LOAD-OP NIL {B218C01}> #<ASDF:CL-SOURCE-FILE "tests" {AF50F41}>) 18: ((LAMBDA ())) 19: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA #) {B2C759D}>) 20: (ASDF:OPERATE ASDF:LOAD-OP #:SB-COVER-TESTS) 21: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:TEST-OP (EQL (ASDF:FIND-SYSTEM :SB-COVER)))) #<unavailable argument> #<unavailable argument> #<unavailable argument> #<unavailable argument>) 22: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable argument> #<ASDF:TEST-OP NIL {B20AF01}> #<ASDF:SYSTEM "sb-cover" {AD4D401}>) 23: ((LAMBDA ())) 24: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK)) 25: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA #) {B21123D}>) 26: (ASDF:OPERATE ASDF:TEST-OP :SB-COVER) 27: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF:OPERATE 'ASDF:TEST-OP :SB-COVER) #<NULL-LEXENV>) 28: (SB-EXT:INTERACTIVE-EVAL (ASDF:OPERATE 'ASDF:TEST-OP :SB-COVER)) 29: (SB-IMPL::REPL-FUN NIL) 30: (SB-IMPL::REPL-FUN NIL) 31: ((LAMBDA ())) 32: ((LAMBDA ())) 33: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {AC301BD}>) 34: (SB-IMPL::TOPLEVEL-REPL NIL) 35: (SB-IMPL::TOPLEVEL-INIT) 36: ((LABELS SB-IMPL::RESTART-LISP)) 37: ("foreign function: #x4100C5") 38: ("foreign function: #x408B70") unhandled condition in --disable-debugger mode, quitting |