Changeset 7750


Ignore:
Timestamp:
Nov 26, 2007, 4:12:29 AM (12 years ago)
Author:
gb
Message:

Do MAKE-INSTANCE of named class via a funcall to the class-cell's initializer.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/optimizers.lisp

    r7624 r7750  
    781781           (symbolp (cadr class))
    782782           (null (cddr class)))
    783     `(%make-instance (load-time-value (find-class-cell ,class t))
    784                      ,@initargs)
     783    (let* ((cell (gensym)))
     784      `(let* ((,cell (load-time-value (find-class-cell ,class t))))
     785        (funcall (class-cell-instantiate ,cell) ,cell ,@initargs)))
    785786    call))
    786787
Note: See TracChangeset for help on using the changeset viewer.