(defun pushd-cmd (string-arg)
(push string-arg *dir-stack*)
- (cd-cmd *output* string-arg)
+ (cd-cmd string-arg)
(values))
(defun popd-cmd ()
(let ((stopped-threads (sb-thread::waitqueue-data lock)))
(when stopped-threads
(format stream "~{~&Thread ~A suspended~}~%" stopped-threads))))
+ (fresh-line stream)
(if (functionp *prompt*)
(write-string (funcall *prompt*
break-level