Changeset 10002 for trunk/tests


Ignore:
Timestamp:
Jul 11, 2008, 12:47:08 AM (11 years ago)
Author:
gz
Message:

Regression test for the file-stream typep bug

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r9871 r10002  
    398398  t)
    399399
     400
     401
     402(deftest ccl.file-stream-typep
     403    (with-open-file (f "temp.dat" :direction :output :if-exists :supersede)
     404      (funcall (lambda (f) (let ((type (type-of f)))
     405                             (and (typep f 'file-stream) (subtypep type 'file-stream) t)))
     406               f))
     407  t)
    400408
    401409
Note: See TracChangeset for help on using the changeset viewer.