1.1--- a/lisp/std/alien.lisp	Fri Dec 08 23:38:55 2023 -0500
     1.2+++ b/lisp/std/alien.lisp	Sat Dec 09 00:56:36 2023 -0500
     1.3@@ -24,6 +24,7 @@
     1.4   (:use :cl :sb-vm :sb-ext :sb-c :std/base)
     1.5   (:use-reexport :sb-alien)
     1.6   (:export
     1.7+   :define-opaque
     1.8    :setfa
     1.9    :copy-c-string
    1.10    :clone-strings
    1.11@@ -42,6 +43,8 @@
    1.12 ;; 	       '(:with-pinned-objects :with-pinned-object-iterator :with-code-pages-pinned
    1.13 ;; 		 :sanctify-for-execution))
    1.14 
    1.15+(defmacro define-opaque (ty) `(define-alien-type ,ty (struct ,(symbolicate ty '-t))))
    1.16+
    1.17 (defun setfa (place from) 
    1.18   (loop for x across from
    1.19 	for i from 0 below (length from)