From 18dba09063c0bd7ae98efc65a18c80e743fd3424 Mon Sep 17 00:00:00 2001 From: Andrea Richiardi Date: Sat, 9 Nov 2019 21:42:36 -0800 Subject: [PATCH] [Fix #30] Use uppercase when interning symbols --- reporter.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/reporter.lisp b/reporter.lisp index 359151a..c127575 100644 --- 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)