diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-21 19:52:30 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-21 19:52:30 +0200 |
commit | 7765ad52e00034edd23bb09bade83d8b282f8040 (patch) | |
tree | 61f3087a64d9667c80ce4bec853b26f8c858927e /Lisp/init.lisp | |
parent | e8081745f009f2f7c3dc9b46d072094e6bab30d6 (diff) |
Objective-C layer: Add functions for determining the Objective-C runtime used and for asking for the size of types by typespec.
darcs-hash:197f36840c1568c5b3431833a0118d06729b9247
Diffstat (limited to 'Lisp/init.lisp')
-rw-r--r-- | Lisp/init.lisp | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/Lisp/init.lisp b/Lisp/init.lisp index 72d616f..a56d2e2 100644 --- a/Lisp/init.lisp +++ b/Lisp/init.lisp @@ -9,4 +9,10 @@ (unless (boundp '+yes+) (defconstant +yes+ (objcl-get-yes))) (unless (boundp '+no+) - (defconstant +no+ (objcl-get-no)))) + (defconstant +no+ (objcl-get-no))) + (unless (boundp '+runtime-type+) + (defconstant +runtime-type+ (runtime-type))) + (pushnew (case +runtime-type+ + ((:gnu) 'objcl-features:gnu-runtime) + ((:next) 'objcl-features:next-runtime)) + *features*)) |