Ignore:
Timestamp:
Jun 7, 2009, 12:59:49 AM (10 years ago)
Author:
gz
Message:

Rename nx-the-typechecks to nx-declarations-typecheck, and typecheck all declarations when it's on.
Merged from r11819 r11820 r11822 r11823 r11824 r11836 r11836 r11837 r11850 r11851 r11852 r11853

File:
1 edited

Legend:

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

    r12210 r12219  
    657657
    658658(defun %ptr-in-area-p (ptr area)
    659   (declare (fixnum ptr area))           ; lie, maybe
     659  (declare (optimize (speed 3) (safety 0)) (fixnum ptr area))           ; lie, maybe
    660660  (and (<= (the fixnum (%fixnum-ref area target::area.low)) ptr)
    661661       (> (the fixnum (%fixnum-ref area target::area.high)) ptr)))
Note: See TracChangeset for help on using the changeset viewer.