Changeset 10048


Ignore:
Timestamp:
09/27/05 18:45:44 (16 years ago)
Author:
piso
Message:

Allegro 7.0.

File:
1 edited

Legend:

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

    r10047 r10048  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: pathname-tests.lisp,v 1.31 2005-09-27 18:27:57 piso Exp $
     4;;; $Id: pathname-tests.lisp,v 1.32 2005-09-27 18:45:44 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    808808  (equal (enough-namestring "demo2:test;foo.lisp")
    809809         #+sbcl "DEMO2:;TEST;FOO.LISP"
    810          #+(or cmu lispworks) "DEMO2:TEST;FOO.LISP"
    811          #+clisp "TEST;FOO.LISP"
    812          #+allegro "/test/foo.lisp" ;; BUG
    813          #+abcl "DEMO2:TEST;FOO.LISP"
    814          )
     810         #+(or abcl cmu lispworks) "DEMO2:TEST;FOO.LISP"
     811         #+allegro-v7.0 "demo2:test;foo.lisp"
     812         #+allegro-v6.2 "/test/foo.lisp" ;; BUG
     813         #+clisp "TEST;FOO.LISP")
    815814  t)
    816815
     
    11431142(deftest sbcl.46
    11441143  (signals-error (pathname (make-string-input-stream "FOO"))
    1145                  #-(or allegro cmu) 'type-error
    1146                  #+allegro          'stream-error
     1144                 #-(or allegro-v6.2 cmu) 'type-error
     1145                 #+allegro-v6.2     'stream-error
    11471146                 #+cmu              'error)
    11481147  t)
     
    11501149(deftest sbcl.47
    11511150  (signals-error (merge-pathnames (make-string-output-stream))
    1152                  #-allegro 'type-error
    1153                  #+allegro 'stream-error)
     1151                 #-allegro-v6.2 'type-error
     1152                 #+allegro-v6.2 'stream-error)
    11541153  t)
    11551154
Note: See TracChangeset for help on using the changeset viewer.