r5317: *** empty log message ***

[wol.git] / log.lisp

diff --git a/log.lisp b/log.lisp
new file mode 100644 (file)
index 0000000..3793720
--- /dev/null
+++ b/log.lisp
@@ -0,0 +1,18 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; Package: wol -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          log.lisp
+;;;; Purpose:       Logging functions
+;;;; Programmer:    Kevin M. Rosenberg
+;;;; Date Started:  July 2003
+;;;;
+;;;; $Id: log.lisp,v 1.1 2003/07/16 16:40:35 kevin Exp $
+;;;;
+;;;; This file and Wol are Copyright (c) 2003 by Kevin M. Rosenberg
+;;;; *************************************************************************
+
+(in-package #:wol)
+
+(defun add-log-entry (project fmt &rest args)
+  (apply #'cmsg fmt args))