Changeset 12806


Ignore:
Timestamp:
07/15/10 21:43:05 (12 years ago)
Author:
ehuelsmann
Message:

Rename 'local-variable-p' to 'variable-local-p' because
jvm-class-file.lisp defines a 'local-variable' structure which implicitly
creates a function by the same name.

Found by: astalla

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r12795 r12806  
    707707  (aload *thread*))
    708708
    709 (defun local-variable-p (variable)
     709(defun variable-local-p (variable)
    710710  "Return non-NIL if `variable' is a local variable.
    711711
     
    716716(defun emit-load-local-variable (variable)
    717717  "Loads a local variable in the top stack position."
    718   (aver (local-variable-p variable))
     718  (aver (variable-local-p variable))
    719719  (if (variable-register variable)
    720720      (aload (variable-register variable))
     
    734734before the emitted code: the code is 'stack-neutral'."
    735735  (declare (type symbol expected-type))
    736   (unless (local-variable-p variable)
     736  (unless (variable-local-p variable)
    737737    (return-from generate-instanceof-type-check-for-variable))
    738738  (let ((instanceof-class (ecase expected-type
Note: See TracChangeset for help on using the changeset viewer.