Function: make-claude-code-ide-mcp-session--cmacro

make-claude-code-ide-mcp-session--cmacro is a function defined in claude-code-ide-mcp.el.

Signature

(make-claude-code-ide-mcp-session--cmacro CL-WHOLE &cl-quote &key SESSION-ID INSTANCE-NAME BUFFER PROCESS WINDOW-SLOT LAST-USED CLEANUP-DONE SERVER CLIENT PORT PROJECT-DIR DEFERRED PING-TIMER LAST-SELECTION DISMISSED-FILE LAST-BUFFER ACTIVE-DIFFS ORIGINAL-TAB CLI-PID)

Documentation

compiler-macro for make-claude-code-ide-mcp-session.

Source Code

;; Defined in /nix/store/yjvbhwl7p6zrbw9xlnni7y4hra8sa3pl-emacs-packages-deps/share/emacs/site-lisp/claude-code-ide-mcp.el
;; Could not find source code, showing raw function object.
#[(cl-whole &rest --cl-rest--)
  ((let*
       ((session-id
	 (car (cdr (plist-member --cl-rest-- ':session-id))))
	(instance-name
	 (car (cdr (plist-member --cl-rest-- ':instance-name))))
	(buffer (car (cdr (plist-member --cl-rest-- ':buffer))))
	(process (car (cdr (plist-member --cl-rest-- ':process))))
	(window-slot
	 (car (cdr (plist-member --cl-rest-- ':window-slot))))
	(last-used (car (cdr (plist-member --cl-rest-- ':last-used))))
	(cleanup-done
	 (car (cdr (plist-member --cl-rest-- ':cleanup-done))))
	(server (car (cdr (plist-member --cl-rest-- ':server))))
	(client (car (cdr (plist-member --cl-rest-- ':client))))
	(port (car (cdr (plist-member --cl-rest-- ':port))))
	(project-dir
	 (car (cdr (plist-member --cl-rest-- ':project-dir))))
	(deferred (car (cdr (plist-member --cl-rest-- ':deferred))))
	(ping-timer
	 (car (cdr (plist-member --cl-rest-- ':ping-timer))))
	(last-selection
	 (car (cdr (plist-member --cl-rest-- ':last-selection))))
	(dismissed-file
	 (car (cdr (plist-member --cl-rest-- ':dismissed-file))))
	(last-buffer
	 (car (cdr (plist-member --cl-rest-- ':last-buffer))))
	(active-diffs
	 (car (cdr (plist-member --cl-rest-- ':active-diffs))))
	(original-tab
	 (car (cdr (plist-member --cl-rest-- ':original-tab))))
	(cli-pid (car (cdr (plist-member --cl-rest-- ':cli-pid)))))
     (progn
       (let ((--cl-keys-- --cl-rest--))
	 (while --cl-keys--
	   (cond
	    ((memq (car --cl-keys--)
		   '(:session-id :instance-name :buffer :process
				 :window-slot :last-used :cleanup-done
				 :server :client :port :project-dir
				 :deferred :ping-timer :last-selection
				 :dismissed-file :last-buffer
				 :active-diffs :original-tab :cli-pid
				 :allow-other-keys))
	     (unless (cdr --cl-keys--)
	       (error "Missing argument for %s" (car --cl-keys--)))
	     (setq --cl-keys-- (cdr (cdr --cl-keys--))))
	    ((car (cdr (memq ':allow-other-keys --cl-rest--)))
	     (setq --cl-keys-- nil))
	    (t
	     (error
	      "Keyword argument %S not one of (:session-id :instance-name :buffer :process :window-slot :last-used :cleanup-done :server :client :port :project-dir :deferred :ping-timer :last-selection :dismissed-file :last-buffer :active-diffs :original-tab :cli-pid)"
	      (car --cl-keys--))))))
       (cl-block make-claude-code-ide-mcp-session--cmacro
	 (cl--defsubst-expand
	  '(session-id instance-name buffer process window-slot
		       last-used cleanup-done server client port
		       project-dir deferred ping-timer last-selection
		       dismissed-file last-buffer active-diffs
		       original-tab cli-pid)
	  '(cl-block make-claude-code-ide-mcp-session
	     (record 'claude-code-ide-mcp-session session-id
		     instance-name buffer process window-slot
		     last-used cleanup-done server client port
		     project-dir deferred ping-timer last-selection
		     dismissed-file last-buffer active-diffs
		     original-tab cli-pid))
	  nil cl-whole nil session-id instance-name buffer process
	  window-slot last-used cleanup-done server client port
	  project-dir deferred ping-timer last-selection
	  dismissed-file last-buffer active-diffs original-tab cli-pid)))))
  (cl-struct-claude-code-ide-mcp-session-tags jotain-doc--kind-helpful
					      jotain-doc--sym-pkg
					      jotain-doc--face-syms
					      jotain-doc--var-syms
					      jotain-doc--fun-syms
					      jotain-doc--skipped
					      jotain-doc--pkg-dirs
					      jotain-doc--quick)
  nil
  "compiler-macro for `make-claude-code-ide-mcp-session'.\n\n(fn CL-WHOLE &cl-quote &key SESSION-ID INSTANCE-NAME BUFFER PROCESS WINDOW-SLOT LAST-USED CLEANUP-DONE SERVER CLIENT PORT PROJECT-DIR DEFERRED PING-TIMER LAST-SELECTION DISMISSED-FILE LAST-BUFFER ACTIVE-DIFFS ORIGINAL-TAB CLI-PID)"]