From: ole mengshoel

Subject: Re: [pcspr3719] Logical pathnames

Date: 1996-7-4 18:37

Charley Cox, 

Thanks for your quick response to my request concerning LOGPATH.LSP.  
Yes, I was referring to the redefinition request concerning PARSE-NAMESTRING. 
Is there any way this problem can be fixed and the redefinition dialog avoided?  
Having to redefine the function each time the file is loaded is very painful. 

Secondly, I was referring to another problem that does not occur when loading 
LOGPATH.LSP, but when evaluating one of the examples given in the file.  The example 
I'm referring to is: 


  (setf (lp:logical-pathname-translations "prog")
        '(("CODE;*.*.*"    "/lib/prog/")))
  <cl> (lp:translate-logical-pathname "prog:code;documentation.lisp" :namestring)
  "/lib/prog/documentation.lisp"


Here is what happens when the evaluating the above two forms in ACL4W (I've included 
everything from the system is started up): 

  Welcome to Allegro CL for Windows 
  Version: 3.0 Release: 25-Oct-95 11:54
  Copyright (C) 1992-1995, Franz Inc., Berkeley, CA, USA.
  All rights reserved.
  Loaded Franz Inc. Patches: None.

>
;; Loading from #P"c:\\allegro\\logpath.lsp" ;; Load Successful ;; 120 forms read from #P"c:\\allegro\\logpath.lsp" ;; Result of last form read was ("a" "b" "c" ...) T
> (setf (lp:logical-pathname-translations "prog")
'(("CODE;*.*.*" "/lib/prog/"))) (("CODE;*.*.*" "/lib/prog/"))
> (lp:translate-logical-pathname "prog:code;documentation.lisp" :namestring)
"/lib/prog/.LSP"
>
So the bug is that "/lib/prog/.LSP" is returned rather than "/lib/prog/documentation.lisp". I'd be very happy if this problem is fixed. I've currently traced down the problem to the function translate-logical-pathname-aux. Exactly what happens (inncorrectly) in there I'm not sure about. It could also be a translation table or something that is accessed by translate-logical-pathname-aux that has been set up inorrectly. Thanks for any help on this! Ole J. Mengshoel.