Changeset 10093


Ignore:
Timestamp:
10/12/05 15:52:56 (16 years ago)
Author:
piso
Message:

LispWorks? (Unix)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/tests/pathname-tests.lisp

    r10092 r10093  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: pathname-tests.lisp,v 1.43 2005-10-12 15:10:25 piso Exp $
     4;;; $Id: pathname-tests.lisp,v 1.44 2005-10-12 15:52:56 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    286286  #+(or allegro abcl cmu)
    287287  (check-physical-pathname #p"." '(:relative) nil nil)
    288   #+(or sbcl clisp)
     288  #-(or allegro abcl cmu)
    289289  ;; No trailing separator character means it's a file.
    290290  (check-physical-pathname #p"." nil "." nil)
     
    304304  (let ((pathname #-windows #p"./"
    305305                  #+windows #p".\\"))
    306     #+(or allegro abcl clisp cmu)
     306    #-(or sbcl)
    307307    (check-physical-pathname pathname '(:relative) nil nil)
    308308    #+(or sbcl)
     
    982982         (make-pathname :host "EFFLUVIA" :directory '(:absolute)
    983983                        :name "FOO" :type "fas" :version :newest)
    984          #+(and lispworks unix) #p"EFFLUVIA:FOO.USFL.NEWEST"
     984         #+(and lispworks unix) #p"EFFLUVIA:FOO.UFSL.NEWEST"
    985985         #+(and lispworks windows) #p"EFFLUVIA:FOO.FSL.NEWEST")
    986986  t)
     
    13441344  t)
    13451345
    1346 #-(and lispworks windows)
     1346#-lispworks
    13471347(deftest sbcl.40
    13481348  (let ((pathname (make-pathname :host "scratch"
     
    13501350                                 :name "bar"))
    13511351        (default-pathname #p"/aaa/bbb/ccc/ddd/eee"))
    1352     #-(or allegro lispworks)
     1352    #-allegro
    13531353    (check-merge-pathnames pathname default-pathname
    13541354                           #-clisp #p"SCRATCH:AAA;BBB;CCC;FOO;BAR"
     
    13581358                                          :directory '(:relative :back "foo")
    13591359                                          :name "bar"))
    1360     #+(or (and allegro unix) lispworks)
     1360    #+(and allegro unix)
    13611361    (signals-error (merge-pathnames pathname default-pathname) 'error)
    13621362    #+(and allegro windows)
     
    13651365  t)
    13661366
    1367 #+(and lispworks windows)
     1367#+lispworks
    13681368;; "Illegal logical pathname directory component: :BACK."
    13691369(deftest sbcl.40
Note: See TracChangeset for help on using the changeset viewer.