Skip to content
Snippets Groups Projects
Commit cbff03f1 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Check to ensure systems have lower-case names.

parent f02926df
No related branches found
No related tags found
No related merge requests found
...@@ -247,7 +247,13 @@ system names contained using COERCE-NAME. Return the result." ...@@ -247,7 +247,13 @@ system names contained using COERCE-NAME. Return the result."
;; that is registered to a different location to find-system, ;; that is registered to a different location to find-system,
;; we also need to remember it in a special variable *systems-being-defined*. ;; we also need to remember it in a special variable *systems-being-defined*.
(with-system-definitions () (with-system-definitions ()
(let* ((name (string-downcase (coerce-name name))) (let* ((name (let ((rawname (coerce-name name)))
(unless (equal (string-downcase rawname) rawname)
(cerror "Continue, using downcased system name."
'formatted-system-definition-error
:format-control
"Error, systems must have lowercase names."))
(string-downcase rawname)))
(source-file (if sfp source-file (resolve-symlinks* (load-pathname)))) (source-file (if sfp source-file (resolve-symlinks* (load-pathname))))
(registered (system-registered-p name)) (registered (system-registered-p name))
(registered! (if registered (registered! (if registered
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment