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))))