(declaim (optimize (debug 3) (safety 3)))

(defpackage #:test
  (:use #:cl))

(in-package #:test)

(eval-when (:compile-toplevel :load-toplevel :execute)
  (defun vec (x y)
    (complex x y)))

;; Straight out of SBCL manual (2.3.4)
(defmacro define-constant (name value &optional doc)
  `(defconstant ,name (if (boundp ',name) (symbol-value ',name) ,value)
     ,@(when doc (list doc))))

(define-constant pie-in-the-sky
  (vec 0 0))

(define-constant crash-and-burn
  (vec 0.0 0.0))