Changeset 11131


Ignore:
Timestamp:
02/11/07 15:47:46 (14 years ago)
Author:
piso
Message:

interrupt-lisp

Location:
trunk/j/src/org/armedbear/lisp
Files:
3 edited

Legend:

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

    r11000 r11131  
    22 * Extensions.java
    33 *
    4  * Copyright (C) 2002-2006 Peter Graves
    5  * $Id: Extensions.java,v 1.46 2006-03-02 16:08:39 piso Exp $
     4 * Copyright (C) 2002-2007 Peter Graves
     5 * $Id: Extensions.java,v 1.47 2007-02-11 15:47:45 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    227227      }
    228228    };
     229
     230  // ### interrupt-lisp
     231  private static final Primitive INTERRUPT_LISP =
     232    new Primitive("interrupt-lisp", PACKAGE_EXT, true, "")
     233    {
     234      public LispObject execute() throws ConditionThrowable
     235      {
     236        setInterrupted(true);
     237        return T;
     238      }
     239    };
    229240}
  • trunk/j/src/org/armedbear/lisp/Symbol.java

    r11130 r11131  
    33 *
    44 * Copyright (C) 2002-2007 Peter Graves
    5  * $Id: Symbol.java,v 1.248 2007-02-11 15:10:53 piso Exp $
     5 * $Id: Symbol.java,v 1.249 2007-02-11 15:47:45 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    28592859  public static final Symbol CHARACTER_DESIGNATOR =
    28602860    PACKAGE_EXT.addExternalSymbol("CHARACTER-DESIGNATOR");
     2861  public static final Symbol INTERRUPT_LISP =
     2862    PACKAGE_EXT.addExternalSymbol("INTERRUPT-LISP");
    28612863
    28622864  // MOP.
  • trunk/j/src/org/armedbear/lisp/swank-abcl.lisp

    r9438 r11131  
    11;;; swank-abcl.lisp
    22;;;
    3 ;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: swank-abcl.lisp,v 1.10 2005-06-17 17:39:15 piso Exp $
     3;;; Copyright (C) 2004-2007 Peter Graves
     4;;; $Id: swank-abcl.lisp,v 1.11 2007-02-11 15:47:46 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    7979          (t
    8080           nil))))
     81
     82(defun swank-interrupt-lisp ()
     83  (ext:interrupt-lisp))
Note: See TracChangeset for help on using the changeset viewer.