blob: a56d2e2b329d4887946b7d10106ef21e89b7f897 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(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)))
(unless (boundp '+runtime-type+)
(defconstant +runtime-type+ (runtime-type)))
(pushnew (case +runtime-type+
((:gnu) 'objcl-features:gnu-runtime)
((:next) 'objcl-features:next-runtime))
*features*))
|