Changeset 10066


Ignore:
Timestamp:
09/29/05 17:24:58 (16 years ago)
Author:
piso
Message:

Enabled PARSE-NAMESTRING.4 for cmucl.

File:
1 edited

Legend:

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

    r10065 r10066  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: pathname-tests.lisp,v 1.38 2005-09-29 17:18:05 piso Exp $
     4;;; $Id: pathname-tests.lisp,v 1.39 2005-09-29 17:24:58 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    622622  t)
    623623
    624 #-cmu ;; Search list.
    625624(deftest parse-namestring.4
    626   #-(or abcl clisp)
     625  #-(or abcl clisp cmu)
    627626  (check-physical-pathname (parse-namestring "effluvia:foo.bar" "")
    628627                           nil "effluvia:foo" "bar")
     
    632631  #+clisp
    633632  ;; Host mismatch.
     633  (signals-error (parse-namestring "effluvia:foo.bar" "") 'error)
     634  #+cmu
    634635  (signals-error (parse-namestring "effluvia:foo.bar" "") 'error)
    635636  t)
Note: See TracChangeset for help on using the changeset viewer.