diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-20 22:59:26 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-20 22:59:26 +0200 |
| commit | e95d66c3148a64b6fe1a6b2aa940ecc41867ce4a (patch) | |
| tree | 3e0c8b6b4c450647284fc6dede17d82dfc4b9d7d /Lisp/init.lisp | |
| parent | 07272baa7e714d2f1c2f1a7ba63bfc2317967fab (diff) | |
Fix the coercion rules for FLOAT and BOOLEAN values.
darcs-hash:d24e207d8f1e0357c8a63ec058ec61318675e89f
Diffstat (limited to 'Lisp/init.lisp')
| -rw-r--r-- | Lisp/init.lisp | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Lisp/init.lisp b/Lisp/init.lisp index 84ae511..72d616f 100644 --- a/Lisp/init.lisp +++ b/Lisp/init.lisp @@ -1,3 +1,12 @@ (in-package #:mulk.objective-cl) (initialise-runtime) + +(eval-when (:load-toplevel) + (unless (boundp '+nil+) + (defconstant +nil+ + (make-instance 'id :pointer (objcl-get-nil)))) + (unless (boundp '+yes+) + (defconstant +yes+ (objcl-get-yes))) + (unless (boundp '+no+) + (defconstant +no+ (objcl-get-no)))) |