Ignore:
Timestamp:
Jun 6, 2009, 5:54:55 PM (11 years ago)
Author:
gz
Message:

Merge r11821 into trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-dcode.lisp

    r11349 r12210  
    625625                    *min-gf-dispatch-table-size*))
    626626  (let ((res (%cons-gf-dispatch-table size)))
     627    (declare (optimize (speed 3) (safety 0)))
    627628    (setf (%gf-dispatch-table-mask res) (%i- (%ilsr 1 size) 1)
    628629          (%gf-dispatch-table-argnum res) 0
Note: See TracChangeset for help on using the changeset viewer.