(defun minibuffer-input-password (prompt)
  (interactive)
  (let ((ans ""))
    (loop
      (minibuffer-prompt (concat prompt (repeat-string "." (length ans))))
      (let ((c (read-char *keyboard*)))
	(case c
	  (#\RET (return ans))
	  (#\C-g (quit))
	  (#\C-h (setq ans (subseq ans 0 (- (length ans) 1))))
	  (t (setq ans (format nil "~a~c" ans c))))))))