From a5424d6c9999438e5889dc5572c93b944a69c007 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@gmail.com>
Date: Wed, 26 Feb 2014 13:16:42 -0600
Subject: [PATCH] Revert "Patch to enforce system naming conventions."

This reverts commit 38dfc6d61fc4602297c5fde4f5e2c00cb9025176.
---
 find-system.lisp     | 14 --------------
 parse-defsystem.lisp |  2 +-
 2 files changed, 1 insertion(+), 15 deletions(-)

diff --git a/find-system.lisp b/find-system.lisp
index f9cfd2c2..c0e6012f 100644
--- a/find-system.lisp
+++ b/find-system.lisp
@@ -77,24 +77,10 @@ of which is a system object.")
     (loop :for registered :being :the :hash-values :of *defined-systems*
           :collect (coerce-name (cdr registered))))
 
-  (defun check-acceptable-system-name (name)
-    (flet ((acceptable-char-p (c)
-                              (or
-                               ;; these two are acceptable characters for logical pathnames
-                               (alphanumericp c)
-                               (eql c #\-)
-                               ;; forward slash has a special meaning to ASDF
-                               (eql c #\/))))
-      (let ((unacceptable (find-if-not #'acceptable-char-p name)))
-        (when unacceptable
-          (sysdef-error (compatfmt "~@<Bad character for system name: ~c in ~3i~_~A~@:>") unacceptable name)))
-      t))
-
   (defun register-system (system)
     (check-type system system)
     (let ((name (component-name system)))
       (check-type name string)
-      (check-acceptable-system-name name)
       (asdf-message (compatfmt "~&~@<; ~@;Registering ~3i~_~A~@:>~%") system)
       (unless (eq system (cdr (gethash name *defined-systems*)))
         (setf (gethash name *defined-systems*)
diff --git a/parse-defsystem.lisp b/parse-defsystem.lisp
index ab32c864..2cf2b02c 100644
--- a/parse-defsystem.lisp
+++ b/parse-defsystem.lisp
@@ -247,7 +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 (string-downcase (coerce-name name)))
+      (let* ((name (coerce-name name))
              (source-file (if sfp source-file (resolve-symlinks* (load-pathname))))
              (registered (system-registered-p name))
              (registered! (if registered
-- 
GitLab