1 21 22 package org.armedbear.lisp; 23 24 import java.net.ServerSocket ; 25 26 public final class make_server_socket extends Primitive1 28 { 29 private make_server_socket() 30 { 31 super("%make-server-socket", PACKAGE_SYS, false, "port element-type"); 32 } 33 34 public LispObject execute(LispObject first) 35 throws ConditionThrowable 36 { 37 int port = Fixnum.getValue(first); 38 try { 39 ServerSocket socket = new ServerSocket (port); 40 return new JavaObject(socket); 41 } 42 catch (Exception e) { 43 return signal(new LispError(e.getMessage())); 44 } 45 } 46 47 private static final Primitive1 MAKE_SERVER_SOCKET = new make_server_socket(); 48 } 49 | Popular Tags |