Changeset 4884


Ignore:
Timestamp:
11/24/03 15:57:57 (18 years ago)
Author:
piso
Message:

JCLASS-IS-INTERFACE => JCLASS-INTERFACE-P

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

Legend:

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

    r4882 r4884  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: autoloads.lisp,v 1.68 2003-11-23 23:45:30 asimon Exp $
     4;;; $Id: autoloads.lisp,v 1.69 2003-11-24 15:57:57 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    144144(export 'jclass-interfaces "JAVA")
    145145(autoload 'jclass-interfaces "java.lisp")
    146 (export 'jclass-is-interface "JAVA")
    147 (autoload 'jclass-is-interface "java.lisp")
     146(export 'jclass-interface-p "JAVA")
     147(autoload 'jclass-interface-p "java.lisp")
    148148(export 'jclass-constructors "JAVA")
    149149(autoload 'jclass-constructors "java.lisp")
  • trunk/j/src/org/armedbear/lisp/java.lisp

    r4882 r4884  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
     4;;; $Id: java.lisp,v 1.6 2003-11-24 15:57:39 piso Exp $
    45;;;
    56;;; This program is free software; you can redistribute it and/or
     
    3536
    3637(defun jclass-superclass (class)
    37   "Returns the superclass of CLASS, or NIL if it has't got one"
     38  "Returns the superclass of CLASS, or NIL if it hasn't got one"
    3839  (jcall (jmethod "java.lang.Class" "getSuperclass") class))
    3940
     
    4243  (jcall (jmethod "java.lang.Class" "getInterfaces") class))
    4344
    44 (defun jclass-is-interface (class)
    45   "Returns T if CLASS is an inteface"
     45(defun jclass-interface-p (class)
     46  "Returns T if CLASS is an interface"
    4647  (jcall (jmethod "java.lang.Class" "isInterface") class))
    4748
Note: See TracChangeset for help on using the changeset viewer.