;;AUTOLOAD: cd
;;AUTODOC: cd "change directory"
;;(cd new-directory)
;;
;;changes directory to argument. If an error occurs, triggers a
;;Errors:BadDirectory error
;;Useful for interactive use. In programs, use *current-directory*

(defun cd (dir) (setq *current-directory* dir))
