Changeset 12760

Timestamp:

06/20/10 20:38:08 (13 years ago)

Author:

ehuelsmann

Message:

Remove separate FaslVersionMismatch? exception in favor of
raising a lispy error directly.

File:

• trunk/abcl/src/org/armedbear/lisp/Load.java (modified) (5 diffs)

trunk/abcl/src/org/armedbear/lisp/Load.java

@@ -199 +199 @@
                                       verbose, print, false, returnLastResult);
         }
-        catch (FaslVersionMismatch e) {
-            StringBuilder sb =
-                new StringBuilder("Incorrect fasl version: ");
-            sb.append(truename);
-            return error(new SimpleError(sb.toString()));
-        }
         finally {
             if (in != null) {
@@ -329 +323 @@
                 return loadFileFromStream(pathname, truename, stream,
                                           verbose, print, auto);
-            } catch (FaslVersionMismatch e) {
-                StringBuilder sb =
-                    new StringBuilder("; Incorrect fasl version: ");
-                sb.append(truename);
-                System.err.println(sb.toString());
             } finally {
                 thread.resetSpecialBindings(mark);
@@ -408 +397 @@
 
         {
+            final LispThread thread = LispThread.currentThread();
             if (first == Keyword.VERSION) {
                 if (second.eql(_FASL_VERSION_.getSymbolValue())) {
                     // OK
-                    final LispThread thread = LispThread.currentThread();
                     thread.bindSpecial(_FASL_UNINTERNED_SYMBOLS_, NIL);
                     thread.bindSpecial(_SOURCE_, NIL);
@@ -417 +406 @@
                 }
             }
-            throw new FaslVersionMismatch(second);
+            return
+                error(new SimpleError("FASL version mismatch; found '"
+                        + second.writeToString() + "' but expected '"
+                        + _FASL_VERSION_.getSymbolValue().writeToString()
+                        + "' in "
+                        + Symbol.LOAD_PATHNAME.symbolValue(thread).writeToString()));
         }
     }
@@ -701 +695 @@
         }
     }
-
-    private static class FaslVersionMismatch extends Error
-    {
-        private final LispObject version;
-
-        public FaslVersionMismatch(LispObject version)
-        {
-            this.version = version;
-        }
-
-        public LispObject getVersion()
-        {
-            return version;
-        }
-    }
 }