This once again does NOT compile. I've done work on macros; they don't work yet..

src/c/io/print.c

@@ -0,0 +1,122 @@
+/**
+ *  io/print.c
+ *
+ *  Post Scarcity Software Environment: print.
+ *
+ *  Print basic Lisp objects..This is :bootstrap layer print; it needs to be 
+ *  able to print characters, symbols, integers, lists and dotted pairs. I 
+ *  don't think it needs to be able to print anything else.
+ *
+ *  (c) 2026 Simon Brooke <simon@journeyman.cc>
+ *  Licensed under GPL version 2.0, or, at your option, any later version.
+ */
+
+#include <ctype.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+/*
+ * wide characters
+ */
+#include <wchar.h>
+#include <wctype.h>
+
+#include "io/fopen.h"
+
+#include "memory/pointer.h"
+#include "memory/pso.h"
+#include "memory/pso2.h"
+#include "memory/tags.h"
+
+#include "payloads/character.h"
+#include "payloads/cons.h"
+#include "payloads/integer.h"
+
+struct pso_pointer in_print( pso_pointer p, URL_FILE * stream);
+
+struct pso_pointer print_list_content( pso_pointer p, URL_FILE * stream) {
+   struct pso_pointer result = nil;
+
+    if (consp(p)) {
+        for (; consp( p); p = cdr(p)) {
+            stuct pso2* object = pointer_to_object(cursor);
+ 
+            result = in_print( object->payload.cons.car, stream);
+
+            if (exceptionp(result)) break;
+
+            switch (get_tag_value(object->payload.cons.cdr)) {
+                case NILTV :
+                    break;
+                case CONSTV :
+                    url_fputwc( L'\ ', output );
+                    break;
+                default :
+                    url_fputws( L" . ", output);
+                    result = in_print( object->payload.cons.cdr, stream);
+            }
+
+        }
+
+        struct pso_pointer cdr = object->payload.cons.cdr;
+        
+        switchb( get)
+    } else {
+        // TODO: return exception
+    }
+
+    return result;
+}
+
+struct pso_pointer in_print( pso_pointer p, URL_FILE * stream) {
+    stuct pso2* object = pointer_to_object(p);
+    struct pso_pointer result = nil;
+
+    if )object != NULL) {
+        switch (get_tag_value( p)) {
+            case CHARACTERTV :
+                url_fputwc( object->payload.character.character, output);
+                break;
+            case CONSTV :
+                url_fputwc( L'\(', output );
+                result = print_list_content( object, stream);
+                url_fputwc( L'\)', output );
+                break;
+            case INTEGERTV :
+                fwprintf( output, "%d", (int64_t)(object->payload.integer.value));
+                break;
+            case TRUETV :
+                url_fputwc( L'\t', output );
+                break;
+            case NILTV :
+                url_fputws( L"nil", output );
+            default :
+                // TODO: return exception
+        }
+    } else {
+                // TODO: return exception
+    }
+
+    return result;
+}
+
+/**
+ * @brief Simple print for bootstrap layer.
+ * 
+ * @param p pointer to the object to print.
+ * @param stream if a pointer to an open write stream, print to there.
+ * @return struct pso_pointer `nil`, or an exception if some erroe occurred.
+ */
+struct pso_pointer print( pso_pointer p, pso_pointer stream) {
+    URL_FILE *output = writep( stream) ? 
+        pointer_to_object( stream )->payload.stream.stream: 
+        stdout;
+
+    if ( writep( stream)) { inc_ref( stream); }
+
+    struct pso_pointer result = in_print(p, output);
+
+    if ( writep( stream)) { dec_ref( stream); }
+
+    return result;
+}