r5489: *** empty log message ***
[wol.git] / log.lisp
index 3793720af9e1ef1d0881d059db37d61afe33b83d..4a8cde2d8e125e460c5597c3dc854ed1a305ea14 100644 (file)
--- a/log.lisp
+++ b/log.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  July 2003
 ;;;;
-;;;; $Id: log.lisp,v 1.1 2003/07/16 16:40:35 kevin Exp $
+;;;; $Id: log.lisp,v 1.2 2003/08/10 17:56:44 kevin Exp $
 ;;;;
 ;;;; This file and Wol are Copyright (c) 2003 by Kevin M. Rosenberg
 ;;;; *************************************************************************
@@ -15,4 +15,5 @@
 (in-package #:wol)
 
 (defun add-log-entry (project fmt &rest args)
+  (declare (ignore project))
   (apply #'cmsg fmt args))