[ clisp-Bugs-2198109 ] LOAD-LOGICAL-PATHNAME-TRANSLATIONS bug

[SourceForge.net <no...@so...>]

Bugs item #2198109, was opened at 2008-10-26 17:27
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=2198109&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: clisp
Group: lisp error
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Aurelio Bignoli (abignoli)
Assigned to: Bruno Haible (haible)
Summary: LOAD-LOGICAL-PATHNAME-TRANSLATIONS bug

Initial Comment:
When CUSTOM:*LOAD-LOGICAL-PATHNAME-TRANSLATIONS-DATABASE* contains a directory which, in turn, contains a CMUCL-style host definition file, LOAD-LOGICAL-PATHNAME-TRANSLATIONS signals an error. According to 

http://clisp.sourceforge.net/impnotes.html#load-lpt

it should instead load the CMUCL-style host definition file.

Test case:

1) create a CMUCL-style host definition file in a directory in CUSTOM:*LOAD-PATH*:

~ $ mkdir -p ~/lisp/loghosts

and a CMUCL-style file within it:

~ $ cat ~/lisp/loghosts/test-case
(
  ("uffi;**;*" "/usr/local/share/common-lisp/uffi-1.5.7/**/*")
  ("uffi;**;*.*" "/usr/local/share/common-lisp/uffi-1.5.7/**/*.*")

  ("**;*" "/usr/local/share/common-lisp/**/*")
  ("**;*.*" "/usr/local/share/common-lisp/**/*.*"))

;;;
;;; Local Variables:
;;; mode: lisp
;;; syntax: common-lisp
;;; End:

2) Start CLISP and try to load the host definitions:

~ $ clisp -K full -norc
  i i i i i i i       ooooo    o        ooooooo   ooooo   ooooo
  I I I I I I I      8     8   8           8     8     o  8    8
  I  \ `+' /  I      8         8           8     8        8    8
   \  `-+-'  /       8         8           8      ooooo   8oooo
    `-__|__-'        8         8           8           8  8
        |            8     o   8           8     o     8  8
  ------+------       ooooo    8oooooo  ooo8ooo   ooooo   8

Welcome to GNU CLISP 2.47+ (2008-10-24) <http://clisp.cons.org/>

Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright (c) Bruno Haible, Sam Steingold 1999-2000
Copyright (c) Sam Steingold, Bruno Haible 2001-2008

Type :h and hit Enter for context help.

[1]> custom:*load-paths*
(#P"./" "~/lisp/**/")
[2]> (setf custom:*load-logical-pathname-translations-database* '(#P"loghosts/"))
(#P"loghosts/")
[3]> (load-logical-pathname-translations "test-case")
;; Loading logical hosts from file /home/aurelio/lisp/loghosts/test-case ...
*** - STRING-UPCASE: argument
       (("uffi;**;*" "/usr/local/share/common-lisp/uffi-1.5.7/**/*") ("uffi;**;*.*" "/usr/local/share/common-lisp/uffi-1.5.7/**/*.*")
        ("**;*" "/usr/local/share/common-lisp/**/*") ("**;*.*" "/usr/local/share/common-lisp/**/*.*"))
      should be a string, a symbol or a character
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead.
ABORT          :R2      Abort main loop
Break 1 [4]> 



----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=2198109&group_id=1355