Changeset 3955


Ignore:
Timestamp:
09/21/03 02:05:49 (19 years ago)
Author:
piso
Message:

*DEBUGGER-HOOK*

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Lisp.java

    r3902 r3955  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Lisp.java,v 1.140 2003-09-19 16:04:50 piso Exp $
     5 * $Id: Lisp.java,v 1.141 2003-09-21 02:05:49 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    275275                result = obj.getSymbolValue();
    276276                if (result == null)
    277                     throw new ConditionThrowable(new UnboundVariable(obj.getName()));
     277                    throw new ConditionThrowable(new UnboundVariable(obj));
    278278            }
    279279            return result;
     
    958958        exportSpecial("*READ-SUPPRESS*", PACKAGE_CL, NIL);
    959959
     960    public static final Symbol _DEBUGGER_HOOK_ =
     961        exportSpecial("*DEBUGGER-HOOK*", PACKAGE_CL, NIL);
     962
    960963    public static final Symbol MOST_POSITIVE_FIXNUM =
    961964        exportConstant("MOST-POSITIVE-FIXNUM", PACKAGE_CL,
Note: See TracChangeset for help on using the changeset viewer.