/[rdnzl]/RDNZL/packages.lisp
ViewVC logotype

Contents of /RDNZL/packages.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.6 - (show annotations)
Thu Aug 10 15:36:47 2006 UTC (7 years, 8 months ago) by eweitz
Branch: MAIN
CVS Tags: HEAD
Changes since 1.5: +0 -0 lines
Sync with 10.1.2
1 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
2 ;;; $Header: /tiger/var/lib/cvsroots/rdnzl/RDNZL/packages.lisp,v 1.6 2006/08/10 15:36:47 eweitz Exp $
3
4 ;;; Copyright (c) 2004-2006, Dr. Edmund Weitz. All rights reserved.
5
6 ;;; Redistribution and use in source and binary forms, with or without
7 ;;; modification, are permitted provided that the following conditions
8 ;;; are met:
9
10 ;;; * Redistributions of source code must retain the above copyright
11 ;;; notice, this list of conditions and the following disclaimer.
12
13 ;;; * Redistributions in binary form must reproduce the above
14 ;;; copyright notice, this list of conditions and the following
15 ;;; disclaimer in the documentation and/or other materials
16 ;;; provided with the distribution.
17
18 ;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
19 ;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
20 ;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
21 ;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
22 ;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
23 ;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
24 ;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
25 ;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
26 ;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
27 ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
28 ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29
30 ;;; Definition of the "RDNZL" package.
31
32 (in-package :cl-user)
33
34 ;; Corman Lisp has problems with uninterned symbols like #:aref*
35 (defpackage :rdnzl
36 (:use :cl)
37 #+:sbcl (:shadow :defconstant)
38 (:export :*coerce-double-floats-to-single*
39 :aref*
40 :box
41 :cast
42 :container-p
43 :define-rdnzl-call
44 :disable-rdnzl-syntax
45 :do-rdnzl-array
46 :enable-rdnzl-syntax
47 :enum-to-integer
48 :field
49 :import-assembly
50 :import-type
51 :import-types
52 :integer-to-enum
53 :invoke
54 :init-rdnzl
55 :load-assembly
56 :list-to-rdnzl-array
57 :make-null-object
58 :new
59 :or-enums
60 :property
61 :ref
62 :rdnzl-array-to-list
63 :rdnzl-error
64 :rdnzl-error-exception
65 :rdnzl-handler-case
66 :shutdown-rdnzl
67 :unbox
68 :unuse-all-namespaces
69 :unuse-namespace
70 :use-namespace))
71
72 (defpackage :rdnzl-user
73 (:use :cl :rdnzl)
74 (:documentation "This package is intended for playing around
75 with RDNZL."))

  ViewVC Help
Powered by ViewVC 1.1.5