Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • tests/unix.lisp
    ... ... @@ -16,7 +16,7 @@
    16 16
     	     (assert-true fd)
    
    17 17
     	     (assert-true (equalp (length filename) (length template)))
    
    18 18
     	     (assert-false (equalp filename template))
    
    19
    -	     (assert-true (>= 5 (mismatch filename template))
    
    19
    +	     (assert-true (string/= filename template)
    
    20 20
     			  filename
    
    21 21
     			  template))))
    
    22 22
           (when fd