r5201: *** empty log message ***

[kmrcl.git] / console.lisp

diff --git a/console.lisp b/console.lisp
index 3e81b23e056f95b1f578445267fcb3fedd75f3eb..4747f6aab10111bb961489831e2a2235be3b5d3a 100644 (file)
--- a/console.lisp
+++ b/console.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Dec 2002
 ;;;;
-;;;; $Id: console.lisp,v 1.1 2002/12/13 21:59:57 kevin Exp $
+;;;; $Id: console.lisp,v 1.2 2003/06/25 20:13:36 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and by onShore Development, Inc.
@@ -27,8 +27,7 @@
   "Format output to console"
   (when *console-msgs*
     (setq template (concatenate 'string "~&;; " template "~%"))
-    (apply #'format t template args))
-  (values))
+    (apply #'format t template args))))
 
 (defun cmsg-c (condition template &rest args)
   "Push CONDITION keywords into *console-msgs-types* to print console msgs