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

Merge r11821 into trunk

File:
1 edited

Legend:

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

    r11958 r12210  
    843843;;; True if the object is in one of the heap areas
    844844(defun %in-consing-area-p (x area)
    845   (declare (fixnum x))                  ; lie
     845  (declare (optimize (speed 3) (safety 0)) (fixnum x))       ; lie
    846846  (let* ((low (%fixnum-ref area target::area.low))
    847847         (high (%fixnum-ref area target::area.high))
Note: See TracChangeset for help on using the changeset viewer.