#505 LOAD-LOGICAL-PATHNAME-TRANSLATIONS file name case confusion

lisp error
closed-invalid
clisp (525)
5
2008-11-21
2008-10-29
No

I'm using CLISP 2.47+ from CVS built on 2008-10-28, including Sam's
fixes for bug #[ 2198109 ].

LOAD-LOGICAL-PATHNAME-TRANSLATIONS is still not working for
CMUCL-style host definition files when a case-sensitive filesystem is
used, for instance one of the most important Unix filesystems.
The same test case of bug report #[ 2198109 ], which
works fine with CLISP 2.46, can be used.

The problem is in the two MAKE-PATHNAMEs in lines 530 and 532 of
defs1.lisp, CVS version 1.72. They receive the STRING-UPCASEd version of host
name and return a pathname with file name in upper case. Therefore
DIRECTORY returns NIL.

The following is an excerpt of a Slime session:

CL-USER> (trace make-pathname)
WARNING: TRACE: redefining function MAKE-PATHNAME in top-level, was defined in C
;; Tracing function MAKE-PATHNAME.
(MAKE-PATHNAME)
CL-USER> (trace directory)
WARNING: TRACE: redefining function DIRECTORY in top-level, was defined in C
;; Tracing function DIRECTORY.
(DIRECTORY)
CL-USER> (load-logical-pathname-translations "test-case")
1. Trace: (MAKE-PATHNAME ':NAME '"TEST-CASE" ':DEFAULTS '#P"/home/aurelio/lisp/loghosts/")
1. Trace: MAKE-PATHNAME ==> #P"/home/aurelio/lisp/loghosts/TEST-CASE"
1. Trace: (DIRECTORY '#P"/home/aurelio/lisp/loghosts/TEST-CASE")
1. Trace: DIRECTORY ==> NIL
1. Trace: (MAKE-PATHNAME ':NAME '"TEST-CASE" ':TYPE '"host" ':DEFAULTS '#P"/home/aurelio/lisp/loghosts/")
1. Trace: MAKE-PATHNAME ==> #P"/home/aurelio/lisp/loghosts/TEST-CASE.host"
1. Trace: (DIRECTORY '#P"/home/aurelio/lisp/loghosts/TEST-CASE.host")
1. Trace: DIRECTORY ==> NIL

No translations for logical host "TEST-CASE" found
[Condition of type SIMPLE-ERROR]

Restarts:
0: [ABORT] Return to SLIME's top level.
1: [CLOSE-CONNECTION] Close SLIME connection

Backtrace:
0: [378] frame binding variables (~ = dynamically):
| ~ SWANK::*SLDB-STEPPING-P* <--> NIL

[...]

16: [324] EVAL frame for form (ERROR (SYSTEM::TEXT "No translations for logical host ~S found") SYSTEM::..
17: <1/322> #<SPECIAL-OPERATOR UNLESS>
[320] EVAL frame for form
(UNLESS (GETHASH SYSTEM::HOST SYSTEM::..
18: [316] frame binding environments
BLOCK_ENV <--> NIL
19: [314] block frame #<ADDRESS #xB7B534E8> for LOAD-LOGICAL-PATHNAME-TRANSLATIONS
Next environment: N..
20: <1/312> #<SPECIAL-OPERATOR BLOCK>
[310] EVAL frame for form
(BLOCK LOAD-LOGICAL-PATHNAME-TRANSLATIO..
21: [306] frame binding environments
VAR_ENV <--> NIL
FUN_ENV <--> NIL
BLOCK_ENV <--> NIL
GO_ENV..
22: [300] frame binding variables #<ADDRESS #xB7B534B0> binds (~ = dynamically):
| SYSTEM::HOST <--> ..
23: [294] APPLY frame for call (LOAD-LOGICAL-PATHNAME-TRANSLATIONS '"test-case")
24: <1/290>
#<FUNCTION LOAD-LOGICAL-PATHNAME-TRANSLATIONS (SYSTEM::HOST) (DECLARE (SYSTEM::IN-DEFUN LOA..
25: [289] EVAL frame for form (LOAD-LOGICAL-PATHNAME-TRANSLATIONS "test-case")

Discussion

  • Sam Steingold

    Sam Steingold - 2008-10-30

    yes, the file name MUST be exactly the same as the name of the host being defined (and the hosts are upcase).
    please rename your file to /home/aurelio/lisp/loghosts/TEST-CASE and try again.

     
  • Sam Steingold

    Sam Steingold - 2008-10-30
    • status: open --> pending-invalid
     
  • Sam Steingold

    Sam Steingold - 2008-10-30

    This bug report is now marked as "pending"/"invalid".
    This means that we think that the problem you report
    is not a problem with CLISP.
    Unless you - the reporter - act within 2 weeks,
    the bug will be permanently closed.
    Sorry about the inconvenience -
    we hope your silence means that
    you agree that this is not a bug in CLISP.

     
  • SourceForge Robot

    This Tracker item was closed automatically by the system. It was
    previously set to a Pending status, and the original submitter
    did not respond within 14 days (the time period specified by
    the administrator of this Tracker).

     
  • SourceForge Robot

    • status: pending-invalid --> closed-invalid
     

Log in to post a comment.

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks