Changeset 10234


Ignore:
Timestamp:
10/25/05 17:18:28 (16 years ago)
Author:
piso
Message:

Moved JCLASS-NAME to jclass_name.java.

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

Legend:

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

    r9953 r10234  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: autoloads.lisp,v 1.195 2005-09-09 19:37:26 piso Exp $
     4;;; $Id: autoloads.lisp,v 1.196 2005-10-25 17:18:28 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    184184(export 'jinterface-implementation "JAVA")
    185185(autoload 'jinterface-implementation "java")
    186 (export 'jclass-name "JAVA")
    187 (autoload 'jclass-name "java")
    188186(export 'jobject-class "JAVA")
    189187(autoload 'jobject-class "java")
  • trunk/j/src/org/armedbear/lisp/java.lisp

    r10219 r10234  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: java.lisp,v 1.18 2005-10-25 12:20:03 asimon Exp $
     4;;; $Id: java.lisp,v 1.19 2005-10-25 17:17:59 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    5959        (push method-name method-names-and-defs)))
    6060    (apply #'%jnew-proxy interface method-names-and-defs)))
    61 
    62 (defun jclass-name (class &optional name)
    63   "Returns the name of CLASS as a Lisp string, or, if NAME is given, returns T if
    64 it's the name of the CLASS and NIL otherwise."
    65   (let ((class-name (jcall (jmethod "java.lang.Class" "getName") class)))
    66     (if name (string= name class-name) class-name)))
    6761
    6862(defun jobject-class (obj)
     
    146140(defun jclass-field (class field-name)
    147141  "Returns the field named FIELD-NAME of CLASS"
    148   (jcall (jmethod "java.lang.Class" "getField" "java.lang.String") 
     142  (jcall (jmethod "java.lang.Class" "getField" "java.lang.String")
    149143         (ensure-jclass class) field-name))
    150144
Note: See TracChangeset for help on using the changeset viewer.