Ticket #666 (closed defect: fixed)

Opened 23 months ago

Last modified 23 months ago

truncate

Reported by: heller Owned by: gb
Priority: normal Milestone:
Component: Compiler Version: trunk
Keywords: Cc:

Description

Something seems fishy when inlining TRUNCATE: 

Welcome to Clozure Common Lisp Version 1.5-dev-r13524M-trunk  (LinuxX8632)!
? (defun foo (x y) (declare (type fixnum x y)) (truncate x y))
FOO
? (foo most-negative-fixnum -1)
-536870912
0
? (truncate most-negative-fixnum -1)
536870912
0
?

Change History

Changed 23 months ago by gb

  • status changed from new to assigned

Note also that 

? (/ most-negative-fixnum -1)

returns MOST-NEGATIVE-FIXNUM (and not (- MOST-NEGATIVE-FIXNUM)) because of this.

Changed 23 months ago by rme

  • status changed from assigned to closed
  • resolution set to fixed

(In [13535]) Merge r13529 through r13532 (special-case divisor of -1 in %fixnum-truncate) from trunk to 1.4 branch. Fixes ticket:666.

Note: See TracTickets for help on using tickets.