1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
5 ;;;; Name: specials.lisp
6 ;;;; Purpose: Special data declarations for FFTW3 package
7 ;;;; Programmer: Kevin M. Rosenberg
8 ;;;; Date Started: March 2009
12 ;;;; This file, part of FFTW3, is Copyright (c) 2009 by Kevin M. Rosenberg
14 ;;;; FFTW3 users are granted the rights to distribute and use this software
15 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
16 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
17 ;;;; *************************************************************************
21 (defconstant +fftw-forward+ -1)
22 (defconstant +fftw-backward+ +1)
24 (defconstant +fftw-r2hc+ 0)
25 (defconstant +fftw-hc2r+ 1)
27 (defconstant +fftw-measure+ 0)
28 (defconstant +fftw-destroy-input+ (ash 1 0))
29 (defconstant +fftw-unaligned+ (ash 1 1))
30 (defconstant +fftw-conservative-memory+ (ash 1 2))
31 (defconstant +fftw-exhaustive+ (ash 1 3))
32 (defconstant +fftw-preserve-input+ (ash 1 4))
33 (defconstant +fftw-patiento+ (ash 1 5))
34 (defconstant +fftw-estimate+ (ash 1 6))
36 (defparameter *user-wisdom-file*
37 (concatenate 'string (namestring (user-homedir-pathname)) ".fftw3-wisdom"))
39 (defvar *standard-optimize-settings*
46 #+:lispworks (hcl:fixnum-safety 0))
47 "The standard optimize settings used by most declaration expressions.")