Ignore:
Timestamp:
Mar 28, 2009, 4:44:12 AM (12 years ago)
Author:
rme
Message:

Merge r11810 (fixes to various format/warn/etc. calls).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/tools/defsystem.lisp

    r2734 r11855  
    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.