Как изменить текущий каталог SBCL?

Это очень легко изменить текущий рабочий каталог CLisp:

>cat ~/.clisprc.lisp 
;;; The following lines added by ql:add-to-init-file:
#-quicklisp
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname))))
  (when (probe-file quicklisp-init)
  (load quicklisp-init)))

(cd "/media/E/www/qachina/db/doc/money")
(load "money")

Однако похоже, что в SBCL нет cd аналогичной функции. Как это можно сделать с SBCL?