Changeset 9427


Ignore:
Timestamp:
May 9, 2008, 10:10:49 AM (11 years ago)
Author:
gb
Message:

SUBTYPEP compiler macro works better without the FIND-CLASS.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/level-1/l1-streams.lisp

    r9242 r9427  
    32503250  (declare (dynamic-extent initargs))
    32513251  (let* ((s
    3252           (if (subtypep class (find-class 'basic-stream))
     3252          (if (subtypep class 'basic-stream)
    32533253            (apply #'make-basic-stream-instance class :allow-other-keys t initargs)
    32543254            (apply #'make-instance class :allow-other-keys t initargs))))
Note: See TracChangeset for help on using the changeset viewer.