defwrapper libctest pathname problems

[desoi]

Hello,

Looks like an interesting project. I tried to compile the :claw/tests system on Mac LispWorks 64-bit to see if it works for me. I'm using the latest version of ASDF (3.3.4). I get the error listed below when I compile the system. As a work-around I replaced "../lib" with the full Unix pathname. Then I had logical pathname error with the :base-path and also replaced that with the full Unix pathname to get around that.

Condition: Illegal logical pathname directory component: :UP.

Call to ERROR {offset 123}
  SYSTEM::ESTRING : "Illegal logical pathname directory component: ~S."
  SYSTEM::EARGS   : (:UP)

Call to SYSTEM::MAKE-LOGICAL-PATHNAME-FROM-COMPONENTS {offset 1242}
  SYSTEM::HOST    : "LISP-SYSTEMS"
  DIRECTORY       : (:ABSOLUTE "CLAW" "CLAW" "T" "C" "CFFI" :UP "lib")
  SYSTEM::NAME    : NIL
  TYPE            : NIL
  SYSTEM::VERSION : :NEWEST

Catch frame: SYSTEM::BAD-LOGICAL-PATHNAME-PARSE

Call to SYSTEM::MAKE-LOGICAL-PATHNAME {offset 208}
  SYSTEM::COMPONENTS : ("LISP-SYSTEMS" (:ABSOLUTE "CLAW" "CLAW" "T" "C" "CFFI" :UP "lib") NIL NIL :NEWEST)

Call to MAKE-PATHNAME {offset 601}
  DBG::|rest-|     : (:HOST "LISP-SYSTEMS" :DEVICE :UNSPECIFIC :DIRECTORY (:ABSOLUTE "CLAW" "CLAW" "T" "C" "CFFI" :UP "lib") :NAME NIL :TYPE NIL :VERSION :NEWEST)
  SYSTEM::HOST     : "LISP-SYSTEMS"
  SYSTEM::DEVICE   : :UNSPECIFIC
  DIRECTORY        : (:ABSOLUTE "CLAW" "CLAW" "T" "C" "CFFI" :UP "lib")
  SYSTEM::NAME     : NIL
  TYPE             : NIL
  SYSTEM::VERSION  : :NEWEST
  SYSTEM::DEFAULTS : #P""
  CASE             : :LOCAL

Call to UIOP/PATHNAME:MERGE-PATHNAMES* {offset 667}
  UIOP/PATHNAME::SPECIFIED                         : "../lib/"
  UIOP/PATHNAME::DEFAULTS                          : #P"LISP-SYSTEMS:CLAW;CLAW;T;C;CFFI;"
  UIOP/PATHNAME::SPECIFIED                         : #P"../lib/"
  UIOP/PATHNAME::DEFAULTS                          : #P"LISP-SYSTEMS:CLAW;CLAW;T;C;CFFI;"
  DIRECTORY                                        : (:RELATIVE :UP "lib")
  UIOP/PATHNAME::NAME                              : NIL
  TYPE                                             : NIL
  UIOP/PATHNAME::VERSION                           : :NEWEST
  DBG::|internal-flet-name-for-UNSPECIFIC-HANDLER| : #<Function (LABELS UIOP/PATHNAME::UNSPECIFIC-HANDLER) subfunction of UIOP/PATHNAME:MERGE-PATHNAMES* 41D01823EC>
  UIOP/PATHNAME::HOST                              : "LISP-SYSTEMS"
  UIOP/PATHNAME::DEVICE                            : :UNSPECIFIC
  DIRECTORY                                        : (:ABSOLUTE "CLAW" "CLAW" "T" "C" "CFFI" :UP "lib")
  UIOP/PATHNAME::UNSPECIFIC-HANDLER                : #<Function UIOP/PATHNAME:MAKE-PATHNAME-COMPONENT-LOGICAL 41D011BA74>
  DBG::|m-v-b-&rest|                               : :DONT-KNOW

Call to REDUCE {offset 1248}
  FUNCTION              : #<Function (FLET CLAW.UTIL::%RELATIVE) subfunction of CLAW.UTIL:FIND-PATH 41D02FFBBC>
  SEQUENCE              : ("../lib/")
  DBG::|rest-|          : (:INITIAL-VALUE #P"LISP-SYSTEMS:CLAW;CLAW;T;C;CFFI;")
  SYSTEM::FROM-END      : NIL
  SYSTEM::START         : 0
  SYSTEM::KEY           : NIL
  SYSTEM::END           : NIL
  SYSTEM::INITIAL-VALUE : #P"LISP-SYSTEMS:CLAW;CLAW;T;C;CFFI;"

Call to CLAW.UTIL:FIND-PATH {offset 190}
  CLAW.UTIL::RELATIVE                     : "../lib/"
  DBG::|rest-|                            : (:SYSTEM NIL :PATH #P"LISP-SYSTEMS:CLAW;CLAW;T;C;CFFI;")
  CLAW.UTIL::SYSTEM                       : NIL
  CLAW.UTIL::PATH                         : #P"LISP-SYSTEMS:CLAW;CLAW;T;C;CFFI;"
  CLAW.UTIL::RELATIVE                     : ("../lib/")
  DBG::|internal-flet-name-for-%RELATIVE| : #<Function (FLET CLAW.UTIL::%RELATIVE) subfunction of CLAW.UTIL:FIND-PATH 41D02FFBBC>

[borodust]

Thanks for the report. This system is going through huge refactoring at the moment. I might look into the issue later, but I don't have access to LispWorks implementation, so I'm not sure I'll be able to fix it. I intend to ensure it works on x86_64 SBCL, ECL and CCL.