Changeset 13967
- Timestamp:
- 06/15/12 20:41:56 (10 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/Lisp.java
r13885 r13967 1065 1065 type_error(obj, Symbol.SYMBOL); 1066 1066 } 1067 1067 1068 1068 public static final LispObject checkList(LispObject obj) 1069 1069 -
trunk/abcl/src/org/armedbear/lisp/Pathname.java
r13704 r13967 2283 2283 } 2284 2284 2285 public static final Primitive GET_INPUT_STREAM = new pf_get_input_stream(); 2286 @DocString(name="get-input-stream", 2287 args="pathname", 2288 doc="Returns a java.io.InputStream for resource denoted by PATHNAME.") 2289 private static final class pf_get_input_stream extends Primitive { 2290 pf_get_input_stream() { 2291 super("ensure-input-stream", PACKAGE_SYS, true); 2292 } 2293 @Override 2294 public LispObject execute(LispObject pathname) { 2295 Pathname p = (Pathname) coerceToPathname(pathname); 2296 return new JavaObject(p.getInputStream()); 2297 } 2298 }; 2299 2300 2285 2301 public InputStream getInputStream() { 2286 2302 InputStream result = null; -
trunk/abcl/src/org/armedbear/lisp/Symbol.java
r13947 r13967 3065 3065 public static final Symbol JCLASS_OF = 3066 3066 PACKAGE_JAVA.addExternalSymbol("JCLASS-OF"); 3067 public static final Symbol JINPUT_STREAM = 3068 PACKAGE_JAVA.addExternalSymbol("JINPUT-STREAM"); 3067 3069 public static final Symbol JMETHOD_RETURN_TYPE = 3068 3070 PACKAGE_JAVA.addExternalSymbol("JMETHOD-RETURN-TYPE"); … … 3085 3087 public static final Symbol FLOAT_OVERFLOW_MODE = 3086 3088 PACKAGE_SYS.addExternalSymbol("FLOAT-OVERFLOW-MODE"); 3089 public static final Symbol ENSURE_INPUT_STREAM = 3090 PACKAGE_SYS.addExternalSymbol("ENSURE-INPUT-STREAM"); 3087 3091 public static final Symbol CLASS_BYTES = 3088 3092 PACKAGE_SYS.addExternalSymbol("CLASS-BYTES"); -
trunk/abcl/src/org/armedbear/lisp/java.lisp
r13923 r13967 514 514 (error "make-instance not supported for ~S" class)) 515 515 516 (defun jinput-stream (pathname) 517 "Returns a java.io.InputStream for resource denoted by PATHNAME." 518 (sys:ensure-input-stream pathname)) 519 516 520 (provide "JAVA") 521
Note: See TracChangeset
for help on using the changeset viewer.