Changeset 8220


Ignore:
Timestamp:
12/07/04 01:16:30 (17 years ago)
Author:
piso
Message:

-

File:
1 edited

Legend:

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

    r8219 r8220  
    33 *
    44 * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: Primitives.java,v 1.711 2004-12-07 01:11:23 piso Exp $
     5 * $Id: Primitives.java,v 1.712 2004-12-07 01:16:30 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    593593        new Primitive("-", "minuend &rest subtrahends")
    594594    {
     595        public LispObject execute(LispObject arg) throws ConditionThrowable
     596        {
     597            return Fixnum.ZERO.subtract(arg);
     598        }
    595599        public LispObject execute(LispObject first, LispObject second)
    596600            throws ConditionThrowable
     
    604608                    signal(new WrongNumberOfArgumentsException("-"));
    605609                case 1:
     610                    Debug.assertTrue(false);
    606611                    return Fixnum.ZERO.subtract(args[0]);
    607612                case 2:
     
    619624
    620625    // ### 1-
    621     private static final Primitive ONE_MINUS = new Primitive("1-","number")
     626    private static final Primitive ONE_MINUS = new Primitive("1-", "number")
    622627    {
    623628        public LispObject execute(LispObject arg) throws ConditionThrowable
Note: See TracChangeset for help on using the changeset viewer.