Armed Bear Common Lisp 0.24.0-dev
Java 1.6.0_22 Sun Microsystems Inc.
Java HotSpot(TM) 64-Bit Server VM
Low-level initialization completed in 0.247 seconds.
Startup completed in 0.772 seconds.
check-pathnames of Armed Bear Common Lisp (0.24.0-dev)

================================================================================

Test and probe conforming logical pathnames, and their translation to
unix physical pathnames.

We want to check the good working of logical pathnames, and the
translation of logical pathnames to physical pathnames, in a
semi-standard way on unix systems.

Namely, given the logical host and its translations:

  (setf (logical-pathname-translations "LOGICAL") nil)
  (setf (logical-pathname-translations "LOGICAL")
        '((#P"LOGICAL:**;*.*" #P"/tmp/**/*.*")
          (#P"LOGICAL:**;*"   #P"/tmp/**/*")))

#P"LOGICAL:DIR;SUBDIR;NAME.TYPE.NEWEST"
must be the same as (make-pathname :host "LOGICAL"
                                   :directory '(:absolute "DIR" "SUBDIR")
                                   :name "NAME" :type "TYPE" :version :newest
                                   :case :common)
and must translate to: #P"/tmp/dir/subdir/name.type" on unix.



Merging physical pathnames specified with :case :common is also tested:

  (merge-pathnames (make-pathname :directory '(:relative "DIR" "SUBDIR")
                                  :name "NAME" :type "TYPE" :version :newest
                                  :case :common :default #1=#P"/tmp/")
                    #1# nil)

must give #P"/tmp/dir/subdir/name.type" on unix.

================================================================================



With Armed Bear Common Lisp (0.24.0-dev) on Linux, the customary case for the
file system of the host NIL of the pathname "/tmp/name.type" seems to be lower
case.


*FEATURES* = (:X86-64 :JAVA-1.6 :ARMEDBEAR :ABCL :COMMON-LISP :ANSI-CL :UNIX
              :LINUX :CDR6)





================================================================================
(MAKE-PATHNAME :HOST
               "LOGICAL"
               :DEVICE
               :UNSPECIFIC
               :DIRECTORY
               (:ABSOLUTE "DIR" "SUBDIR")
               :NAME
               "NAME"
               :TYPE
               "TYPE"
               :VERSION
               :NEWEST
               :CASE
               :COMMON)


LOGICAL-PATHNAME #P"LOGICAL:DIR;SUBDIR;NAME.TYPE.NEWEST"
Fields of pathname with :case :common
    Host      : "LOGICAL"
    Device    : :UNSPECIFIC
    Directory : (:ABSOLUTE "DIR" "SUBDIR")
    Name      : "NAME"
    Type      : "TYPE"
    Version   : :NEWEST
--------------------
Error loading /home/pjb/src/lisp/check-pathnames/check-pathnames.lisp at line 649 (offset 29103)
#<THREAD "interpreter" {729A6BBB}>: Debugger invoked on condition of type TYPE-ERROR
  (:ABSOLUTE "DIR" "SUBDIR") cannot be coerced to a string.
[1] CHECK-PATHNAMES(1):
Error loading /home/pjb/src/lisp/check-pathnames/check-pathnames.lisp at line 649 (offset 29103)
#<THREAD "interpreter" {729A6BBB}>: Debugger invoked on condition of type STREAM-ERROR
  Input/output error
Restarts:
  0: ABORT Return to debug level 1.
[2] CHECK-PATHNAMES(1):
Error loading /home/pjb/src/lisp/check-pathnames/check-pathnames.lisp at line 649 (offset 29103)
#<THREAD "interpreter" {729A6BBB}>: Debugger invoked on condition of type STREAM-ERROR
  Input/output error
Restarts:
  0: ABORT Return to debug level 2.
  1: ABORT Return to debug level 1.
[3] CHECK-PATHNAMES(1):
Error loading /home/pjb/src/lisp/check-pathnames/check-pathnames.lisp at line 649 (offset 29103)
#<THREAD "interpreter" {729A6BBB}>: Debugger invoked on condition of type STREAM-ERROR
  Input/output error
Restarts:
  0: ABORT Return to debug level 3.
  1: ABORT Return to debug level 2.
  2: ABORT Return to debug level 1.
[4] CHECK-PATHNAMES(1):
Error loading /home/pjb/src/lisp/check-pathnames/check-pathnames.lisp at line 649 (offset 29103)
#<THREAD "interpreter" {729A6BBB}>: Debugger invoked on condition of type STREAM-ERROR
  Input/output error
Restarts:
  0: ABORT Return to debug level 4.
  1: ABORT Return to debug level 3.
  2: ABORT Return to debug level 2.
  3: ABORT Return to debug level 1.
[5] CHECK-PATHNAMES(1):
Error loading /home/pjb/src/lisp/check-pathnames/check-pathnames.lisp at line 649 (offset 29103)
#<THREAD "interpreter" {729A6BBB}>: Debugger invoked on condition of type STREAM-ERROR
  Input/output error
Restarts:
  0: ABORT Return to debug level 5.
  1: ABORT Return to debug level 4.
  2: ABORT Return to debug level 3.
  3: ABORT Return to debug level 2.
  4: ABORT Return to debug level 1.
[6] CHECK-PATHNAMES(1):
Error loading /home/pjb/src/lisp/check-pathnames/check-pathnames.lisp at line 649 (offset 29103)
#<THREAD "interpreter" {729A6BBB}>: Debugger invoked on condition of type STREAM-ERROR
  Input/output error
Restarts:
  0: ABORT Return to debug level 6.
  1: ABORT Return to debug level 5.
  2: ABORT Return to debug level 4.
  3: ABORT Return to debug level 3.
  4: ABORT Return to debug level 2.
  5: ABORT Return to debug level 1.
[7] CHECK-PATHNAMES(1):
Error loading /home/pjb/src/lisp/check-pathnames/check-pathnames.lisp at line 649 (offset 29103)
#<THREAD "interpreter" {729A6BBB}>: Debugger invoked on condition of type STREAM-ERROR
  Input/output error
Restarts:
  0: ABORT Return to debug level 7.
  1: ABORT Return to debug level 6.
  2: ABORT Return to debug level 5.
  3: ABORT Return to debug level 4.
  4: ABORT Return to debug level 3.
  5: ABORT Return to debug level 2.
  6: ABORT Return to debug level 1.
[8] CHECK-PATHNAMES(1):
Error loading /home/pjb/src/lisp/check-pathnames/check-pathnames.lisp at line 649 (offset 29103)
#<THREAD "interpreter" {729A6BBB}>: Debugger invoked on condition of type STREAM-ERROR
  Input/output error
Restarts:
  0: ABORT Return to debug level 8.
  1: ABORT Return to debug level 7.
  2: ABORT Return to debug level 6.
  3: ABORT Return to debug level 5.
  4: ABORT Return to debug level 4.
  5: ABORT Return to debug level 3.
  6: ABORT Return to debug level 2.
  7: ABORT Return to debug level 1.
[9] CHECK-PATHNAMES(1):
Error loading /home/pjb/src/lisp/check-pathnames/check-pathnames.lisp at line 649 (offset 29103)
#<THREAD "interpreter" {729A6BBB}>: Debugger invoked on condition of type STREAM-ERROR
  Input/output error
ViewGit