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 <[EMAIL PROTECTED]> 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 [EMAIL PROTECTED]
==========================================================================
"The earth is but one country, and mankind its citizens." -- Baha'u'llah
_______________________________________________
Gcl-devel mailing list
Gcl-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/gcl-devel
