feat: Add cognitive tools to skills.org (reload-skill, read-file, write-file, replace-string)

New tools require manual addition to skills.lisp due to compilation issue.

library/gen/org-skill-cli-gateway.lisp

@@ -56,13 +56,13 @@
   "Starts the TCP listener for local CLI clients."
   (setf *cli-server-socket* (usocket:socket-listen "0.0.0.0" port :reuse-address t))
   (setf *cli-server-thread*
-        (bt:make-thread
+        (bordeaux-threads:make-thread
          (lambda ()
            (unwind-protect
                 (loop
                   (let* ((socket (usocket:socket-accept *cli-server-socket*))
                          (stream (usocket:socket-stream socket)))
-                    (bt:make-thread (lambda () 
+                    (bordeaux-threads:make-thread (lambda () 
                                       (unwind-protect (handle-cli-client stream)
                                         (usocket:socket-close socket)))
                                     :name "opencortex-cli-client-handler")))

library/tui-client.lisp

@@ -12,15 +12,15 @@
 (defvar *status-text* "Connecting...")
 (defvar *input-buffer* (make-array 0 :element-type 'char :fill-pointer 0 :adjustable t))
 (defvar *is-running* t)
-(defvar *queue-lock* (bt:make-lock))
+(defvar *queue-lock* (bordeaux-threads:make-lock))
 (defvar *incoming-msgs* nil)
 
 (defun enqueue-msg (msg)
-  (bt:with-lock-held (*queue-lock*)
+  (bordeaux-threads:with-lock-held (*queue-lock*)
     (push msg *incoming-msgs*)))
 
 (defun dequeue-msgs ()
-  (bt:with-lock-held (*queue-lock*)
+  (bordeaux-threads:with-lock-held (*queue-lock*)
     (let ((msgs (nreverse *incoming-msgs*)))
       (setf *incoming-msgs* nil)
       msgs)))
@@ -90,7 +90,7 @@
       (setf *socket* (usocket:socket-connect *daemon-host* *daemon-port*))
     (error (e) (format t "Error connecting: ~a~%" e) (return-from main)))
   (setf *stream* (usocket:socket-stream *socket*))
-  (bt:make-thread #'listen-thread :name "tui-listener")
+  (bordeaux-threads:make-thread #'listen-thread :name "tui-listener")
   
   (unwind-protect
       (with-screen (scr :input-echoing nil :input-blocking nil :enable-colors t :cursor-visible t)