Changeset 5246


Ignore:
Timestamp:
12/24/03 15:00:59 (17 years ago)
Author:
asimon
Message:

JOBJECT-LISP-VALUE

File:
1 edited

Legend:

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

    r5237 r5246  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Java.java,v 1.30 2003-12-20 22:39:07 asimon Exp $
     5 * $Id: Java.java,v 1.31 2003-12-24 15:00:59 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    481481    };
    482482
     483    // ### jobject-lisp-value
     484    // jobject-lisp-value java-object
     485    private static final Primitive JOBJECT_LISP_VALUE =
     486        new Primitive("jobject-lisp-value", PACKAGE_JAVA, true, "java-object")
     487    {
     488        public LispObject execute(LispObject[] args) throws ConditionThrowable
     489        {
     490      if (args.length != 1)
     491                signal(new WrongNumberOfArgumentsException(this));
     492      return makeLispObject(args[0].javaInstance());
     493        }
     494    };
     495
     496
    483497    // Supports Java primitive types too.
    484498    private static Class forClassRef(LispObject classRef) throws ClassNotFoundException, ConditionThrowable
Note: See TracChangeset for help on using the changeset viewer.