package.lisp

   1 ;; Copyright (c) 2008 Nikodemus Siivola <nikodemus@random-state.net>
   2 ;;
   3 ;; Permission is hereby granted, free of charge, to any person
   4 ;; obtaining a copy of this software and associated documentation
   5 ;; files (the "Software"), to deal in the Software without
   6 ;; restriction, including without limitation the rights to use,
   7 ;; copy, modify, merge, publish, distribute, sublicense, and/or sell
   8 ;; copies of the Software, and to permit persons to whom the
   9 ;; Software is furnished to do so, subject to the following
  10 ;; conditions:
  11 ;;
  12 ;; The above copyright notice and this permission notice shall be
  13 ;; included in all copies or substantial portions of the Software.
  14 ;;
  15 ;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  16 ;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
  17 ;; OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  18 ;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
  19 ;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
  20 ;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
  21 ;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
  22 ;; OTHER DEALINGS IN THE SOFTWARE.
  23
  24 (defpackage :sb-cpu-affinity
  25   (:use :sb-alien :cl)
  26   (:export
  27    "+CPU-LIMIT+"
  28    "CLEAR-CPU-AFFINITY-MASK"
  29    "CPU-AFFINITY-MASK"
  30    "CPU-AFFINITY-P"
  31    "CPU-COUNT"
  32    "GET-CPU-AFFINITY-MASK"
  33    "SET-CPU-AFFINITY-MASK"
  34    "WITH-CPU-AFFINITY-MASK"
  35    ))