Changeset 14089
- Timestamp:
- 08/14/12 21:06:34 (8 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/Interpreter.java
r13454 r14089 331 331 if (i + 1 < args.length) { 332 332 if (arg.equals("--load")) 333 Load.load(new Pathname(args[i + 1]), 333 Load.load(Pathname.mergePathnames(new Pathname(args[i + 1]), 334 checkPathname(Symbol.DEFAULT_PATHNAME_DEFAULTS.getSymbolValue())), 334 335 false, false, true); 335 336 -
trunk/abcl/src/org/armedbear/lisp/Lisp.java
r14078 r14089 1648 1648 return (Package) // Not reached. 1649 1649 type_error(obj, Symbol.PACKAGE); 1650 } 1651 1652 public static Pathname checkPathname(LispObject obj) 1653 { 1654 if (obj instanceof Pathname) 1655 return (Pathname) obj; 1656 return (Pathname) // Not reached. 1657 type_error(obj, Symbol.PATHNAME); 1650 1658 } 1651 1659
Note: See TracChangeset
for help on using the changeset viewer.