1 21 22 package org.armedbear.lisp; 23 24 import java.io.File ; 25 import java.io.IOException ; 26 27 public final class create_new_file extends Primitive1 29 { 30 private create_new_file() 31 { 32 super("create-new-file", PACKAGE_SYS, false, "pathname"); 33 } 34 35 public LispObject execute(LispObject arg) throws ConditionThrowable 36 { 37 Pathname pathname = Pathname.coerceToPathname(arg); 38 String namestring = pathname.getNamestring(); 39 if (namestring == null) 40 signal(new SimpleError("Pathname has no namestring: " + pathname)); 41 try { 42 return new File (namestring).createNewFile() ? T : NIL; 43 } 44 catch (IOException e) { 45 return signal(new StreamError(null, e)); 46 } 47 } 48 49 private static final Primitive1 CREATE_NEW_FILE = new create_new_file(); 50 } 51 | Popular Tags |