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

Port r11810 (fixes to various format/warn/etc. calls) to 1.3 branch.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.3/source/tools/defsystem.lisp

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