Changeset 12288
- Timestamp:
- 11/29/09 22:00:12 (14 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 216 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/AbstractArray.java
r12272 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public abstract class AbstractArray extends LispObject -
trunk/abcl/src/org/armedbear/lisp/AbstractBitVector.java
r12255 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public abstract class AbstractBitVector extends AbstractVector -
trunk/abcl/src/org/armedbear/lisp/AbstractString.java
r12285 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public abstract class AbstractString extends AbstractVector -
trunk/abcl/src/org/armedbear/lisp/AbstractVector.java
r12285 r12288 32 32 33 33 package org.armedbear.lisp; 34 35 import static org.armedbear.lisp.Lisp.*; 34 36 35 37 public abstract class AbstractVector extends AbstractArray -
trunk/abcl/src/org/armedbear/lisp/ArithmeticError.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class ArithmeticError extends LispError -
trunk/abcl/src/org/armedbear/lisp/Autoload.java
r12272 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class Autoload extends Function -
trunk/abcl/src/org/armedbear/lisp/AutoloadMacro.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class AutoloadMacro extends Autoload -
trunk/abcl/src/org/armedbear/lisp/BasicVector_UnsignedByte16.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 // A basic vector is a specialized vector that is not displaced to another -
trunk/abcl/src/org/armedbear/lisp/BasicVector_UnsignedByte32.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 // A basic vector is a specialized vector that is not displaced to another -
trunk/abcl/src/org/armedbear/lisp/BasicVector_UnsignedByte8.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 // A basic vector is a specialized vector that is not displaced to another -
trunk/abcl/src/org/armedbear/lisp/Bignum.java
r12285 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.math.BigInteger; -
trunk/abcl/src/org/armedbear/lisp/BroadcastStream.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class BroadcastStream extends Stream -
trunk/abcl/src/org/armedbear/lisp/BuiltInClass.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class BuiltInClass extends LispClass -
trunk/abcl/src/org/armedbear/lisp/ByteArrayOutputStream.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class ByteArrayOutputStream extends Stream -
trunk/abcl/src/org/armedbear/lisp/CaseFrobStream.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public abstract class CaseFrobStream extends Stream -
trunk/abcl/src/org/armedbear/lisp/CellError.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class CellError extends LispError -
trunk/abcl/src/org/armedbear/lisp/CharacterFunctions.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 public final class CharacterFunctions extends Lisp 36 import static org.armedbear.lisp.Lisp.*; 37 38 public final class CharacterFunctions extends LispTrampolinesFile 37 39 { 38 40 // ### char= -
trunk/abcl/src/org/armedbear/lisp/Closure.java
r12272 r12288 34 34 35 35 package org.armedbear.lisp; 36 37 import static org.armedbear.lisp.Lisp.*; 36 38 37 39 import java.util.ArrayList; -
trunk/abcl/src/org/armedbear/lisp/CompiledClosure.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class CompiledClosure extends Closure -
trunk/abcl/src/org/armedbear/lisp/CompilerError.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public class CompilerError extends Condition 37 39 { -
trunk/abcl/src/org/armedbear/lisp/CompilerUnsupportedFeatureError.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public class CompilerUnsupportedFeatureError extends Condition 37 39 { -
trunk/abcl/src/org/armedbear/lisp/Complex.java
r12285 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class Complex extends LispObject -
trunk/abcl/src/org/armedbear/lisp/ComplexArray.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class ComplexArray extends AbstractArray -
trunk/abcl/src/org/armedbear/lisp/ComplexArray_UnsignedByte32.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class ComplexArray_UnsignedByte32 extends AbstractArray -
trunk/abcl/src/org/armedbear/lisp/ComplexArray_UnsignedByte8.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class ComplexArray_UnsignedByte8 extends AbstractArray -
trunk/abcl/src/org/armedbear/lisp/ComplexBitVector.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class ComplexBitVector extends AbstractBitVector -
trunk/abcl/src/org/armedbear/lisp/ComplexString.java
r12255 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class ComplexString extends AbstractString 37 39 { -
trunk/abcl/src/org/armedbear/lisp/ComplexVector.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // A vector that is displaced to another array, has a fill pointer, and/or is 37 39 // expressly adjustable. It can hold elements of any type. -
trunk/abcl/src/org/armedbear/lisp/ComplexVector_UnsignedByte32.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // A specialized vector of element type (UNSIGNED-BYTE 32) that is displaced to 37 39 // another array, has a fill pointer, and/or is expressly adjustable. -
trunk/abcl/src/org/armedbear/lisp/ComplexVector_UnsignedByte8.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // A specialized vector of element type (UNSIGNED-BYTE 8) that is displaced to 37 39 // another array, has a fill pointer, and/or is expressly adjustable. -
trunk/abcl/src/org/armedbear/lisp/ConcatenatedStream.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class ConcatenatedStream extends Stream -
trunk/abcl/src/org/armedbear/lisp/Condition.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public class Condition extends StandardObject 37 39 { -
trunk/abcl/src/org/armedbear/lisp/Cons.java
r12287 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class Cons extends LispObject -
trunk/abcl/src/org/armedbear/lisp/ControlError.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class ControlError extends LispError -
trunk/abcl/src/org/armedbear/lisp/Debug.java
r11391 r12288 34 34 package org.armedbear.lisp; 35 35 36 public final class Debug extends Lisp36 public final class Debug 37 37 { 38 38 public static final void assertTrue(boolean b) -
trunk/abcl/src/org/armedbear/lisp/DispatchMacroFunction.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public abstract class DispatchMacroFunction extends Function -
trunk/abcl/src/org/armedbear/lisp/DivisionByZero.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class DivisionByZero extends ArithmeticError -
trunk/abcl/src/org/armedbear/lisp/Do.java
r12272 r12288 34 34 package org.armedbear.lisp; 35 35 36 public final class Do extends Lisp 36 import static org.armedbear.lisp.Lisp.*; 37 38 public final class Do extends LispTrampolinesFile 37 39 { 38 40 // ### do -
trunk/abcl/src/org/armedbear/lisp/DoubleFloat.java
r12285 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.math.BigInteger; -
trunk/abcl/src/org/armedbear/lisp/EchoStream.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class EchoStream extends Stream 37 39 { -
trunk/abcl/src/org/armedbear/lisp/EndOfFile.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class EndOfFile extends StreamError -
trunk/abcl/src/org/armedbear/lisp/Environment.java
r12274 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class Environment extends LispObject 37 39 { -
trunk/abcl/src/org/armedbear/lisp/Extensions.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.io.File; 37 39 import java.io.IOException; 38 40 39 public final class Extensions extends Lisp 41 public final class Extensions extends LispTrampolinesFile 40 42 { 41 43 // ### *ed-functions* -
trunk/abcl/src/org/armedbear/lisp/FaslReader.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 public final class FaslReader extends Lisp 36 import static org.armedbear.lisp.Lisp.*; 37 38 public final class FaslReader extends LispTrampolinesFile 37 39 { 38 40 // ### fasl-read-comment -
trunk/abcl/src/org/armedbear/lisp/FileError.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class FileError extends LispError -
trunk/abcl/src/org/armedbear/lisp/FileStream.java
r12255 r12288 34 34 35 35 package org.armedbear.lisp; 36 37 import static org.armedbear.lisp.Lisp.*; 36 38 37 39 import java.io.File; -
trunk/abcl/src/org/armedbear/lisp/FillPointerOutputStream.java
r12255 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class FillPointerOutputStream extends Stream -
trunk/abcl/src/org/armedbear/lisp/Fixnum.java
r12285 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.math.BigInteger; 37 39 -
trunk/abcl/src/org/armedbear/lisp/FloatFunctions.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.math.BigInteger; 37 39 38 public final class FloatFunctions extends Lisp 40 public final class FloatFunctions extends LispTrampolinesFile 39 41 { 40 42 // ### set-floating-point-modes &key traps => <no values> -
trunk/abcl/src/org/armedbear/lisp/FloatingPointInexact.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class FloatingPointInexact extends ArithmeticError 37 39 { -
trunk/abcl/src/org/armedbear/lisp/FloatingPointInvalidOperation.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class FloatingPointInvalidOperation extends ArithmeticError 37 39 { -
trunk/abcl/src/org/armedbear/lisp/FloatingPointOverflow.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class FloatingPointOverflow extends ArithmeticError 37 39 { -
trunk/abcl/src/org/armedbear/lisp/FloatingPointUnderflow.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class FloatingPointUnderflow extends ArithmeticError 37 39 { -
trunk/abcl/src/org/armedbear/lisp/ForwardReferencedClass.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class ForwardReferencedClass extends LispClass -
trunk/abcl/src/org/armedbear/lisp/Function.java
r12272 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public abstract class Function extends Operator -
trunk/abcl/src/org/armedbear/lisp/GenericFunction.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public abstract class GenericFunction extends StandardObject 37 39 { -
trunk/abcl/src/org/armedbear/lisp/HashTable.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public abstract class HashTable extends LispObject -
trunk/abcl/src/org/armedbear/lisp/HashTableFunctions.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 public final class HashTableFunctions extends Lisp 36 import static org.armedbear.lisp.Lisp.*; 37 38 public final class HashTableFunctions extends LispTrampolinesFile 37 39 { 38 40 private static final LispObject FUNCTION_EQ = -
trunk/abcl/src/org/armedbear/lisp/IllegalMonitorState.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class IllegalMonitorState extends ProgramError 37 39 { -
trunk/abcl/src/org/armedbear/lisp/Interpreter.java
r12272 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.io.BufferedReader; 37 39 import java.io.File; … … 41 43 import java.io.OutputStream; 42 44 43 public final class Interpreter extends Lisp 45 public final class Interpreter extends LispTrampolinesFile 44 46 { 45 47 // There can only be one interpreter. … … 154 156 public LispObject eval(String s) 155 157 { 156 return eval(new StringInputStream(s).read(true, NIL, false,158 return Lisp.eval(new StringInputStream(s).read(true, NIL, false, 157 159 LispThread.currentThread())); 158 160 } … … 335 337 out.setCharPos(0); 336 338 Symbol.MINUS.setSymbolValue(object); 337 LispObject result = eval(object, new Environment(), thread);339 LispObject result = Lisp.eval(object, new Environment(), thread); 338 340 Debug.assertTrue(result != null); 339 341 Symbol.STAR_STAR_STAR.setSymbolValue(Symbol.STAR_STAR.getSymbolValue()); … … 539 541 thread.bindSpecial(Symbol.DEBUGGER_HOOK, _DEBUGGER_HOOK_FUNCTION); 540 542 try { 541 return eval(obj, new Environment(), thread);543 return Lisp.eval(obj, new Environment(), thread); 542 544 } 543 545 finally { -
trunk/abcl/src/org/armedbear/lisp/JHandler.java
r12255 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.util.HashMap; 37 39 import java.util.Map; 38 40 import java.util.WeakHashMap; 39 41 40 public final class JHandler extends Lisp 42 public final class JHandler extends LispTrampolinesFile 41 43 { 42 44 private static final Map<Object,Map<String,Entry>> table = … … 81 83 LispObject lispAsVector = new SimpleVector(lispAs); 82 84 LispObject[] args = new LispObject[] //FIXME: count -> seq_num 83 { data, new JavaObject(o), lispAiVector, lispAsVector, Keyword.internKeyword(s), count };85 { data, new JavaObject(o), lispAiVector, lispAsVector, internKeyword(s), count }; 84 86 f.execute(args); 85 87 } -
trunk/abcl/src/org/armedbear/lisp/JProxy.java
r12255 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.lang.reflect.InvocationHandler; 37 39 import java.lang.reflect.Method; … … 41 43 import java.util.WeakHashMap; 42 44 43 public final class JProxy extends Lisp 45 public final class JProxy extends LispTrampolinesFile 44 46 { 45 47 private static final Map<Object,Entry> table = new WeakHashMap<Object,Entry>(); -
trunk/abcl/src/org/armedbear/lisp/Java.java
r12255 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.beans.BeanInfo; 37 39 import java.beans.IntrospectionException; … … 47 49 import java.util.Map; 48 50 49 public final class Java extends Lisp 51 public final class Java extends LispTrampolinesFile 50 52 { 51 53 private static final Map<Class,Symbol> registeredExceptions = -
trunk/abcl/src/org/armedbear/lisp/JavaClass.java
r12255 r12288 21 21 22 22 package org.armedbear.lisp; 23 24 import static org.armedbear.lisp.Lisp.*; 23 25 24 26 import java.util.HashMap; -
trunk/abcl/src/org/armedbear/lisp/JavaException.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.io.PrintWriter; -
trunk/abcl/src/org/armedbear/lisp/JavaObject.java
r12255 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.lang.reflect.*; -
trunk/abcl/src/org/armedbear/lisp/JavaStackFrame.java
r12255 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class JavaStackFrame … … 70 72 } 71 73 72 static final Symbol CLASS = Packages.internKeyword("CLASS");73 static final Symbol METHOD = Packages.internKeyword("METHOD");74 static final Symbol FILE = Packages.internKeyword("FILE");75 static final Symbol LINE = Packages.internKeyword("LINE");76 static final Symbol NATIVE_METHOD = Packages.internKeyword("NATIVE-METHOD");74 static final Symbol CLASS = internKeyword("CLASS"); 75 static final Symbol METHOD = internKeyword("METHOD"); 76 static final Symbol FILE = internKeyword("FILE"); 77 static final Symbol LINE = internKeyword("LINE"); 78 static final Symbol NATIVE_METHOD = internKeyword("NATIVE-METHOD"); 77 79 78 80 public LispObject toLispList() -
trunk/abcl/src/org/armedbear/lisp/Keyword.java
r11700 r12288 34 34 package org.armedbear.lisp; 35 35 36 public final class Keyword extends Lisp 36 import static org.armedbear.lisp.Lisp.*; 37 38 public final class Keyword extends LispTrampolinesFile 37 39 { 38 40 public static final Symbol -
trunk/abcl/src/org/armedbear/lisp/Layout.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class Layout extends LispObject -
trunk/abcl/src/org/armedbear/lisp/Lisp.java
r12274 r12288 47 47 import java.util.zip.ZipFile; 48 48 49 public abstractclass Lisp49 public final class Lisp 50 50 { 51 51 public static final boolean debug = true; … … 381 381 } 382 382 383 p rotectedstatic volatile boolean interrupted;383 public static volatile boolean interrupted; 384 384 385 385 public static synchronized final void setInterrupted(boolean b) … … 491 491 492 492 // Also used in JProxy.java. 493 p rotectedstatic final LispObject evalCall(LispObject function,493 public static final LispObject evalCall(LispObject function, 494 494 LispObject args, 495 495 Environment env, … … 819 819 } 820 820 821 p rotectedstatic final void bindArg(LispObject ownSpecials,821 public static final void bindArg(LispObject ownSpecials, 822 822 Symbol sym, LispObject value, 823 823 Environment env, LispThread thread) … … 1835 1835 } 1836 1836 1837 public LispObject assq(LispObject item, LispObject alist)1837 public static LispObject assq(LispObject item, LispObject alist) 1838 1838 1839 1839 { -
trunk/abcl/src/org/armedbear/lisp/LispCharacter.java
r12285 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 import java.util.HashMap; 36 38 import java.util.Map; -
trunk/abcl/src/org/armedbear/lisp/LispClass.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public abstract class LispClass extends StandardObject 37 39 { -
trunk/abcl/src/org/armedbear/lisp/LispError.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class LispError extends SeriousCondition -
trunk/abcl/src/org/armedbear/lisp/LispObject.java
r12287 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 36 37 import java.util.WeakHashMap; 37 38 38 public class LispObject extends Lisp39 public class LispObject //extends Lisp 39 40 { 40 41 public LispObject typeOf() -
trunk/abcl/src/org/armedbear/lisp/LispReader.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 public final class LispReader extends Lisp 36 import static org.armedbear.lisp.Lisp.*; 37 38 public final class LispReader extends LispTrampolinesFile 37 39 { 38 40 // ### read-comment -
trunk/abcl/src/org/armedbear/lisp/LispStackFrame.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class LispStackFrame -
trunk/abcl/src/org/armedbear/lisp/LispThread.java
r12280 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.util.Iterator; 37 39 import java.util.concurrent.ConcurrentHashMap; … … 1097 1099 //FIXME: this block has been added for pre-0.16 compatibility 1098 1100 // and can be removed the latest at release 0.22 1099 PACKAGE_EXT.export( Symbol.intern("MAKE-THREAD", PACKAGE_THREADS));1100 PACKAGE_EXT.export( Symbol.intern("THREADP", PACKAGE_THREADS));1101 PACKAGE_EXT.export( Symbol.intern("THREAD-ALIVE-P", PACKAGE_THREADS));1102 PACKAGE_EXT.export( Symbol.intern("THREAD-NAME", PACKAGE_THREADS));1103 PACKAGE_EXT.export( Symbol.intern("MAPCAR-THREADS", PACKAGE_THREADS));1104 PACKAGE_EXT.export( Symbol.intern("DESTROY-THREAD", PACKAGE_THREADS));1105 PACKAGE_EXT.export( Symbol.intern("INTERRUPT-THREAD", PACKAGE_THREADS));1106 PACKAGE_EXT.export( Symbol.intern("CURRENT-THREAD", PACKAGE_THREADS));1101 PACKAGE_EXT.export(intern("MAKE-THREAD", PACKAGE_THREADS)); 1102 PACKAGE_EXT.export(intern("THREADP", PACKAGE_THREADS)); 1103 PACKAGE_EXT.export(intern("THREAD-ALIVE-P", PACKAGE_THREADS)); 1104 PACKAGE_EXT.export(intern("THREAD-NAME", PACKAGE_THREADS)); 1105 PACKAGE_EXT.export(intern("MAPCAR-THREADS", PACKAGE_THREADS)); 1106 PACKAGE_EXT.export(intern("DESTROY-THREAD", PACKAGE_THREADS)); 1107 PACKAGE_EXT.export(intern("INTERRUPT-THREAD", PACKAGE_THREADS)); 1108 PACKAGE_EXT.export(intern("CURRENT-THREAD", PACKAGE_THREADS)); 1107 1109 } 1108 1110 -
trunk/abcl/src/org/armedbear/lisp/Load.java
r12278 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.io.ByteArrayInputStream; 37 39 import java.io.ByteArrayOutputStream; … … 65 67 */ 66 68 67 public final class Load extends Lisp 69 public final class Load extends LispTrampolinesFile 68 70 { 69 71 public static final LispObject load(String filename) -
trunk/abcl/src/org/armedbear/lisp/LogicalPathname.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.util.HashMap; -
trunk/abcl/src/org/armedbear/lisp/MacroObject.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class MacroObject extends Function 37 39 { 38 pr ivatefinal LispObject name;40 protected final LispObject name; 39 41 public final LispObject expander; 40 42 -
trunk/abcl/src/org/armedbear/lisp/MathFunctions.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 public final class MathFunctions extends Lisp 36 import static org.armedbear.lisp.Lisp.*; 37 38 public final class MathFunctions extends LispTrampolinesFile 37 39 { 38 40 // ### sin -
trunk/abcl/src/org/armedbear/lisp/Nil.java
r12287 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class Nil extends Symbol 37 39 { -
trunk/abcl/src/org/armedbear/lisp/NilVector.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class NilVector extends AbstractString 37 39 { -
trunk/abcl/src/org/armedbear/lisp/Operator.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public abstract class Operator extends LispObject -
trunk/abcl/src/org/armedbear/lisp/Package.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.util.ArrayList; 37 39 import java.util.HashMap; -
trunk/abcl/src/org/armedbear/lisp/PackageError.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class PackageError extends LispError -
trunk/abcl/src/org/armedbear/lisp/PackageFunctions.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 public final class PackageFunctions extends Lisp 36 import static org.armedbear.lisp.Lisp.*; 37 38 public final class PackageFunctions extends LispTrampolinesFile 37 39 { 38 40 // ### packagep -
trunk/abcl/src/org/armedbear/lisp/Packages.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.util.ArrayList; 37 39 import java.util.HashMap; … … 39 41 import java.util.List; 40 42 41 public final class Packages extends Lisp 43 public final class Packages extends LispTrampolinesFile 42 44 { 43 45 private static final ArrayList<Package> packages = new ArrayList<Package>(); -
trunk/abcl/src/org/armedbear/lisp/ParseError.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class ParseError extends LispError -
trunk/abcl/src/org/armedbear/lisp/Pathname.java
r12255 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.io.File; -
trunk/abcl/src/org/armedbear/lisp/Primitives.java
r12272 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.math.BigInteger; 37 39 import java.util.ArrayList; 38 40 39 public final class Primitives extends Lisp 41 public final class Primitives extends LispTrampolinesFile 40 42 { 41 43 // ### * -
trunk/abcl/src/org/armedbear/lisp/PrintNotReadable.java
r12272 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class PrintNotReadable extends LispError -
trunk/abcl/src/org/armedbear/lisp/Profiler.java
r12255 r12288 34 34 package org.armedbear.lisp; 35 35 36 public class Profiler extends Lisp 36 import static org.armedbear.lisp.Lisp.*; 37 38 public class Profiler extends LispTrampolinesFile 37 39 { 38 40 private static int sleep = 1; -
trunk/abcl/src/org/armedbear/lisp/ProgramError.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class ProgramError extends LispError -
trunk/abcl/src/org/armedbear/lisp/RandomState.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.io.File; -
trunk/abcl/src/org/armedbear/lisp/Ratio.java
r12285 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.math.BigInteger; -
trunk/abcl/src/org/armedbear/lisp/ReaderError.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class ReaderError extends StreamError -
trunk/abcl/src/org/armedbear/lisp/ReaderMacroFunction.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public abstract class ReaderMacroFunction extends Function -
trunk/abcl/src/org/armedbear/lisp/Readtable.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 import java.util.Iterator; 36 38 -
trunk/abcl/src/org/armedbear/lisp/RuntimeClass.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.io.File; 37 39 import java.util.Map; 38 40 import java.util.HashMap; 39 41 40 public class RuntimeClass extends Lisp 42 public class RuntimeClass extends LispTrampolinesFile 41 43 { 42 44 private static Map<String,RuntimeClass> classes = new HashMap<String,RuntimeClass>(); -
trunk/abcl/src/org/armedbear/lisp/SeriousCondition.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class SeriousCondition extends Condition -
trunk/abcl/src/org/armedbear/lisp/ShellCommand.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.io.BufferedReader; 37 39 import java.io.IOException; … … 41 43 import java.util.List; 42 44 43 public final class ShellCommand extends Lisp implements Runnable45 public final class ShellCommand extends LispTrampolinesFile implements Runnable 44 46 { 45 47 private final String command; -
trunk/abcl/src/org/armedbear/lisp/SimpleArray_T.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class SimpleArray_T extends AbstractArray 37 39 { -
trunk/abcl/src/org/armedbear/lisp/SimpleArray_UnsignedByte16.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class SimpleArray_UnsignedByte16 extends AbstractArray -
trunk/abcl/src/org/armedbear/lisp/SimpleArray_UnsignedByte32.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class SimpleArray_UnsignedByte32 extends AbstractArray -
trunk/abcl/src/org/armedbear/lisp/SimpleArray_UnsignedByte8.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class SimpleArray_UnsignedByte8 extends AbstractArray -
trunk/abcl/src/org/armedbear/lisp/SimpleBitVector.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // "The type of a bit vector that is not displaced to another array, has no 37 39 // fill pointer, and is not expressly adjustable is a subtype of type SIMPLE- -
trunk/abcl/src/org/armedbear/lisp/SimpleCondition.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class SimpleCondition extends Condition -
trunk/abcl/src/org/armedbear/lisp/SimpleError.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class SimpleError extends LispError -
trunk/abcl/src/org/armedbear/lisp/SimpleString.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class SimpleString extends AbstractString 37 39 { -
trunk/abcl/src/org/armedbear/lisp/SimpleTypeError.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class SimpleTypeError extends TypeError -
trunk/abcl/src/org/armedbear/lisp/SimpleVector.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // "The type of a vector that is not displaced to another array, has no fill 37 39 // pointer, is not expressly adjustable and is able to hold elements of any -
trunk/abcl/src/org/armedbear/lisp/SimpleWarning.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class SimpleWarning extends Warning -
trunk/abcl/src/org/armedbear/lisp/SingleFloat.java
r12285 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.math.BigInteger; 37 39 -
trunk/abcl/src/org/armedbear/lisp/Site.java
r11813 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.io.File; 37 39 import java.net.URL; 38 40 import java.net.URLDecoder; 39 41 40 public final class Site extends Lisp 42 public final class Site extends LispTrampolinesFile 41 43 { 42 44 private static final String LISP_HOME; -
trunk/abcl/src/org/armedbear/lisp/SiteName.java
r11488 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.net.InetAddress; 37 39 38 public final class SiteName extends Lisp 40 public final class SiteName extends LispTrampolinesFile 39 41 { 40 42 private static LispObject getHostName() -
trunk/abcl/src/org/armedbear/lisp/SlimeInputStream.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class SlimeInputStream extends Stream -
trunk/abcl/src/org/armedbear/lisp/SlimeOutputStream.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.io.StringWriter; -
trunk/abcl/src/org/armedbear/lisp/SlotClass.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class SlotClass extends LispClass -
trunk/abcl/src/org/armedbear/lisp/SlotDefinition.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class SlotDefinition extends StandardObject 37 39 { -
trunk/abcl/src/org/armedbear/lisp/SlotDefinitionClass.java
r11711 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class SlotDefinitionClass extends StandardClass 37 39 { -
trunk/abcl/src/org/armedbear/lisp/SocketStream.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.net.Socket; -
trunk/abcl/src/org/armedbear/lisp/SpecialOperator.java
r12255 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class SpecialOperator extends Operator -
trunk/abcl/src/org/armedbear/lisp/SpecialOperators.java
r12272 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.util.ArrayList; 37 39 import java.util.LinkedList; 38 public final class SpecialOperators extends Lisp 40 public final class SpecialOperators extends LispTrampolinesFile 39 41 { 40 42 // ### quote … … 503 505 504 506 { 505 LispObject value = Symbol.NIL;507 LispObject value = Nil.NIL; 506 508 final LispThread thread = LispThread.currentThread(); 507 509 while (args != NIL) -
trunk/abcl/src/org/armedbear/lisp/StackFrame.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public abstract class StackFrame 37 39 extends LispObject -
trunk/abcl/src/org/armedbear/lisp/StandardClass.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class StandardClass extends SlotClass -
trunk/abcl/src/org/armedbear/lisp/StandardGenericFunction.java
r12255 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.util.HashMap; 37 39 -
trunk/abcl/src/org/armedbear/lisp/StandardGenericFunctionClass.java
r11711 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class StandardGenericFunctionClass extends StandardClass -
trunk/abcl/src/org/armedbear/lisp/StandardMethod.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class StandardMethod extends StandardObject -
trunk/abcl/src/org/armedbear/lisp/StandardMethodClass.java
r11711 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class StandardMethodClass extends StandardClass 37 39 { -
trunk/abcl/src/org/armedbear/lisp/StandardObject.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public class StandardObject extends LispObject 37 39 { -
trunk/abcl/src/org/armedbear/lisp/StandardObjectFunctions.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 public class StandardObjectFunctions extends Lisp 36 import static org.armedbear.lisp.Lisp.*; 37 38 public class StandardObjectFunctions extends LispTrampolinesFile 37 39 { 38 40 // ### std-allocate-instance class => instance -
trunk/abcl/src/org/armedbear/lisp/StandardReaderMethod.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class StandardReaderMethod extends StandardMethod -
trunk/abcl/src/org/armedbear/lisp/StandardReaderMethodClass.java
r11711 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class StandardReaderMethodClass extends StandardClass -
trunk/abcl/src/org/armedbear/lisp/StorageCondition.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class StorageCondition extends SeriousCondition -
trunk/abcl/src/org/armedbear/lisp/Stream.java
r12272 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.io.BufferedInputStream; 37 39 import java.io.BufferedOutputStream; … … 91 93 } 92 94 93 static final protected Symbol keywordDefault = Packages.internKeyword("DEFAULT");95 static final protected Symbol keywordDefault = internKeyword("DEFAULT"); 94 96 95 static final private Symbol keywordCodePage = Packages.internKeyword("CODE-PAGE");96 static final private Symbol keywordID = Packages.internKeyword("ID");97 98 static final private Symbol keywordEolStyle = Packages.internKeyword("EOL-STYLE");99 static final private Symbol keywordCR = Packages.internKeyword("CR");100 static final private Symbol keywordLF = Packages.internKeyword("LF");101 static final private Symbol keywordCRLF = Packages.internKeyword("CRLF");102 static final private Symbol keywordRAW = Packages.internKeyword("RAW");97 static final private Symbol keywordCodePage = internKeyword("CODE-PAGE"); 98 static final private Symbol keywordID = internKeyword("ID"); 99 100 static final private Symbol keywordEolStyle = internKeyword("EOL-STYLE"); 101 static final private Symbol keywordCR = internKeyword("CR"); 102 static final private Symbol keywordLF = internKeyword("LF"); 103 static final private Symbol keywordCRLF = internKeyword("CRLF"); 104 static final private Symbol keywordRAW = internKeyword("RAW"); 103 105 104 106 public final static EolStyle platformEolStyle = Utilities.isPlatformWindows ? EolStyle.CRLF : EolStyle.LF; … … 106 108 protected EolStyle eolStyle = platformEolStyle; 107 109 protected char eolChar = (eolStyle == EolStyle.CR) ? '\r' : '\n'; 108 protected LispObject externalFormat = LispObject.NIL;110 protected LispObject externalFormat = NIL; 109 111 protected String encoding = null; 110 112 protected char lastChar = 0; … … 291 293 encIsCp = true; 292 294 293 enc = LispObject.getf(format.cdr(), keywordID, null);295 enc = getf(format.cdr(), keywordID, null); 294 296 } 295 297 296 LispObject eol = LispObject.getf(format.cdr(), keywordEolStyle, keywordRAW);298 LispObject eol = getf(format.cdr(), keywordEolStyle, keywordRAW); 297 299 if (eol == keywordCR) 298 300 eolStyle = EolStyle.CR; -
trunk/abcl/src/org/armedbear/lisp/StreamError.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class StreamError extends LispError -
trunk/abcl/src/org/armedbear/lisp/StringFunctions.java
r12255 r12288 34 34 package org.armedbear.lisp; 35 35 36 public final class StringFunctions extends Lisp 36 import static org.armedbear.lisp.Lisp.*; 37 38 public final class StringFunctions extends LispTrampolinesFile 37 39 { 38 40 // ### %string= -
trunk/abcl/src/org/armedbear/lisp/StringInputStream.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.io.StringReader; -
trunk/abcl/src/org/armedbear/lisp/StringOutputStream.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.io.StringWriter; -
trunk/abcl/src/org/armedbear/lisp/StructureClass.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class StructureClass extends SlotClass -
trunk/abcl/src/org/armedbear/lisp/StructureObject.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class StructureObject extends LispObject -
trunk/abcl/src/org/armedbear/lisp/StyleWarning.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class StyleWarning extends Warning 37 39 { -
trunk/abcl/src/org/armedbear/lisp/Symbol.java
r12275 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class Symbol extends LispObject -
trunk/abcl/src/org/armedbear/lisp/SynonymStream.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class SynonymStream extends Stream 37 39 { -
trunk/abcl/src/org/armedbear/lisp/Time.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.lang.reflect.Method; 37 39 import java.util.Date; 38 40 import java.util.TimeZone; 39 41 40 public final class Time extends Lisp 42 public final class Time extends LispTrampolinesFile 41 43 { 42 44 -
trunk/abcl/src/org/armedbear/lisp/TwoWayStream.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public class TwoWayStream extends Stream 37 39 { -
trunk/abcl/src/org/armedbear/lisp/TypeError.java
r12272 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public class TypeError extends LispError -
trunk/abcl/src/org/armedbear/lisp/UnboundSlot.java
r12272 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class UnboundSlot extends CellError -
trunk/abcl/src/org/armedbear/lisp/UnboundVariable.java
r12272 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class UnboundVariable extends CellError -
trunk/abcl/src/org/armedbear/lisp/UndefinedFunction.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class UndefinedFunction extends CellError -
trunk/abcl/src/org/armedbear/lisp/Utilities.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.io.ByteArrayInputStream; 37 39 import java.io.ByteArrayOutputStream; … … 43 45 import java.util.zip.ZipInputStream; 44 46 45 public final class Utilities extends Lisp 47 public final class Utilities extends LispTrampolinesFile 46 48 { 47 49 public static final boolean isPlatformUnix; -
trunk/abcl/src/org/armedbear/lisp/Warning.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public class Warning extends Condition 37 39 { -
trunk/abcl/src/org/armedbear/lisp/WrongNumberOfArgumentsException.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class WrongNumberOfArgumentsException extends ProgramError 37 39 { -
trunk/abcl/src/org/armedbear/lisp/ZeroRankArray.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class ZeroRankArray extends AbstractArray -
trunk/abcl/src/org/armedbear/lisp/adjust_array.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 // ### %adjust-array array new-dimensions element-type initial-element -
trunk/abcl/src/org/armedbear/lisp/arglist.java
r12272 r12288 34 34 package org.armedbear.lisp; 35 35 36 public final class arglist extends Lisp 36 import static org.armedbear.lisp.Lisp.*; 37 38 public final class arglist extends LispTrampolinesFile 37 39 { 38 40 private static final Operator getOperator(LispObject obj) -
trunk/abcl/src/org/armedbear/lisp/assq.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // ### assq item alist => entry 37 39 public final class assq extends Primitive … … 46 48 47 49 { 48 return assq(item, alist);50 return Lisp.assq(item, alist); 49 51 } 50 52 -
trunk/abcl/src/org/armedbear/lisp/assql.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // ### assql item alist => entry 37 39 public final class assql extends Primitive -
trunk/abcl/src/org/armedbear/lisp/cell_error_name.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // ### cell-error-name 37 39 public final class cell_error_name extends Primitive -
trunk/abcl/src/org/armedbear/lisp/copy_list.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // ### copy-list list => copy 37 39 public final class copy_list extends Primitive -
trunk/abcl/src/org/armedbear/lisp/create_new_file.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.io.File; 37 39 import java.io.IOException; -
trunk/abcl/src/org/armedbear/lisp/cxr.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 public final class cxr extends Lisp 36 import static org.armedbear.lisp.Lisp.*; 37 38 public final class cxr extends LispTrampolinesFile 37 39 { 38 40 // ### set-car -
trunk/abcl/src/org/armedbear/lisp/delete_file.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.io.File; -
trunk/abcl/src/org/armedbear/lisp/disassemble_class_bytes.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.io.File; -
trunk/abcl/src/org/armedbear/lisp/dolist.java
r12272 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 // ### dolist -
trunk/abcl/src/org/armedbear/lisp/dotimes.java
r12272 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class dotimes extends SpecialOperator -
trunk/abcl/src/org/armedbear/lisp/file_author.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.io.File; 37 39 -
trunk/abcl/src/org/armedbear/lisp/file_error_pathname.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // ### file-error-pathname 37 39 public final class file_error_pathname extends Primitive -
trunk/abcl/src/org/armedbear/lisp/file_length.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 public final class file_length extends Primitive 37 39 { -
trunk/abcl/src/org/armedbear/lisp/file_string_length.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // ### file-string-length 37 39 public final class file_string_length extends Primitive -
trunk/abcl/src/org/armedbear/lisp/file_write_date.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.io.File; 37 39 -
trunk/abcl/src/org/armedbear/lisp/float_sign.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 // ### float-sign -
trunk/abcl/src/org/armedbear/lisp/function_info.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 public final class function_info extends Lisp 36 import static org.armedbear.lisp.Lisp.*; 37 38 public final class function_info extends LispTrampolinesFile 37 39 { 38 40 private static EqualHashTable FUNCTION_TABLE = -
trunk/abcl/src/org/armedbear/lisp/gc.java
r11488 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 // ### gc -
trunk/abcl/src/org/armedbear/lisp/get_properties.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 // ### get-properties -
trunk/abcl/src/org/armedbear/lisp/input_stream_p.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // ### input-stream-p 37 39 public final class input_stream_p extends Primitive -
trunk/abcl/src/org/armedbear/lisp/interactive_stream_p.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // ### interactive-stream-p 37 39 public final class interactive_stream_p extends Primitive -
trunk/abcl/src/org/armedbear/lisp/jclass_name.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 // ### jclass-name class-ref &optional name -
trunk/abcl/src/org/armedbear/lisp/jclass_of.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 // ### jclass-of object &optional name -
trunk/abcl/src/org/armedbear/lisp/jmethod_return_type.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.lang.reflect.Method; 37 39 -
trunk/abcl/src/org/armedbear/lisp/last.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 // ### last list &optional n => tail -
trunk/abcl/src/org/armedbear/lisp/listen.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // ### listen 37 39 public final class listen extends Primitive -
trunk/abcl/src/org/armedbear/lisp/logand.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.math.BigInteger; -
trunk/abcl/src/org/armedbear/lisp/logandc1.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.math.BigInteger; -
trunk/abcl/src/org/armedbear/lisp/logandc2.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.math.BigInteger; -
trunk/abcl/src/org/armedbear/lisp/logbitp.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.math.BigInteger; -
trunk/abcl/src/org/armedbear/lisp/logcount.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.math.BigInteger; 37 39 -
trunk/abcl/src/org/armedbear/lisp/logeqv.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.math.BigInteger; -
trunk/abcl/src/org/armedbear/lisp/logior.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 // ### logior &rest integers => result-integer -
trunk/abcl/src/org/armedbear/lisp/lognand.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.math.BigInteger; -
trunk/abcl/src/org/armedbear/lisp/lognor.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.math.BigInteger; -
trunk/abcl/src/org/armedbear/lisp/logorc1.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.math.BigInteger; -
trunk/abcl/src/org/armedbear/lisp/logorc2.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.math.BigInteger; -
trunk/abcl/src/org/armedbear/lisp/logtest.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.math.BigInteger; -
trunk/abcl/src/org/armedbear/lisp/logxor.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 // ### logxor &rest integers => result-integer -
trunk/abcl/src/org/armedbear/lisp/machine_version.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.io.BufferedReader; -
trunk/abcl/src/org/armedbear/lisp/make_array.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 // ### %make-array dimensions element-type initial-element initial-element-p -
trunk/abcl/src/org/armedbear/lisp/make_condition.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 public final class make_condition extends Primitive -
trunk/abcl/src/org/armedbear/lisp/make_server_socket.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.net.ServerSocket; 37 39 -
trunk/abcl/src/org/armedbear/lisp/make_socket.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.net.Socket; 37 39 -
trunk/abcl/src/org/armedbear/lisp/open_stream_p.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // ### open-stream-p 37 39 public final class open_stream_p extends Primitive -
trunk/abcl/src/org/armedbear/lisp/output_stream_p.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // ### output-stream-p 37 39 public final class output_stream_p extends Primitive -
trunk/abcl/src/org/armedbear/lisp/package_error_package.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // ### package-error-package 37 39 public final class package_error_package extends Primitive -
trunk/abcl/src/org/armedbear/lisp/peek_char.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 // ### peek-char -
trunk/abcl/src/org/armedbear/lisp/probe_file.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.io.File; 37 39 38 public final class probe_file extends Lisp 40 public final class probe_file extends LispTrampolinesFile 39 41 { 40 42 // ### probe-file -
trunk/abcl/src/org/armedbear/lisp/room.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 // ### room -
trunk/abcl/src/org/armedbear/lisp/server_socket_close.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.net.ServerSocket; 37 39 -
trunk/abcl/src/org/armedbear/lisp/simple_list_remove_duplicates.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // ### simple-list-remove-duplicates 37 39 public final class simple_list_remove_duplicates extends Primitive -
trunk/abcl/src/org/armedbear/lisp/socket_accept.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.net.ServerSocket; 37 39 import java.net.Socket; -
trunk/abcl/src/org/armedbear/lisp/socket_close.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.net.Socket; 37 39 -
trunk/abcl/src/org/armedbear/lisp/socket_stream.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 import java.net.Socket; 37 39 -
trunk/abcl/src/org/armedbear/lisp/stream_element_type.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // ### stream-element-type 37 39 public final class stream_element_type extends Primitive -
trunk/abcl/src/org/armedbear/lisp/stream_external_format.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // ### stream-external-format 37 39 public final class stream_external_format extends Primitive -
trunk/abcl/src/org/armedbear/lisp/unbound_slot_instance.java
r12254 r12288 34 34 package org.armedbear.lisp; 35 35 36 import static org.armedbear.lisp.Lisp.*; 37 36 38 // ### unbound-slot-instance 37 39 public final class unbound_slot_instance extends Primitive -
trunk/abcl/src/org/armedbear/lisp/zip.java
r12254 r12288 33 33 34 34 package org.armedbear.lisp; 35 36 import static org.armedbear.lisp.Lisp.*; 35 37 36 38 import java.io.File;
Note: See TracChangeset
for help on using the changeset viewer.