~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
src/lexer-proto.lisp: New parser `must'.
[sod]
/
src
/
builtin.lisp
diff --git
a/src/builtin.lisp
b/src/builtin.lisp
index
0787b8d
..
c7cb148
100644
(file)
--- a/
src/builtin.lisp
+++ b/
src/builtin.lisp
@@
-545,7
+545,7
@@
static const SodClass *const ~A__cpl[] = {
(add-to-module module class))))
(export '*builtin-module*)
(add-to-module module class))))
(export '*builtin-module*)
-(defvar
*builtin-module* nil
+(defvar
-unbound *builtin-module*
"The builtin module.")
(export 'make-builtin-module)
"The builtin module.")
(export 'make-builtin-module)
@@
-564,8
+564,6
@@
static const SodClass *const ~A__cpl[] = {
:case :common)
:state nil)))
(with-module-environment (module)
:case :common)
:state nil)))
(with-module-environment (module)
- (dolist (name '("va_list" "size_t" "ptrdiff_t" "wchar_t"))
- (add-to-module module (make-instance 'type-item :name name)))
(flet ((header-name (name)
(concatenate 'string "\"" (string-downcase name) ".h\""))
(add-includes (reason &rest names)
(flet ((header-name (name)
(concatenate 'string "\"" (string-downcase name) ".h\""))
(add-includes (reason &rest names)
@@
-584,6
+582,6
@@
static const SodClass *const ~A__cpl[] = {
(setf *builtin-module* module)))
(define-clear-the-decks builtin-module
(setf *builtin-module* module)))
(define-clear-the-decks builtin-module
- (unless
*builtin-module*
(make-builtin-module)))
+ (unless
(boundp '*builtin-module*)
(make-builtin-module)))
;;;----- That's all, folks --------------------------------------------------
;;;----- That's all, folks --------------------------------------------------