Changeset 11240

Timestamp:

09/17/07 16:57:19 (16 years ago)

Author:

piso

Message:

one arg minus calls arg.negate()

File:

• trunk/j/src/org/armedbear/lisp/Primitives.java (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/Primitives.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2007 Peter Graves
- * $Id: Primitives.java,v 1.879 2007-02-23 21:17:34 piso Exp $
+ * $Id: Primitives.java,v 1.880 2007-09-17 16:57:19 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -17 +17 @@
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
  */
 
@@ -641 +641 @@
       public LispObject execute(LispObject arg) throws ConditionThrowable
       {
-        return Fixnum.ZERO.subtract(arg);
+        return arg.negate();
       }
       public LispObject execute(LispObject first, LispObject second)