Changeset 3891


Ignore:
Timestamp:
09/19/03 14:18:08 (19 years ago)
Author:
piso
Message:

Conditions: work in progress.

File:
1 edited

Legend:

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

    r809 r3891  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Go.java,v 1.1 2003-02-19 17:45:06 piso Exp $
     5 * $Id: Go.java,v 1.2 2003-09-19 14:18:08 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2222package org.armedbear.lisp;
    2323
    24 public final class Go extends LispError
     24public final class Go extends ConditionThrowable
    2525{
    2626    private final LispObject tag;
     
    3636    }
    3737
    38     public String getMessage()
     38    public Condition getCondition()
    3939    {
    4040        StringBuffer sb = new StringBuffer("no tag named ");
    4141        sb.append(tag);
    4242        sb.append(" is currently visible");
    43         return sb.toString();
     43        return new ControlError(sb.toString());
    4444    }
    4545}
Note: See TracChangeset for help on using the changeset viewer.