Changeset 12219 for trunk/source/level-1


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

Location:
trunk/source/level-1
Files:
3 edited

Legend:

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

    r12215 r12219  
    12401240
    12411241(defun std-instance-class-cell-typep (form class-cell)
    1242   (declare (type class-cell  class-cell))
    12431242  (let* ((typecode (typecode form))
    12441243         (wrapper (cond ((= typecode target::subtag-instance)
  • trunk/source/level-1/l1-error-system.lisp

    r12045 r12219  
    10781078        (cons $xfunbnd 'undefined-function)
    10791079        (cons $xbadkeys 'simple-program-error)
     1080        (cons $xcallnomatch 'simple-program-error)
    10801081        (cons $xnotfun 'call-special-operator-or-macro)
    10811082        (cons $xaccessnth 'sequence-index-type-error)
  • 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.