Changeset 4910

Timestamp:

Jul 25, 2006, 2:48:03 AM (18 years ago)

Author:

Gary Byers

Message:

Compiler-macro for BASIC-STREAM-P.

File:

• trunk/ccl/compiler/optimizers.lisp (modified) (1 diff)

trunk/ccl/compiler/optimizers.lisp

@@ -1535 +1535 @@
   `(eql (typecode ,n) ,(nx-lookup-target-uvector-subtag :macptr)))
 
+(define-compiler-macro basic-stream-p (n)
+  `(eql (typecode ,n) ,(nx-lookup-target-uvector-subtag :basic-stream)))
+
 (define-compiler-macro aref (&whole call a &rest subscripts &environment env)
   (let* ((ctype (if (nx-form-typep a 'array env)