1 21 22 package org.armedbear.lisp; 23 24 public final class read_delimited_list extends Primitive 26 { 27 private read_delimited_list() 28 { 29 super("read-delimited-list", "char &optional input-stream recursive-p"); 30 } 31 32 public LispObject execute(LispObject[] args) throws ConditionThrowable 33 { 34 int length = args.length; 35 if (length < 1 || length > 3) 36 signal(new WrongNumberOfArgumentsException(this)); 37 char c = LispCharacter.getValue(args[0]); 38 Stream stream = 39 length > 1 ? inSynonymOf(args[1]) : getStandardInput(); 40 return stream.readDelimitedList(c); 41 } 42 43 private static final Primitive READ_DELIMITED_LIST = new read_delimited_list(); 44 } 45 | Popular Tags |