Changeset 4882


Ignore:
Timestamp:
11/23/03 23:46:39 (18 years ago)
Author:
asimon
Message:

Three more convenience functions for Java reflection.

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

Legend:

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

    r4872 r4882  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: autoloads.lisp,v 1.67 2003-11-22 18:58:54 piso Exp $
     4;;; $Id: autoloads.lisp,v 1.68 2003-11-23 23:45:30 asimon Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    140140(export 'jobject-class "JAVA")
    141141(autoload 'jobject-class "java.lisp")
     142(export 'jclass-superclass "JAVA")
     143(autoload 'jclass-superclass "java.lisp")
     144(export 'jclass-interfaces "JAVA")
     145(autoload 'jclass-interfaces "java.lisp")
     146(export 'jclass-is-interface "JAVA")
     147(autoload 'jclass-is-interface "java.lisp")
    142148(export 'jclass-constructors "JAVA")
    143149(autoload 'jclass-constructors "java.lisp")
  • trunk/j/src/org/armedbear/lisp/java.lisp

    r4864 r4882  
    3333  "Returns the Java class that OBJ belongs to"
    3434  (jcall (jmethod "java.lang.Object" "getClass") obj))
     35
     36(defun jclass-superclass (class)
     37  "Returns the superclass of CLASS, or NIL if it has't got one"
     38  (jcall (jmethod "java.lang.Class" "getSuperclass") class))
     39
     40(defun jclass-interfaces (class)
     41  "Returns the vector of interfaces of CLASS"
     42  (jcall (jmethod "java.lang.Class" "getInterfaces") class))
     43
     44(defun jclass-is-interface (class)
     45  "Returns T if CLASS is an inteface"
     46  (jcall (jmethod "java.lang.Class" "isInterface") class))
    3547
    3648(defun jclass-constructors (class)
Note: See TracChangeset for help on using the changeset viewer.