Changeset 4029


Ignore:
Timestamp:
09/23/03 16:25:03 (20 years ago)
Author:
piso
Message:

ASH

File:
1 edited

Legend:

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

    r4026 r4029  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.432 2003-09-23 15:43:08 piso Exp $
     5 * $Id: Primitives.java,v 1.433 2003-09-23 16:25:03 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    39713971                    throw new ConditionThrowable(new LispError("can't represent result of left shift"));
    39723972                if (count.signum() < 0)
    3973                     return Fixnum.ZERO;
     3973                    return n.signum() >= 0 ? Fixnum.ZERO : new Fixnum(-1);
    39743974                Debug.bug(); // Shouldn't happen.
    39753975            }
Note: See TracChangeset for help on using the changeset viewer.