Changeset 4029

Timestamp:

09/23/03 16:25:03 (20 years ago)

Author:

piso

Message:

ASH

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.432 2003-09-23 15:43:08 piso Exp $
+ * $Id: Primitives.java,v 1.433 2003-09-23 16:25:03 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -3971 +3971 @@
                     throw new ConditionThrowable(new LispError("can't represent result of left shift"));
                 if (count.signum() < 0)
-                    return Fixnum.ZERO;
+                    return n.signum() >= 0 ? Fixnum.ZERO : new Fixnum(-1);
                 Debug.bug(); // Shouldn't happen.
             }