/[cl-gsl]/cl-gsl/enum.lisp
ViewVC logotype

Contents of /cl-gsl/enum.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Wed Mar 2 01:04:53 2005 UTC (9 years, 1 month ago) by edenny
Branch: MAIN
Branch point for: cl-gsl
Initial revision
1 ;;;; -*- Mode: Lisp; Synatx: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;;
3 ;;;; Copyright (C) 2005 Edgar Denny <edgardenny@comcast.net>
4 ;;;; This file is part of CL-GSL.
5 ;;;;
6 ;;;; This program is free software; you can redistribute it and/or modify
7 ;;;; it under the terms of the GNU General Public License as published by
8 ;;;; the Free Software Foundation; either version 2 of the License, or
9 ;;;; (at your option) any later version.
10 ;;;;
11 ;;;; This program is distributed in the hope that it will be useful,
12 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ;;;; GNU General Public License for more details.
15 ;;;;
16 ;;;; You should have received a copy of the GNU General Public License
17 ;;;; along with this program; if not, write to the Free Software
18 ;;;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19
20 (in-package #:cl-gsl)
21
22 (register-constants ((+continue+ -2)
23 (+failure+ -1)
24 (+success+ 0)
25 (+edom+ 1)
26 (+erange+ 2)
27 (+efault+ 3)
28 (+einval+ 4)
29 (+efailed+ 5)
30 (+efactor+ 6)
31 (+esanity+ 7)
32 (+enomem+ 8)
33 (+ebadfunc+ 9)
34 (+erunaway+ 10)
35 (+emaxiter+ 11)
36 (+ezerodiv+ 12)
37 (+ebadtol+ 13)
38 (+etol+ 14)
39 (+eundrflw+ 15)
40 (+eovrflw+ 16)
41 (+eloss+ 17)
42 (+eround+ 18)
43 (+ebadlen+ 19)
44 (+enotsqr+ 20)
45 (+esing+ 21)
46 (+ediverge+ 22)
47 (+eunsup+ 23)
48 (+eunimpl+ 24)
49 (+ecache+ 25)
50 (+etable+ 26)
51 (+enoprog+ 27)
52 (+enoprogj+ 28)
53 (+etolf+ 29)
54 (+etolx+ 30)
55 (+etolg+ 31)
56 (+eof+ 32)))
57
58 (register-constants ((+prec-double+ 0)
59 (+prec-single+ 1)
60 (+prec-approx+ 2)))
61
62
63

  ViewVC Help
Powered by ViewVC 1.1.5