|
From: | z_axis |
Subject: | [STUMP] I cannot get the output of (ext:shell "ls ~") ? |
Date: | Tue, 16 Oct 2012 11:12:49 +0800 |
User-agent: | Opera Mail/11.62 (FreeBSD) |
(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!
[Prev in Thread] | Current Thread | [Next in Thread] |