Changeset 13197


Ignore:
Timestamp:
Nov 12, 2009, 7:34:57 PM (10 years ago)
Author:
gz
Message:

Add variable *strict-checking* to control checking for e.g. non-portable though valid code. For now it only controls one case - if true, defconstant redefinition will require the new value to be eql to the old one. (r13195). Also fix another format call (r13196)

Location:
branches/working-0711/ccl
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx-basic.lisp

    r13070 r13197  
    537537       ,@body))))
    538538
     539(defvar *strict-checking* nil
     540  "If true, issues warnings/errors in more cases, e.g. for valid but non-portable code")
     541
    539542
    540543;; Should be true if compiler warnings UI doesn't use source locations, false if it does.
  • branches/working-0711/ccl/level-1/l1-utils.lisp

    r13070 r13197  
    423423      (let* ((old-value (%sym-global-value var)))
    424424        (unless (eq old-value (%unbound-marker-8))
    425           (if (similar-as-constants-p (%sym-global-value var) value)
     425          (if (or (eql old-value value)
     426                  (and (not *strict-checking*) (similar-as-constants-p old-value value)))
    426427            (return)
    427428            ;; This should really be a cell error, allow options other than
  • branches/working-0711/ccl/library/leaks.lisp

    r13070 r13197  
    272272        (format t "~&~A" i))
    273273      (format t "~&Freed but not malloced:~%~{~A~%~}" frees)
    274       (format t "~&total-malloc-not-freed: ~~A ~A free not malloc: ~A"
     274      (format t "~&total-malloc-not-freed: ~A ~A free not malloc: ~A"
    275275              (/ malloc-sum 1024.0)
    276276              (length mallocs)
Note: See TracChangeset for help on using the changeset viewer.