(format t "Added project ~A at src definition ~A~%" name src))))))
(defmethod execute-command ((command (eql :project)) args)
(format t "Added project ~A at src definition ~A~%" name src))))))
(defmethod execute-command ((command (eql :project)) args)