/[cl-ipc]/cl-ipc/specials.lisp
ViewVC logotype

Contents of /cl-ipc/specials.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (hide annotations)
Fri Sep 16 14:42:42 2005 UTC (8 years, 7 months ago) by skamphausen
Branch: MAIN
CVS Tags: release-1-0, HEAD
Changes since 1.1: +8 -3 lines
added *err-no-message* (for CMUCL and SBCL)
1 skamphausen 1.1 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
2    
3 skamphausen 1.2 ;;; $Header: /tiger/var/lib/cvsroots/cl-ipc/cl-ipc/specials.lisp,v 1.2 2005/09/16 14:42:42 skamphausen Exp $
4     ;;; $Id: specials.lisp,v 1.2 2005/09/16 14:42:42 skamphausen Exp $
5 skamphausen 1.1
6     ;;; Copyright (C) 2005 by
7     ;;; Dr. Edmund Weitz http://weitz.de
8     ;;; and
9     ;;; Stefan Kamphausen http://www.skamphausen.de
10     ;;; All rights reserved.
11    
12     ;;; Redistribution and use in source and binary forms, with or without
13     ;;; modification, are permitted provided that the following conditions
14     ;;; are met:
15    
16     ;;; * Redistributions of source code must retain the above copyright
17     ;;; notice, this list of conditions and the following disclaimer.
18    
19     ;;; * Redistributions in binary form must reproduce the above
20     ;;; copyright notice, this list of conditions and the following
21     ;;; disclaimer in the documentation and/or other materials
22     ;;; provided with the distribution.
23    
24     ;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
25     ;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
26     ;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27     ;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
28     ;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29     ;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
30     ;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
31     ;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
32     ;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
33     ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
34     ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
35    
36     (in-package :cl-ipc)
37    
38 skamphausen 1.2 (defconstant +message-length+ 256)
39    
40     (defparameter *err-no-message*
41     #+cmu unix:ENOMSG
42     #+sbcl sb-posix:ENOMSG
43     )

  ViewVC Help
Powered by ViewVC 1.1.5