Changeset 12593


Ignore:
Timestamp:
Aug 16, 2009, 9:35:33 PM (10 years ago)
Author:
gb
Message:

Half-heartedly use the environment arg in the compiler-macro on
SLOT-ID-VALUE that tries to optimize ObjC foreign slot access.
(We probably need more info in compile-time ObjC classes to make
this practical.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/objc-bridge/objc-clos.lisp

    r12455 r12593  
    938938     (if (and (symbolp instance)
    939939              (subtypep (setq type (cdr (assq 'type (nth-value 2 (variable-information instance env)))))
    940                         'objc:objc-object)
     940                        'objc:objc-object
     941                        env)
    941942              (consp slot-name)
    942943              (eq (car slot-name) 'load-time-value)
     
    949950              (quoted-form-p slot-name)
    950951              (setq slot-name (cadr slot-name)))
    951        (let* ((class (find-class type nil))
     952       (let* ((class (find-class type nil env))
    952953              (eslotd (when class (find slot-name (class-slots class)
    953954                                        :key #'slot-definition-name))))
Note: See TracChangeset for help on using the changeset viewer.