Lots more has happened.

[sod] / builtin.lisp

diff --git a/builtin.lisp b/builtin.lisp
index 26d384b..21fa1e3 100644 (file)
--- a/builtin.lisp
+++ b/builtin.lisp
@@ -187,12 +187,12 @@ static const SodClass *const ~A__cpl[] = {
              ,(lambda (class)
                 (format nil "sizeof(struct ~A)"
                         (ilayout-struct-tag class))))
-    ("imprint" ,(c-type (* (fun (* void) ("p" (* void)))))
+    ("imprint" ,(c-type (* (fun (* void) ("/*p*/" (* void)))))
               :prepare-function 'output-imprint-function
               :initializer-function
               ,(lambda (class)
                  (format nil "~A__imprint" class)))
-    ("init" ,(c-type (* (fun (* void) ("p" (* void)))))
+    ("init" ,(c-type (* (fun (* void) ("/*p*/" (* void)))))
            :prepare-function 'output-init-function
            :initializer-function
            ,(lambda (class)
@@ -300,7 +300,7 @@ static const SodClass *const ~A__cpl[] = {
 
 (defun make-builtin-module ()
   (let ((module (make-instance 'module
-                              :name (make-pathname :name "BUILTIN"
+                              :name (make-pathname :name "SOD-BASE"
                                                    :type "SOD"
                                                    :case :common)
                               :state nil))