making serapeum not need to overwrite uiop

src/main.lisp

@@ -8,8 +8,7 @@
 (require "cl-smtp")
 
 (defpackage tfcserver
-  (:use :cl :uiop :com.inuoe.jzon :spinneret)
-  (:shadow :serapeum))
+  (:use :cl :com.inuoe.jzon :spinneret :serapeum))
 
 (in-package :tfcserver)
 
@@ -115,7 +114,7 @@
           :do (format t "~&~A" entry))
     (format t "~&~A" "Let's print out the data")
     (format t "~&~A" data-list)
-    (println *last-list-data*)
+    (uiop:println *last-list-data*)
 
     (setf data `#(("columnId" 37 "value" ,(serapeum:trim-whitespace
                                            (cdr (assoc