blob: 8e24b7dc41e26d1415dc3a56f3985e76703908d9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
diff -ur cl-defsystem3-3.3i+cvs.2004.07.18.1.orig/defsystem.lisp cl-defsystem3-3.3i+cvs.2004.07.18.1/defsystem.lisp
--- cl-defsystem3-3.3i+cvs.2004.07.18.1.orig/defsystem.lisp 2004-07-18 21:57:32.000000000 -0500
+++ cl-defsystem3-3.3i+cvs.2004.07.18.1/defsystem.lisp 2005-02-10 01:13:05.086287209 -0600
@@ -2612,7 +2612,7 @@
;; string. So if case matters in the filename, use strings, not
;; symbols, wherever the system is named.
(when (foreign-system-p system)
- (warn "Foreing system ~S cannot be reloaded by MK:DEFSYSTEM.")
+ (warn "Foreing system ~S cannot be reloaded by MK:DEFSYSTEM." system-name)
(return-from find-system nil))
(let ((path (compute-system-path system-name definition-pname)))
(when (and path
@@ -2634,7 +2634,7 @@
(:load
(or (unless *reload-systems-from-disk* (get-system system-name))
(when (foreign-system-p (get-system system-name))
- (warn "Foreign system ~S cannot be reloaded by MK:DEFSYSTEM.")
+ (warn "Foreign system ~S cannot be reloaded by MK:DEFSYSTEM." system-name)
(return-from find-system nil))
(or (find-system system-name :load-or-nil definition-pname)
(error "Can't find system named ~s." system-name))))))
Only in cl-defsystem3-3.3i+cvs.2004.07.18.1: defsystem.lisp~
|
GitWeb
