Changeset 10242


Ignore:
Timestamp:
10/27/05 18:32:56 (16 years ago)
Author:
piso
Message:

JCLASS

File:
1 edited

Legend:

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

    r10238 r10242  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves, Andras Simon
    5  * $Id: Java.java,v 1.54 2005-10-25 19:25:13 piso Exp $
     5 * $Id: Java.java,v 1.55 2005-10-27 18:32:56 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5454
    5555    // ### jclass
    56     private static final Primitive JCLASS = new Primitive("jclass", PACKAGE_JAVA, true, "name")
     56    private static final Primitive JCLASS = new Primitive(Symbol.JCLASS, "name")
    5757    {
    5858        public LispObject execute(LispObject arg) throws ConditionThrowable
    5959        {
    60             String className = arg.getStringValue();
     60            String className = javaString(arg);
    6161            try {
    6262                return new JavaObject(classForName(className));
    6363            }
    6464            catch (ClassNotFoundException e) {
    65                 signal(new LispError("class not found: " + className));
     65                signal(new LispError("Class not found: " + className));
    6666            }
    6767            catch (Throwable t) {
Note: See TracChangeset for help on using the changeset viewer.