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