security: patch OACP reader vulnerability and implement HMAC foundations

src/skills.lisp

@@ -128,17 +128,17 @@ EXAMPLES:
                                        (setf finished :error))))
                                  :name (format nil "loader-~a" (pathname-name filepath))))
          (start-time (get-internal-real-time))
-         (timeout-units (* timeout-seconds internal-time-units-per-second)))
+         (timeout-units (truncate (* timeout-seconds internal-time-units-per-second))))
     (loop 
       (when (eq finished t) (return :success))
       (when (eq finished :error) (return :error))
       (unless (bt:thread-alive-p thread) (return :error))
       (when (> (- (get-internal-real-time) start-time) timeout-units)
+        (kernel-log "KERNEL: Timing out skill ~a..." (pathname-name filepath))
         #+sbcl (sb-thread:terminate-thread thread)
         #-sbcl (bt:destroy-thread thread)
-        (kernel-log "KERNEL ERROR: Timeout loading skill ~a" (pathname-name filepath))
         (return :timeout))
-      (sleep 0.1))))
+      (sleep 0.05))))
 
 (defun load-skill-from-org (filepath)
   (when (uiop:file-exists-p filepath)