updates to include drakma

shell.nix

@@ -14,6 +14,7 @@ mkShell rec {
     clojure-lsp
     clj-kondo
     sbcl
+    openssl
   ];
   
   shellHook = ''

src/server/main.lisp

@@ -1,13 +1,12 @@
 (load "~/quicklisp/setup.lisp")
 (ql:quickload :hunchentoot)
-(ql:quickload :caveman2)
-(ql:quickload :jsown)
-(ql:quickload :cl-json)
+(ql:quickload :drakma)
+(ql:quickload :com.inuoe.jzon)
 
-(defpackage tfc-server
-  (:use #:hunchentoot #:jsown #:caveman2 #:com.inuoe.jzon))
+(uiop:define-package tfc-server
+  (:use :cl :hunchentoot :com.inuoe.jzon))
 
-(in-package :tfcconnection)
+(in-package :tfc-server)
 
 (defun handle-post-request (request)
   (let ((form-data (hunchentoot:req request)))
@@ -36,6 +35,7 @@
              data)))))
 
 (defvar last)
+(defvar *token* "boFFRM68vvXbO-DO7S9YDg86lHX027-hd07mn0dh")
 
 (defun print-hash-entry (key value)
   (format t "~S: ~S~%" key value))
@@ -72,36 +72,9 @@
         (medication-schedule (gethash "medication-schedule" form))
         (other-notes (gethash "other-notes" form))
         (age (gethash "age" form)))
-    (uiop:println firstname) 
-    (uiop:println lastname) 
-    (uiop:println parentfirstname) 
-    (uiop:println parentlastname) 
-    (uiop:println street) 
-    (uiop:println city) 
-    (uiop:println state) 
-    (uiop:println zip) 
-    (uiop:println cellphone) 
-    (uiop:println homephone) 
-    (uiop:println add-emergency-contact) 
-    (uiop:println add-emergency-contact-phone) 
-    (uiop:println doctorname) 
-    (uiop:println doctorcity) 
-    (uiop:println doctorphone) 
-    (uiop:println medical-coverage) 
-    (uiop:println insurance-name) 
-    (uiop:println policy-number) 
-    (uiop:println image) 
-    (uiop:println agreement) 
-    (uiop:println allergies) 
-    (uiop:println allergies-other) 
-    (uiop:println specific-allergies) 
-    (uiop:println allergic-treatment) 
-    (uiop:println conditions) 
-    (uiop:println tetanus-shot) 
-    (uiop:println swimming-ability) 
-    (uiop:println medication-schedule) 
-    (uiop:println other-notes) 
-    (uiop:println age)))
+    (uiop:println "---")
+    (maphash 'print-hash-entry form)
+    (uiop:println "---")))
 
 
 (defun render-json (object)