X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=console.lisp;h=e45abf329d94d0d9054db4ad7202e5d25da75956;hp=3e81b23e056f95b1f578445267fcb3fedd75f3eb;hb=a377884abb0f3f36a67d335214bf2936b7c32070;hpb=29aa484de6bd54a2a38792057a2d9f72b534a42c

diff --git a/console.lisp b/console.lisp
index 3e81b23..e45abf3 100644
--- a/console.lisp
+++ b/console.lisp
@@ -1,4 +1,4 @@
-;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
@@ -7,8 +7,8 @@
 ;;;; 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.4 2003/07/05 02:32:08 kevin Exp $
+;;;;a
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and by onShore Development, Inc.
 ;;;;
@@ -17,7 +17,7 @@
 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;; *************************************************************************
 
-(in-package :kmrcl)
+(in-package #:kmrcl)
 
 (defvar *console-msgs* t)
 
@@ -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