RE: [Gcl-devel] RE: [Axiom-developer] building Axiom with GCL Version_2_6_7pre fails

[Mike Thomas]

Thanks Bill and Camm.

Bill wrote:

| On Friday, May 27, 2005 10:06 AM Camm Maguire wrote:
|
| > ...
| > probe-file tests whether a file exists.
| >
| > probe-file returns false if there is no file named
| > pathspec, and otherwise returns the truename of pathspec.
| >
| > A file here should be sopentheing that could be opened with
| > (open...) -- we have no such ability currently for directories.
| >
| > Is this a problem to follow in mingw?
|
| No it is not a problem. In fact that is exactly what GCL
| Version_2_6_7pre on Windows does now.
|
| >
| > (probe-file "./") returns nil on Windows with the latest changes.
| >
|
| The problem is in the Axiom source for daase.lisp.pamphlet.
|
| > In daase.lisp.pamphlet the "./" is hard wired:
| >
| >   (localdatabase nil
| >      (list (list '|dir| (namestring (probe-file "./")) ))
| >      'make-database)
| >
|
| Here Axiom is trying to find the name of the "current"
| directory which it passes to |dir|. It should probably just
| call (truename "./"). Or better, perhaps there should be a
| standard lisp mechanism to do what Axiom's |dir| does.



The fix then is as follows:

diff -rN old-axiom--windows--1/src/interp/daase.lisp.pamphlet
new-axiom--windows
--1/src/interp/daase.lisp.pamphlet
843c843
<   (setq thisdir (namestring (probe-file ".")))
---
>   (setq thisdir (namestring (truename ".")))
1109c1109
<      (list (list '|dir| (namestring (probe-file "./")) ))
---
>      (list (list '|dir| (namestring (truename "./")) ))


Cheers

Mike Thomas.