Ignore:
Timestamp:
Mar 20, 2009, 5:17:17 PM (11 years ago)
Author:
gz
Message:

Another declaration tweak

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-lisp-threads.lisp

    r11821 r11832  
    665665
    666666(defun %ptr-in-area-p (ptr area)
    667   (declare (fixnum ptr area))           ; lie, maybe
     667  (declare (optimize (speed 3) (safety 0)) (fixnum ptr area))           ; lie, maybe
    668668  (and (<= (the fixnum (%fixnum-ref area target::area.low)) ptr)
    669669       (> (the fixnum (%fixnum-ref area target::area.high)) ptr)))
Note: See TracChangeset for help on using the changeset viewer.