(defun make-shell-interface (&rest params)
 
 ;;<snip>
  (let
       ((name   (plist-get params :name ))
        (type   (plist-get params :type))
        (path   (plist-get params :path))
        (buffer (plist-get params :buffer)))
    (list
     (cons 'name buffer) ;; <== should be (cons 'name name)
     (cons 'type type)
     (cons 'path path)
     (cons 'buffer buffer))))

(cons 'name buffer)

(cons 'name name)