[Fix fukamachi#30] Use uppercase when interning symbols

arichiardi · Nov 10, 2019 · 18dba09 · 18dba09
1 parent f3695db
commit 18dba09
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/reporter.lisp b/reporter.lisp
@@ -28,9 +28,9 @@
     (unless package
       #+quicklisp (ql:quickload (string-downcase package-name) :silent t)
       #-quicklisp (asdf:load-system (string-downcase package-name))
-      (setf package (find-package package-name)))
+      (setf package (find-package (intern (string-upcase package-name) "KEYWORD"))))
     (make-instance
-     (intern (format nil "~A-~A" style '#:reporter) package)
+     (intern (string-upcase (format nil "~A-~A" style '#:reporter)) package)
      :stream stream)))
 
 (defgeneric print-message (reporter desc)