losp/muerte/variables.lisp

   1 ;;;;------------------------------------------------------------------
   2 ;;;;
   3 ;;;;    Copyright (C) 2003-2005,
   4 ;;;;    Department of Computer Science, University of Tromso, Norway.
   5 ;;;;
   6 ;;;;    For distribution policy, see the accompanying file COPYING.
   7 ;;;;
   8 ;;;; Filename:      variables.lisp
   9 ;;;; Description:
  10 ;;;; Author:        Frode Vatvedt Fjeld <frodef@acm.org>
  11 ;;;; Created at:    Wed Nov  5 21:53:34 2003
  12 ;;;;
  13 ;;;; $Id: variables.lisp,v 1.10 2006/04/10 11:58:27 ffjeld Exp $
  14 ;;;;
  15 ;;;;------------------------------------------------------------------
  16
  17 (require :muerte/basic-macros)
  18 (provide :muerte/variables)
  19
  20 (in-package muerte)
  21
  22 (defconstant lambda-list-keywords
  23     '(&allow-other-keys &aux &body &environment &key &optional &rest &whole))
  24
  25 (defvar * nil)
  26 (defvar ** nil)
  27 (defvar *** nil)
  28
  29 (defvar / nil)
  30 (defvar // nil)
  31 (defvar /// nil)
  32
  33 (defvar + nil)
  34 (defvar ++ nil)
  35 (defvar +++ nil)
  36
  37 (defvar *read-base* 10)
  38 (defvar *package* nil)
  39
  40 (defparameter *debugger-hook* nil)
  41 (defvar *active-condition-handlers* nil)
  42 (defvar *multiboot-data* nil)
  43
  44 (defvar internal-time-units-per-second)
  45
  46 (defvar *gc-hooks* nil)
  47
  48 (defvar *load-pathname* nil)
  49
  50
  51 (defvar most-positive-short-float 1000000)
  52 (defvar most-positive-single-float 1000000)
  53 (defvar most-positive-double-float 1000000)
  54 (defvar most-positive-long-float 1000000)
  55
  56 (defvar short-float-epsilon 1/1000)
  57 (defvar single-float-epsilon 1/1000)
  58 (defvar double-float-epsilon 1/1000)
  59 (defvar long-float-epsilon 1/1000)
  60
  61 (defvar short-float-negative-epsilon -1/1000)
  62 (defvar single-float-negative-epsilon -1/1000)
  63 (defvar double-float-negative-epsilon -1/1000)
  64 (defvar long-float-negative-epsilon -1/1000)
  65
  66
  67 (defconstant call-arguments-limit #xffff0)
  68 (defconstant lambda-parameters-limit #x1000) ; ?
  69
  70 (defvar *print-pprint-dispatch* nil)
  71
  72 (declaim (special *build-number*))