From db8008b316940308cce85b0e15e564d545a16313 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@gmail.com>
Date: Wed, 26 Feb 2014 13:16:21 -0600
Subject: [PATCH] Revert "Check to ensure systems have lower-case names."

This reverts commit cbff03f1b22bccc7d467fcadebdb9db9d5520dfa.
---
 parse-defsystem.lisp | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/parse-defsystem.lisp b/parse-defsystem.lisp
index 37d8b8e9..ab32c864 100644
--- a/parse-defsystem.lisp
+++ b/parse-defsystem.lisp
@@ -247,13 +247,7 @@ system names contained using COERCE-NAME. Return the result."
     ;; that is registered to a different location to find-system,
     ;; we also need to remember it in a special variable *systems-being-defined*.
     (with-system-definitions ()
-      (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)))
+      (let* ((name (string-downcase (coerce-name name)))
              (source-file (if sfp source-file (resolve-symlinks* (load-pathname))))
              (registered (system-registered-p name))
              (registered! (if registered
-- 
GitLab