Changeset 3955

Timestamp:

09/21/03 02:05:49 (19 years ago)

Author:

piso

Message:

*DEBUGGER-HOOK*

File:

• trunk/j/src/org/armedbear/lisp/Lisp.java (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/Lisp.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Lisp.java,v 1.140 2003-09-19 16:04:50 piso Exp $
+ * $Id: Lisp.java,v 1.141 2003-09-21 02:05:49 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -275 +275 @@
                 result = obj.getSymbolValue();
                 if (result == null)
-                    throw new ConditionThrowable(new UnboundVariable(obj.getName()));
+                    throw new ConditionThrowable(new UnboundVariable(obj));
             }
             return result;
@@ -958 +958 @@
         exportSpecial("*READ-SUPPRESS*", PACKAGE_CL, NIL);
 
+    public static final Symbol _DEBUGGER_HOOK_ =
+        exportSpecial("*DEBUGGER-HOOK*", PACKAGE_CL, NIL);
+
     public static final Symbol MOST_POSITIVE_FIXNUM =
         exportConstant("MOST-POSITIVE-FIXNUM", PACKAGE_CL,