(let*
((name (subseq project-definition 0 pos))
(src (subseq project-definition (1+ pos))))
+ (communication:query `(candle:add-project ,name ,src))
(format t "Added project ~A at src definition ~A~%" name src))))))
(defmethod execute-command ((command (eql :project)) args)