X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffilesys.pure.lisp;h=09e770b7a5fdbed64f51751243fb512f12c4c449;hb=a37de74b393a808825585000bb5b2b92218d46c0;hp=2ff7dbb6cce421ff5ed6aefc5f73097589dd0281;hpb=e37366e7bb72bc80c6c9908efe09f94ce26add16;p=sbcl.git

diff --git a/tests/filesys.pure.lisp b/tests/filesys.pure.lisp
index 2ff7dbb..09e770b 100644
--- a/tests/filesys.pure.lisp
+++ b/tests/filesys.pure.lisp
@@ -41,5 +41,5 @@
 ;;;
 ;;; (Peter Van Eynde's ansi-test suite caught this, and Eric Marsden
 ;;; reported a fix for CMU CL, which was ported to sbcl-0.6.12.35.)
-(assert (subtypep (nth-value 1 (ignore-errors (file-length *terminal-io*)))
-		  'type-error))
+(assert (typep (nth-value 1 (ignore-errors (file-length *terminal-io*)))
+	       'type-error))