Update of /project/cl-syslog/cvsroot/cl-syslog In directory common-lisp.net:/tmp/cvs-serv14290
Modified Files: cl-syslog.lisp Log Message: adding some better docstrings
Date: Sat Nov 22 18:34:52 2003 Author: eenge
Index: cl-syslog/cl-syslog.lisp diff -u cl-syslog/cl-syslog.lisp:1.1.1.1 cl-syslog/cl-syslog.lisp:1.2 --- cl-syslog/cl-syslog.lisp:1.1.1.1 Thu Nov 13 13:32:45 2003 +++ cl-syslog/cl-syslog.lisp Sat Nov 22 18:34:52 2003 @@ -1,4 +1,4 @@ -;;;; $Id: cl-syslog.lisp,v 1.1.1.1 2003/11/13 18:32:45 eenge Exp $ +;;;; $Id: cl-syslog.lisp,v 1.2 2003/11/22 23:34:52 eenge Exp $ ;;;; $Source: /project/cl-syslog/cvsroot/cl-syslog/cl-syslog.lisp,v $
;;;; See the LICENSE file for licensing information. @@ -47,11 +47,15 @@ ;;
(defun get-facility (facility-name) + "Return facility number given the facility's name. If there is no +such facility, signal `invalid-facility' error." (ash (or (cdr (assoc facility-name *facilities*)) (error (make-condition 'invalid-facility :facility facility-name))) 3))
(defun get-priority (priority-name) + "Return priority number given the priority's name. If there is no +such priority, signal `invalid-priority' error." (or (cdr (assoc priority-name *priorities*)) (error (make-condition 'invalid-priority :priority priority-name))))