Ignore:
Timestamp:
Mar 10, 2009, 4:00:29 PM (11 years ago)
Author:
gz
Message:

Fix bad format (or warn etc.) calls found by the format string scanner

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/tools/defsystem.lisp

    r2734 r11810  
    25752575           ;; symbols, wherever the system is named.
    25762576           (when (foreign-system-p system)
    2577              (warn "Foreing system ~S cannot be reloaded by MK:DEFSYSTEM.")
     2577             (warn "Foreign system ~S cannot be reloaded by MK:DEFSYSTEM." system)
    25782578             (return-from find-system nil))
    25792579           (let ((path (compute-system-path system-name definition-pname)))
     
    25972597     (or (unless *reload-systems-from-disk* (get-system system-name))
    25982598         (when (foreign-system-p (get-system system-name))
    2599            (warn "Foreign system ~S cannot be reloaded by MK:DEFSYSTEM.")
     2599           (warn "Foreign system ~S cannot be reloaded by MK:DEFSYSTEM." system-name)
    26002600           (return-from find-system nil))
    26012601         (or (find-system system-name :load-or-nil definition-pname)
Note: See TracChangeset for help on using the changeset viewer.