Steel Bank Common Lisp

The branch "master" has been updated in SBCL:
       via  219457dafac6f2df2c53c1fb7de3971305a4bd50 (commit)
      from  dea1e4258272053e8ccda1bf670d43b429878fe2 (commit)

- Log -----------------------------------------------------------------
commit 219457dafac6f2df2c53c1fb7de3971305a4bd50
Author: David Lichteblau <david@...>
Date:   Mon Nov 26 16:30:35 2012 +0100

    Remove a few :FAILS-ON test flags for Windows
---
 tests/alien.impure.lisp     |    2 +-
 tests/condition.impure.lisp |    2 +-
 tests/filesys.pure.lisp     |    2 +-
 tests/load.impure.lisp      |    2 +-
 tests/pathnames.impure.lisp |   15 +++++++--------
 5 files changed, 11 insertions(+), 12 deletions(-)

diff --git a/tests/alien.impure.lisp b/tests/alien.impure.lisp
index 70ac73b..e68278c 100644
--- a/tests/alien.impure.lisp
+++ b/tests/alien.impure.lisp
@@ -296,7 +296,7 @@
     (verify (signed 16)   #x003f8042 #x-7fbe)
     (verify (signed 16)   #x003f7042 #x7042)))
 
-(with-test (:name :bug-654485 :fails-on :win32)
+(with-test (:name :bug-654485)
   ;; DEBUG 2 used to prevent let-conversion of the open-coded ALIEN-FUNCALL body,
   ;; which in turn led the dreaded %SAP-ALIEN note.
   (handler-case
diff --git a/tests/condition.impure.lisp b/tests/condition.impure.lisp
index 4812ba6..2bf5976 100644
--- a/tests/condition.impure.lisp
+++ b/tests/condition.impure.lisp
@@ -96,7 +96,7 @@
 (define-condition my-stream-error-1-0-9 (stream-error) ())
 (define-condition parse-foo-error-1-0-9 (parse-error) ())
 (define-condition read-bar-error-1-0-9 (reader-error) ())
-(with-test (:name :printable-conditions :fails-on :win32)
+(with-test (:name :printable-conditions)
   (let (;; instances created initializing all the slots specified in
         ;; ANSI CL
         (parse-foo-error-1-0-9 (make-condition 'parse-foo-error-1-0-9
diff --git a/tests/filesys.pure.lisp b/tests/filesys.pure.lisp
index ec4c35e..a08e134 100644
--- a/tests/filesys.pure.lisp
+++ b/tests/filesys.pure.lisp
@@ -107,7 +107,7 @@
 ;;; given only safe characters in the namestring, NATIVE-PATHNAME will
 ;;; never error, and NATIVE-NAMESTRING on the result will return the
 ;;; original namestring.
-(with-test (:name :random-native-namestrings :fails-on :win32)
+(with-test (:name :random-native-namestrings)
   (let ((safe-chars
          (coerce
           (cons #\Newline
diff --git a/tests/load.impure.lisp b/tests/load.impure.lisp
index 6219374..972a609 100644
--- a/tests/load.impure.lisp
+++ b/tests/load.impure.lisp
@@ -273,7 +273,7 @@
                               (invoke-restart 'sb-fasl::object)))))
       (load-and-assert spec fasl fasl))))
 
-(with-test (:name :bug-332 :fails-on :win32)
+(with-test (:name :bug-332)
   (flet ((stimulate-sbcl ()
            (let ((filename
                   (format nil "~A/~A.lisp"
diff --git a/tests/pathnames.impure.lisp b/tests/pathnames.impure.lisp
index 04720a7..e7bee8c 100644
--- a/tests/pathnames.impure.lisp
+++ b/tests/pathnames.impure.lisp
@@ -32,7 +32,7 @@
 ;;; some things SBCL-0.6.9 used not to parse correctly:
 ;;;
 ;;; SBCL used to throw an error saying there's no translation.
-(with-test (:name (:logical-pathname 1) :fails-on :win32)
+(with-test (:name (:logical-pathname 1))
   (assert (equal (namestring (translate-logical-pathname "demo0:file.lisp"))
                  "/tmp/file.lisp")))
 
@@ -49,12 +49,12 @@
                     "/tmp/**/foo.lisp"))))
 
 ;;; That should be correct:
-(with-test (:name (:logical-pathname 4) :fails-on :win32)
+(with-test (:name (:logical-pathname 4))
   (assert (equal (namestring (translate-logical-pathname "demo1:foo.lisp"))
                  "/tmp/foo.lisp")))
 
 ;;; Check for absolute/relative path confusion:
-(with-test (:name (:logical-pathname 5) :fails-on :win32)
+(with-test (:name (:logical-pathname 5))
   (assert (not (equal (namestring (translate-logical-pathname "demo1:;foo.lisp"))
                       "tmp/rel/foo.lisp")))
   (assert (equal (namestring (translate-logical-pathname "demo1:;foo.lisp"))
@@ -153,7 +153,7 @@
 ;;; there's some code in this section which should be attributed
 ;;; to something in the ANSI spec, but I don't know what code it is
 ;;; or what section of the specification has the related code.
-(with-test (:name (:logical-pathname 14) :fails-on :win32)
+(with-test (:name (:logical-pathname 14))
   (setf (logical-pathname-translations "test0")
         '(("**;*.*.*"              "/library/foo/**/")))
   (assert (equal (namestring (translate-logical-pathname
@@ -179,7 +179,7 @@
 ;;; ANSI section 19.3.1.1.5 specifies that translation to a filesystem
 ;;; which doesn't have versions should ignore the version slot. CMU CL
 ;;; didn't ignore this as it should, but we do.
-(with-test (:name (:logical-pathname 15) :fails-on :win32)
+(with-test (:name (:logical-pathname 15))
   (assert (equal (namestring (translate-logical-pathname
                               "test0:foo;bar;baz;mum.quux.3"))
                  "/library/foo/foo/bar/baz/mum.quux")))
@@ -535,7 +535,7 @@
   (assert (equal (make-pathname :directory '(:absolute))
                  (read-from-string "#p\"\\\\\\\\\""))))
 
-(with-test (:name :load-logical-pathname-translations :fails-on :win32)
+(with-test (:name :load-logical-pathname-translations)
   (let* ((cwd (truename "."))
          (foo (merge-pathnames "llpnt-foo.translations" cwd))
          (bar (merge-pathnames "llpnt-bar.translations" cwd))
@@ -592,8 +592,7 @@
   ;; * / :WILD
   (assert (equal (pathname-directory #p"\\*/") '(:relative "*"))))
 
-(with-test (:name :ensure-directories-exist-with-odd-d-p-d
-                  :fails-on :win32)
+(with-test (:name :ensure-directories-exist-with-odd-d-p-d)
   (let ((*default-pathname-defaults* #p"/tmp/foo"))
     (ensure-directories-exist "/")))
 

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL