Ignore:
Timestamp:
Mar 10, 2009, 12:52:19 PM (12 years ago)
Author:
gz
Message:

Make the compiler scan format strings for possible errors. ccl::*format-arg-functions* is the alist of functions that should be scanned (so setting this to nil is a way to disable the scanning). The code to actually do the scanning is in format.lisp. It doesn't seem to slow down the compiler in any noticable way. It finds some cases of insufficient args in format strings in ccl sources, I'll fix those in a separate checkin later.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/library/loop.lisp

    r2327 r11805  
    871871(defun loop-warn (format-string &rest format-args)
    872872  (warn "~?~%Current LOOP context:~{ ~S~}." format-string format-args (loop-context)))
     873
     874(pushnew '(loop-error . 0) ccl::*format-arg-functions* :test #'equal)
     875(pushnew '(loop-warn . 0) ccl::*format-arg-functions* :test #'equal)
    873876
    874877
Note: See TracChangeset for help on using the changeset viewer.