removing some cruft

src/main.lisp

@@ -13,26 +13,13 @@
 
 (in-package :tfcserver)
 
-(defvar *last*)
-(defvar *last-data*)
-(defvar *last-list-data*)
-(defvar *stream*)
-(defvar *auth-token* "Basic Y2hyaXM6MlZIZUd4ZUNeWmY5S3FGS15HQFB0IXp1MnFeNkBi")
-
 (defvar *server*)
-
 (defun start-server (port)
   (setq *server*
         (hunchentoot:start
          (make-instance 'hunchentoot:easy-acceptor
                         :port port))))
 
-;; (defun setup-for-nextcloud-tables (data-list)
-;;   "moving the list into a form that makes sense for
-;; Nextcloud tables"
-;;   (setf idk (car (assoc "Student Name" data-list :test 'string=)
-;;              "value")))
-
 (defparameter *mail-css*
   '((table :border-collapse "collapse" :width "100%")
     (("th," td) :padding "8px")
@@ -313,18 +300,18 @@ with the image attached to us"
 (defun mail-health-form (form attachment)
   "Takes the form as an alist and sends a table formatted email
 with the image attached"
-  (let* ((first-name (serapeum:trim-whitespace
+  (let* ((first-name (trim-whitespace
                       (cdr (assoc "firstname" form
                                   :test 'string=))))
-         (last-name (serapeum:trim-whitespace
+         (last-name (trim-whitespace
                      (cdr (assoc "lastname" form
                                  :test 'string=))))
          (parent-name (concatenate 'string
-                                   (serapeum:trim-whitespace
+                                   (trim-whitespace
                                     (cdr (assoc "parentfirstname" form
                                                 :test 'string=)))
                                    " "
-                                   (serapeum:trim-whitespace
+                                   (trim-whitespace
                                     (cdr (assoc "parentlastname" form
                                                 :test 'string=))))))
     (not (cl-smtp:send-email