From ac7d88229238a30e7798e18ebe9a7117819576ef Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Wed, 27 Mar 2013 21:38:15 +0100
Subject: Print to *error-output* when an error occurs

---
 lisp/clark.lisp | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/lisp/clark.lisp b/lisp/clark.lisp
index ef7b6f2..624b1a9 100644
--- a/lisp/clark.lisp
+++ b/lisp/clark.lisp
@@ -50,13 +50,15 @@
                (num-args (length args)))
            (cond
              ((< num-args min-args)
-              (format t "Too few arguments, need at least ~D, got ~D~%"
-                      min-args num-args)
-              (call-command help ,sname))
+              (let ((*standard-output* *error-output*))
+                (format t "Too few arguments, need at least ~D, got ~D~%"
+                        min-args num-args)
+                (call-command help ,sname)))
              ((and max-args (> num-args max-args))
-              (format t "Too many arguments, need at most ~D, got ~D~%"
-                      max-args num-args)
-              (call-command help ,sname))
+              (let ((*standard-output* *error-output*))
+                (format t "Too many arguments, need at most ~D, got ~D~%"
+                        max-args num-args)
+                (call-command help ,sname)))
              (t ,@body))))
        (setf *help-messages*
              (nconc *help-messages* '((,sname ,sdoc ,ldoc)))
@@ -187,7 +189,7 @@ The executable name should already have been removed."
       (let ((cmd-name (make-command-name (car args))))
         (if (fboundp cmd-name)
             (funcall cmd-name (cdr args))
-            (progn
+            (let ((*standard-output* *error-output*))
               (format t "Unknown command: ~A~%" (car args))
               (call-command help))))
       (map nil #'print-bookmark (get-bookmarks))))
-- 
cgit v1.2.3-54-g00ecf