specials.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:          specials.lisp
   6 ;;;; Purpose:       Special data declarations for FFTW3 package
   7 ;;;; Programmer:    Kevin M. Rosenberg
   8 ;;;; Date Started:  March 2009
   9 ;;;;
  10 ;;;; $Id$
  11 ;;;;
  12 ;;;; This file, part of FFTW3, is Copyright (c) 2009 by Kevin M. Rosenberg
  13 ;;;;
  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 ;;;; *************************************************************************
  18
  19 (in-package #:fftw3)
  20
  21 (defconstant +fftw-forward+ -1)
  22 (defconstant +fftw-backward+ +1)
  23
  24 (defconstant +fftw-r2hc+ 0)
  25 (defconstant +fftw-hc2r+ 1)
  26
  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))
  35
  36 (defparameter *user-wisdom-file*
  37   (concatenate 'string (namestring (user-homedir-pathname)) ".fftw3-wisdom"))
  38
  39 (defvar *standard-optimize-settings*
  40   '(optimize
  41     speed
  42     (safety 0)
  43     (space 0)
  44     (debug 1)
  45     (compilation-speed 0)
  46     #+:lispworks (hcl:fixnum-safety 0))
  47   "The standard optimize settings used by most declaration expressions.")