Changeset 4648
- Timestamp:
- 11/04/03 22:26:36 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Java.java
r4574 r4648 3 3 * 4 4 * Copyright (C) 2002-2003 Peter Graves 5 * $Id: Java.java,v 1.1 6 2003-10-30 08:16:11asimon Exp $5 * $Id: Java.java,v 1.17 2003-11-04 22:26:36 asimon Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 317 317 Object[] initargs = new Object[args.length-1]; 318 318 for (int i = 1; i < args.length; i++) { 319 LispObject arg = args[i]; 320 if (arg instanceof LispString) 321 initargs[i-1] = ((LispString)arg).getValue(); 322 else if (arg instanceof Fixnum) 323 initargs[i-1] = new Integer(((Fixnum)arg).getValue()); 324 else if (arg instanceof LispFloat) 325 initargs[i-1] = new Double(((LispFloat)arg).getValue()); 326 else if (arg instanceof JavaObject) 327 initargs[i-1] = ((JavaObject)arg).getObject(); 319 initargs[i-1] = args[i].javaInstance(); 328 320 } 329 321 return new JavaObject(constructor.newInstance(initargs));
Note: See TracChangeset
for help on using the changeset viewer.