Changeset 7509


Ignore:
Timestamp:
08/28/04 12:55:57 (17 years ago)
Author:
asimon
Message:

JMEMBER-PROTECTED-P

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/autoloads.lisp

    r7499 r7509  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: autoloads.lisp,v 1.156 2004-08-26 14:53:11 piso Exp $
     4;;; $Id: autoloads.lisp,v 1.157 2004-08-28 12:55:57 asimon Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    224224(export 'jmember-public-p "JAVA")
    225225(autoload 'jmember-public-p "java")
     226(export 'jmember-protected-p "JAVA")
     227(autoload 'jmember-protected-p "java")
    226228(export 'jnew-runtime-class "JAVA")
    227229(autoload 'jnew-runtime-class "runtime-class")
  • trunk/j/src/org/armedbear/lisp/java.lisp

    r7322 r7509  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: java.lisp,v 1.16 2004-07-28 17:54:25 asimon Exp $
     4;;; $Id: java.lisp,v 1.17 2004-08-28 12:55:56 asimon Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    190190           (jcall (jmethod "java.lang.reflect.Member" "getModifiers") member)))
    191191
     192(defun jmember-protected-p (member)
     193  "MEMBER is a protected member of its declaring class"
     194  (jstatic (jmethod "java.lang.reflect.Modifier" "isProtected" "int")
     195           "java.lang.reflect.Modifier"
     196           (jcall (jmethod "java.lang.reflect.Member" "getModifiers") member)))
     197
    192198(provide :java-extensions)
Note: See TracChangeset for help on using the changeset viewer.