Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 51 lines (46 sloc) 1.163 kb
9a42838 Initial revision
eenge authored
1 ;;;; $Id: variable.lisp,v 1.1 2003/11/13 18:32:45 eenge Exp $
2 ;;;; $Source: /project/cl-syslog/cvsroot/cl-syslog/variable.lisp,v $
3
4 ;;;; See the LICENSE file for licensing information.
5
6 (in-package :syslog)
7
8 (defparameter *priorities*
9 '((:emerg . 0)
10 (:alert . 1)
11 (:crit . 2)
12 (:err . 3)
13 (:warning . 4)
14 (:notice . 5)
15 (:info . 6)
16 (:debug . 7)))
17
18 (defparameter *facilities*
19 '((:kern . 0)
20 (:user . 1)
21 (:mail . 2)
22 (:daemon . 3)
23 (:auth . 4)
24 (:syslog . 5)
25 (:lpr . 6)
26 (:news . 7)
27 (:uucp . 8)
28 (:cron . 9)
29 (:authpriv . 10)
30 (:ftp . 11)
31 (:local0 . 16)
32 (:local1 . 17)
33 (:local2 . 18)
34 (:local3 . 19)
35 (:local4 . 20)
36 (:local5 . 21)
37 (:local6 . 22)
38 (:local7 . 23)))
39
40 (defconstant +log-pid+ #x01
41 "Log the pid with each message.")
42 (defconstant +log-cons+ #x02
43 "Log on the console if errors in sending.")
44 (defconstant +log-odelay+ #x04
45 "Delay open until first syslog() (default).")
46 (defconstant +log-ndelay+ #x08
47 "Don't delay open.")
48 (defconstant +log-nowait+ #x10
49 "Don't wait for console forks: deprecated.")
50 (defconstant +log-perror+ #x20
51 "Log to stderr as well.")
Something went wrong with that request. Please try again.