Changeset 4274


Ignore:
Timestamp:
10/10/03 02:00:31 (19 years ago)
Author:
piso
Message:

EXIT, QUIT

File:
1 edited

Legend:

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

    r4123 r4274  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Extensions.java,v 1.13 2003-09-29 14:10:15 piso Exp $
     5 * $Id: Extensions.java,v 1.14 2003-10-10 02:00:31 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    108108        }
    109109    };
     110
     111    private static final Primitive0 EXIT =
     112        new Primitive0("exit", PACKAGE_EXT, true)
     113    {
     114        public LispObject execute()
     115        {
     116            exit();
     117            return LispThread.currentThread().nothing();
     118        }
     119    };
     120
     121    private static final Primitive0 QUIT =
     122        new Primitive0("quit", PACKAGE_EXT, true)
     123    {
     124        public LispObject execute()
     125        {
     126            exit();
     127            return LispThread.currentThread().nothing();
     128        }
     129    };
    110130}
Note: See TracChangeset for help on using the changeset viewer.