X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/d9c15186bf79bcac3caf752dd0936233778aa8f2..ddee4bb174ad62e6a9d7ecb49d69867fb2b4742c:/builtin.lisp

diff --git a/builtin.lisp b/builtin.lisp
index 26d384b..21fa1e3 100644
--- 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))