Changeset 10181


Ignore:
Timestamp:
10/22/05 14:11:54 (16 years ago)
Author:
piso
Message:

Work in progress.

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

Legend:

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

    r8835 r10181  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Java.java,v 1.51 2005-03-25 03:19:20 piso Exp $
     5 * $Id: Java.java,v 1.52 2005-10-22 14:11:54 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    357357                Class tClass = t.getClass();
    358358                if (registeredExceptions.containsKey(tClass)) {
    359       signal((Symbol)registeredExceptions.get(tClass), new SimpleString(getMessage(t))); 
     359      signal((Symbol)registeredExceptions.get(tClass), new SimpleString(getMessage(t)));
    360360                }
    361361                signal(new LispError(getMessage(t)));
     
    584584    };
    585585
    586     private static final Primitive JAVA_OBJECT_P = new Primitive("java-object-p", PACKAGE_JAVA, true,
    587                                                                  "object")
     586    // ### java-object-p
     587    private static final Primitive JAVA_OBJECT_P =
     588        new Primitive("java-object-p", PACKAGE_JAVA, true, "object")
    588589    {
    589590        public LispObject execute(LispObject arg) throws ConditionThrowable
  • trunk/j/src/org/armedbear/lisp/tests/java-tests.lisp

    r10177 r10181  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: java-tests.lisp,v 1.1 2005-10-22 12:14:43 piso Exp $
     4;;; $Id: java-tests.lisp,v 1.2 2005-10-22 14:10:22 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    4646(use-package '#:javatools.jlinker)
    4747#+allegro
     48(use-package '#:javatools.jlinker '#:cl-user) ;; For convenience only.
     49#+allegro
    4850(load "jl-config.cl")
    4951#+allegro
    50 (jlinker-init)
     52(or (jlinker-query) (jlinker-init))
     53
     54#+abcl
     55(deftest java-object.1
     56  (class-name (find-class 'java-object nil))
     57  java-object)
     58
     59(deftest jclass-name.1
     60  (jclass-name (jclass "java.lang.Object"))
     61  "java.lang.Object")
     62
     63(deftest jclass-name.2
     64  (jclass-name (jclass "java.lang.Object") "java.lang.Object")
     65  t
     66  "java.lang.Object")
     67
     68(deftest jclass-name.3
     69  (jclass-name (jclass "java.lang.Object") "foo")
     70  nil
     71  "java.lang.Object")
    5172
    5273(deftest jcall.1
     
    5576  4)
    5677
     78(deftest jfield.1
     79  (type-of (jfield "java.lang.Integer" "TYPE"))
     80  #+abcl    java-object
     81  #+allegro tran-struct)
     82
    5783(do-tests)
    5884
    59 #+allegro
    60 (jlinker-end)
     85;;#+allegro
     86;;(jlinker-end)
Note: See TracChangeset for help on using the changeset viewer.