1 files changed, 0 insertions, 6 deletions
diff --git a/src/util.lisp b/src/util.lisp
index 60653da..c8dc04c 100644
--- a/src/util.lisp
+++ b/src/util.lisp
@@ -33,12 +33,6 @@
   `(and (symbolp ,symbol)
         (string= (symbol-name ',name) (symbol-name ,symbol))))
 
-(defun normalise-system (system)
-  (etypecase system
-    (string system)
-    (symbol (string-downcase
-             (symbol-name system)))))
-
 (defun memstring= (string list)
   (member string list :test #'string=))