From 3201b545e17290c9e4c9ddbcdc204256a11f2ed1 Mon Sep 17 00:00:00 2001
From: Marius Gerbershagen <marius.gerbershagen@gmail.com>
Date: Tue, 21 Aug 2018 20:08:00 +0200
Subject: [PATCH] reader: don't allow a package prefix in an uninterned symbol

    Fixes #439.
---
 src/c/read.d | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/c/read.d b/src/c/read.d
index 7ec1448af..21391d77f 100644
--- a/src/c/read.d
+++ b/src/c/read.d
@@ -988,8 +988,11 @@ sharp_colon_reader(cl_object in, cl_object ch, cl_object d)
         ecl_string_push_extend(token, c);
       }
       goto K;
-    } else if (ecl_lower_case_p(c))
+    } else if (ecl_lower_case_p(c)) {
       c = ecl_char_upcase(c);
+    } else if (c == ':' && !read_suppress) {
+      FEreader_error("An uninterned symbol must not contain a package prefix", in, 0);
+    }
     if (a == cat_whitespace || a == cat_terminating)
       break;
   }