[STUMP] I cannot get the output of (ext:shell "ls ~") ?

[z_axis]

The stumpwm is built using clisp-2.49. The stumpwm evaling can display the  
result of the following function with the help of "with-output-to-string":  
(Maybe i is better to hack stumpwm to do such a thing as clfswm does)

(defun div618 (p1 p2)
    (let ((ratio '(0. 0.191 0.236 0.382 0.5 0.618 0.809 1.))
          (price #'(lambda (r) (if (<= p1 p2) (+ p1 (* (- p2 p1) r)) (- p1  
(* (- p1 p2) r))))))
        (with-output-to-string (*standard-output*)
          (if (<= p1 p2)
            (dolist (r (reverse ratio)) (format t "-------~3$    
~$-------~%" r (funcall price r)))
            (dolist (r ratio) (format t "-------~3$  ~$-------~%" r  
(funcall price r)))))))

However, both slime and stumpwm evaling cannot display the result of  
(ext:shell "ls ~").


Regards!