Changeset 4029
- Timestamp:
- 09/23/03 16:25:03 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Primitives.java
r4026 r4029 3 3 * 4 4 * Copyright (C) 2002-2003 Peter Graves 5 * $Id: Primitives.java,v 1.43 2 2003-09-23 15:43:08piso Exp $5 * $Id: Primitives.java,v 1.433 2003-09-23 16:25:03 piso Exp $ 6 6 * 7 7 * 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")); 3972 3972 if (count.signum() < 0) 3973 return Fixnum.ZERO;3973 return n.signum() >= 0 ? Fixnum.ZERO : new Fixnum(-1); 3974 3974 Debug.bug(); // Shouldn't happen. 3975 3975 }
Note: See TracChangeset
for help on using the changeset viewer.