Ticket #369 (closed defect: fixed)

Opened 2 months ago

Last modified 4 days ago

SETF THE loses type info

Reported by: gz Assigned to: gb
Priority: normal Milestone:
Component: Performance Version:
Keywords: Cc:

Description

? (pprint (macroexpand '(setf (the double-float (aref a i)) val)))

(LET* ((#:G443 A) (#:G444 I))

(DECLARE (IGNORABLE #:G443 #:G444)) (MULTIPLE-VALUE-BIND (#:G445)

VAL

(LET ((#:G442 #:G445)) (ASET #:G443 #:G444 #:G442))))

Change History

01/03/09 16:21:38 changed by rme

  • status changed from new to closed.
  • resolution set to fixed.

r11285