Changeset 9496


Ignore:
Timestamp:
May 15, 2008, 11:21:58 PM (11 years ago)
Author:
gb
Message:

Use ISTRUCT-TYPEP, don't compare (%svref istruct 0) to a symbol.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/compiler/nx-basic.lisp

    r9414 r9496  
    151151                                  (push '(inline . notinline) decls)))))
    152152                  (values nil nil decls))))
    153           (if (eq (uvref contour 0) 'definition-environment)
     153          (if (istruct-typep contour 'definition-environment)
    154154            (if (assq name (defenv.functions contour))
    155155              (return (values :macro nil nil))
     
    185185                     (setq vartype :symbol-macro)))))
    186186             (return))
    187             ((eq (setq envtype (%svref env 0)) 'definition-environment)
     187            ((eq (setq envtype (istruct-type-name env)) 'definition-environment)
    188188             (cond ((assq var (defenv.constants env))
    189189                    (setq vartype :constant)
     
    234234(defun nx-declared-type (sym &optional (env *nx-lexical-environment*))
    235235  (loop
    236     (when (or (null env) (eq (uvref env 0) 'definition-environment)) (return))
     236    (when (or (null env) (istruct-typep env 'definition-environment)) (return))
    237237    (dolist (decl (lexenv.vdecls env))
    238238      (if (and (eq (car decl) sym)
Note: See TracChangeset for help on using the changeset viewer.