40ants-lisp-dev-mcp - MCP which gives LLM tools for working with running Lisp image.

40ANTS-LISP-DEV-MCP ASDF System Details

• Description: MCP which gives LLM tools for working with running Lisp image.
• Licence: Unlicense
• Author: Alexander Artemenko svetlyak.40wt@gmail.com
• Homepage: https://40ants/lisp-dev-mcp/
• Bug tracker: https://github.com/40ants/lisp-dev-mcp/issues
• Source control: GIT
• Depends on: 40ants-logging, 40ants-mcp, 40ants-slynk, alexandria, bordeaux-threads, defmain, jsonrpc, log4cl, openrpc-server, serapeum, str, trivial-backtrace

Installation

You can install this library from Quicklisp, but you want to receive updates quickly, then install it from Ultralisp.org:

(ql-dist:install-dist "http://dist.ultralisp.org/"
                      :prompt nil)

then:

ros install 40ants/lisp-dev-mcp

Usage

Running in stdio mode

Here is an example config to add lisp-dev-mcp to Qwen:

{
  "mcpServers": {
    "lisp-dev": {
      "command": "lisp-dev-mcp",
      "args": []
    }
  },
  "$version": 2
}

If you want to debug MCP server, then you might start it will logging output and a SLYNK port opened:

{
  "mcpServers": {
    "lisp-dev": {
      "command": "lisp-dev-mcp",
      "args": ["--log", "mcp.log", "--verbose"],
      "env": {
        "SLYNK_PORT": "9991"
      }
    }
  },
  "$version": 2
}

Running in HTTP streaming mode

Start the lisp process:

qlot exec roswell/lisp-dev-mcp.ros --port 7890

or in the REPL:

(ql:quickload :40ants-lisp-dev-mcp)

(40ants-lisp-dev-mcp/core:start-server :port 7890)

then configure your IDE:

{
  "mcpServers": {
    "lisp-dev": {
      "url": "http://localhost:7890/mcp"
    }
  },
  "$version": 2
}

API

40ANTS-LISP-DEV-MCP/CORE

package 40ants-lisp-dev-mcp/core

Functions

function 40ants-lisp-dev-mcp/core:start-server &key port (in-thread t)

Starts the MCP server.

PORT: TCP port number (integer or nil for stdio transport). IN-THREAD: Boolean, if true starts server in a background thread, otherwise blocks (default).

Returns thread object if IN-THREAD is true, otherwise blocks.

[generated by 40ANTS-DOC]