[Gcl-devel] Re: Erroneous attempt to delete nonexistent file /tmp/recompile.lsp ?

[Camm Maguire]

Greetings, and thanks!  Should be fixed now:

Index: gcl_callhash.lsp
===================================================================
RCS file: /cvsroot/gcl/gcl/lsp/gcl_callhash.lsp,v
retrieving revision 1.1
diff -u -r1.1 gcl_callhash.lsp
--- gcl_callhash.lsp    5 Jun 2006 22:02:45 -0000       1.1
+++ gcl_callhash.lsp    6 Jun 2006 19:50:30 -0000
@@ -138,7 +138,7 @@
                  (lambda (x y) 
                    (member (car x) (all-callees (car y) nil)))))
       (maphash (lambda (x y) (when (call-sig y) (proclaim `(ftype (function 
,@(call-sig y)) ,x)))) *call-hash-table*)
-      (unless pnp (delete-file pn))
+      (unless pnp (when (probe-file pn) (delete-file pn)))
       (map nil (lambda (fn)
                 (format t "Callee ~s sigchange ~s to ~s, recompiling ~s~%" 
                         (cadr fn) (caddr fn) (cadddr fn) (car fn))) 
*needs-recompile*)

Take care,

Robert Boyer <address@hidden> writes:

> I think that gcl 2.7.0 build is going well.  Apologies again for previous
> nonsense.
> 
> I'm still in an elementary testing stage.  Of the elementary
> tests, of course, one is building nqthm-1992.  Here I am
> getting:
> 
> > Error in SYSTEM::DO-RECOMPILE [or a callee]: Cannot delete the file 
> > "/tmp/recompile.lsp".
> 
> This is quite conceivably still my fault somehow, but right
> now at least, I do not recall knowing of the existence of
> this file recompile.lsp before so it might be some bug in
> GCL.
> 
> The problem seems to arise because of a call to delete-file
> in an automatic recompilation that arises during the loading
> of one of the previously compiled nqthm files.  In
> particular, the line
> 
>  (unless pnp (delete-file pn))
> 
> in the function 'do-recompile'.
> 
> Bob
> 
> Here is a script of the problem arising, executing the
> ordinary litany for building nqthm without any help from
> 'make'.
> 
> % cd nqthm-2nd/nqthm-1992/
> % make clean
> rm -f make/compile-success nqthm-1992 TAGS
> rm -f *.o *.c *.h *.data *.sbin *.lbin *.fasl *.sparcf \
>  make/tiny-test.* *saved_nqthm-1992 make/tmp.* *.log
> % ls *.o
> ls: No match.
> % ls /tmp
> Acro0003JKvJd  Acro000HEXiQh  Acro000WYHkgK  Acro000o1SqbR  gconfd-hunt  
> lost+found  orbit-hunt
> % which xg
> /p/bin/xg
> % xg
> GCL (GNU Common Lisp)  2.7.0 ANSI    Jun  6 2006 12:49:45
> Source License: LGPL(gcl,gmp,pargcl), GPL(unexec,bfd)
> Binary License:  GPL due to GPL'ed components: (BFD UNEXEC)
> Modifications of this banner must retain notice of a compatible license
> Dedicated to the memory of W. Schelter
> 
> Use (help) to get some basic information on how to use GCL.
> 
> Temporary directory for compiler files set to /tmp/
> 
> >(load "nqthm.lisp")
> 
> Loading nqthm.lisp
> Finished loading nqthm.lisp
> T
> 
> >(in-package "USER")
> 
> #<"COMMON-LISP-USER" package>
> 
> >(compile-nqthm)
> 
> ;; Compiling sloop.lisp.
> ;; End of Pass 1.  
> ;; End of Pass 2.  
> ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> ;; Finished compiling sloop.o.
> Loading sloop.o
> start address -T 0xafd5d80 Finished loading sloop.o
> ;; Compiling basis.lisp.
> ;; End of Pass 1.  
> ;; End of Pass 2.  
> ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> ;; Finished compiling basis.o.
> Loading basis.o
> start address -T 0xafe3760 Finished loading basis.o
> ;; Compiling genfact.lisp.
> ;; End of Pass 1.  
> ;; End of Pass 2.  
> ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> ;; Finished compiling genfact.o.
> Loading genfact.o
> start address -T 0xaf28e60 Finished loading genfact.o
> ;; Compiling events.lisp.
> ;; End of Pass 1.  
> ;; End of Pass 2.  
> ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> ;; Finished compiling events.o.
> Loading events.o
> start address -T 0xaffc900 Finished loading events.o
> ;; Compiling code-1-a.lisp.
> ;; End of Pass 1.  
> ;; End of Pass 2.  
> ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> ;; Finished compiling code-1-a.o.
> ;; Compiling code-b-d.lisp.
> ;; End of Pass 1.  
> ;; End of Pass 2.  
> ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> ;; Finished compiling code-b-d.o.
> ;; Compiling code-e-m.lisp.
> ;; End of Pass 1.  
> ;; End of Pass 2.  
> ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> ;; Finished compiling code-e-m.o.
> ;; Compiling code-n-r.lisp.
> ;; End of Pass 1.  
> ;; End of Pass 2.  
> ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> ;; Finished compiling code-n-r.o.
> ;; Compiling code-s-z.lisp.
> ;; End of Pass 1.  
> ;; End of Pass 2.  
> ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> ;; Finished compiling code-s-z.o.
> ;; Compiling io.lisp.
> ;; End of Pass 1.  
> ;; End of Pass 2.  
> ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> ;; Finished compiling io.o.
> ;; Compiling ppr.lisp.
> ;; End of Pass 1.  
> ;; End of Pass 2.  
> ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> ;; Finished compiling ppr.o.
> #P"/v/filer2/boyer/nqthm-2nd/nqthm-1992/ppr.o"
> NIL
> NIL
> 
> >(bye)
> 34.530u 1.320s 0:58.31 61.4%  0+0k 0+0io 0pf+0w
> % xg
> GCL (GNU Common Lisp)  2.7.0 ANSI    Jun  6 2006 12:49:45
> Source License: LGPL(gcl,gmp,pargcl), GPL(unexec,bfd)
> Binary License:  GPL due to GPL'ed components: (BFD UNEXEC)
> Modifications of this banner must retain notice of a compatible license
> Dedicated to the memory of W. Schelter
> 
> Use (help) to get some basic information on how to use GCL.
> 
> Temporary directory for compiler files set to /tmp/
> 
> >(load "nqthm.lisp")
> 
> Loading nqthm.lisp
> Finished loading nqthm.lisp
> T
> 
> >(trace load si::do-recompile delete-file)
> 
> Warning:
> LOAD is being redefined.
> Warning:
> DELETE-FILE is being redefined.
> (LOAD SYSTEM::DO-RECOMPILE DELETE-FILE)
> 
> >(in-package "USER")
> 
> #<"COMMON-LISP-USER" package>
> 
> >(load-nqthm)
> 
>   1> (LOAD "sloop")
> Loading sloop.o
>     2> (SYSTEM::DO-RECOMPILE)
>     <2 (SYSTEM::DO-RECOMPILE NIL)
> start address -T 0xaf26de0 Finished loading sloop.o
>   <1 (LOAD 55765)
>   1> (LOAD "basis")
> Loading basis.o
>     2> (SYSTEM::DO-RECOMPILE)
>     <2 (SYSTEM::DO-RECOMPILE NIL)
> start address -T 0xafd8ec0 Finished loading basis.o
>   <1 (LOAD 30128)
>   1> (LOAD "genfact")
> Loading genfact.o
>     2> (SYSTEM::DO-RECOMPILE)
>     <2 (SYSTEM::DO-RECOMPILE NIL)
> start address -T 0xaf347c0 Finished loading genfact.o
>   <1 (LOAD 7308)
>   1> (LOAD "events")
> Loading events.o
>     2> (SYSTEM::DO-RECOMPILE)
>     <2 (SYSTEM::DO-RECOMPILE NIL)
> start address -T 0xaff2060 Finished loading events.o
>   <1 (LOAD 53282)
>   1> (LOAD "code-1-a")
> Loading code-1-a.o
>     2> (SYSTEM::DO-RECOMPILE)
>     <2 (SYSTEM::DO-RECOMPILE NIL)
> start address -T 0xb009940 Finished loading code-1-a.o
>   <1 (LOAD 167677)
>   1> (LOAD "code-b-d")
> Loading code-b-d.o
>     2> (SYSTEM::DO-RECOMPILE)
>     <2 (SYSTEM::DO-RECOMPILE NIL)
> start address -T 0xb05d000 Finished loading code-b-d.o
>   <1 (LOAD 205559)
>   1> (LOAD "code-e-m")
> Loading code-e-m.o
>     2> (SYSTEM::DO-RECOMPILE)
>       3> (DELETE-FILE "/tmp/recompile.lsp")
> Error in DELETE-FILE [or a callee]: Cannot delete the file 
> "/tmp/recompile.lsp".
> 
> Fast links are on: do (si::use-fast-links nil) for debugging
> Broken at ERROR.  Type :H for Help.
>  1 (Continue) Retry loading file "code-e-m".
>  2 Retry loading file "code-e-m".
>  3 Return to top level.
> dbl:>>:q
> 
> Top level.
> >(bye)
> % ls /tmp
> Acro0003JKvJd  Acro000HEXiQh  Acro000WYHkgK  Acro000o1SqbR  gconfd-hunt  
> lost+found  orbit-hunt
> % 
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah