Changeset 14018
- Timestamp:
- 07/29/12 11:32:09 (9 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 3 deleted
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/StandardClass.java
r14007 r14018 598 598 addStandardClass(Symbol.UNDEFINED_FUNCTION, list(CELL_ERROR)); 599 599 600 public static final StandardClass COMPILER_ERROR =601 addStandardClass(Symbol.COMPILER_ERROR, list(CONDITION));602 603 public static final StandardClass INTERNAL_COMPILER_ERROR =604 addStandardClass(Symbol.INTERNAL_COMPILER_ERROR, list(CONDITION));605 606 public static final StandardClass COMPILER_UNSUPPORTED_FEATURE_ERROR =607 addStandardClass(Symbol.COMPILER_UNSUPPORTED_FEATURE_ERROR,608 list(CONDITION));609 610 600 public static final StandardClass JAVA_EXCEPTION = 611 601 addStandardClass(Symbol.JAVA_EXCEPTION, list(ERROR)); … … 650 640 list(Symbol.CELL_ERROR_NAME)))); 651 641 CLASS.setCPL(CLASS, SPECIALIZER, METAOBJECT, STANDARD_OBJECT, BuiltInClass.CLASS_T); 652 COMPILER_ERROR.setCPL(COMPILER_ERROR, CONDITION, STANDARD_OBJECT,653 BuiltInClass.CLASS_T);654 INTERNAL_COMPILER_ERROR.setCPL(INTERNAL_COMPILER_ERROR, CONDITION, STANDARD_OBJECT,655 BuiltInClass.CLASS_T);656 COMPILER_UNSUPPORTED_FEATURE_ERROR.setCPL(COMPILER_UNSUPPORTED_FEATURE_ERROR,657 CONDITION, STANDARD_OBJECT,658 BuiltInClass.CLASS_T);659 642 CONDITION.setCPL(CONDITION, STANDARD_OBJECT, BuiltInClass.CLASS_T); 660 643 CONDITION.setDirectSlotDefinitions( … … 812 795 ARITHMETIC_ERROR.finalizeClass(); 813 796 CELL_ERROR.finalizeClass(); 814 COMPILER_ERROR.finalizeClass();815 INTERNAL_COMPILER_ERROR.finalizeClass();816 COMPILER_UNSUPPORTED_FEATURE_ERROR.finalizeClass();817 797 CONDITION.finalizeClass(); 818 798 CONTROL_ERROR.finalizeClass(); -
trunk/abcl/src/org/armedbear/lisp/Symbol.java
r14007 r14018 2926 2926 public static final Symbol NIL_VECTOR = 2927 2927 PACKAGE_EXT.addExternalSymbol("NIL-VECTOR"); 2928 public static final Symbol COMPILER_ERROR =2929 PACKAGE_EXT.addExternalSymbol("COMPILER-ERROR");2930 public static final Symbol INTERNAL_COMPILER_ERROR =2931 PACKAGE_EXT.addExternalSymbol("INTERNAL-COMPILER-ERROR");2932 public static final Symbol COMPILER_UNSUPPORTED_FEATURE_ERROR =2933 PACKAGE_EXT.addExternalSymbol("COMPILER-UNSUPPORTED-FEATURE-ERROR");2934 2928 public static final Symbol MAILBOX = 2935 2929 PACKAGE_EXT.addExternalSymbol("MAILBOX"); -
trunk/abcl/src/org/armedbear/lisp/compiler-error.lisp
r12622 r14018 41 41 (defvar *compiler-error-context* nil) 42 42 43 (define-condition compiler-error (error)) 44 (define-condition internal-compiler-error (compiler-error)) 45 (define-condition compiler-unsupported-feature-error (compiler-error)) 46 43 47 (defun compiler-style-warn (format-control &rest format-arguments) 44 48 (warn 'style-warning -
trunk/abcl/src/org/armedbear/lisp/make_condition.java
r12620 r14018 120 120 return new Warning(initArgs); 121 121 122 if (symbol == Symbol.COMPILER_ERROR)123 return new CompilerError(initArgs);124 if (symbol == Symbol.INTERNAL_COMPILER_ERROR)125 return new InternalCompilerError(initArgs);126 if (symbol == Symbol.COMPILER_UNSUPPORTED_FEATURE_ERROR)127 return new CompilerUnsupportedFeatureError(initArgs);128 129 122 return NIL; 130 123 }
Note: See TracChangeset
for help on using the changeset viewer.