Changeset 11000


Ignore:
Timestamp:
03/02/06 16:08:39 (15 years ago)
Author:
piso
Message:

EXIT, QUIT: arglist information

File:
1 edited

Legend:

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

    r10900 r11000  
    33 *
    44 * Copyright (C) 2002-2006 Peter Graves
    5  * $Id: Extensions.java,v 1.45 2006-01-09 12:00:54 piso Exp $
     5 * $Id: Extensions.java,v 1.46 2006-03-02 16:08:39 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    153153  // ### exit
    154154  private static final Primitive EXIT =
    155     new Primitive("exit", PACKAGE_EXT, true)
     155    new Primitive("exit", PACKAGE_EXT, true, "&key status")
    156156    {
    157157      public LispObject execute() throws ConditionThrowable
     
    176176  // ### quit
    177177  private static final Primitive QUIT =
    178     new Primitive("quit", PACKAGE_EXT, true)
     178    new Primitive("quit", PACKAGE_EXT, true, "&key status")
    179179    {
    180180      public LispObject execute() throws ConditionThrowable
Note: See TracChangeset for help on using the changeset viewer.