1.1--- a/lisp/std/alien.lisp	Thu Oct 03 21:54:07 2024 -0400
     1.2+++ b/lisp/std/alien.lisp	Fri Oct 04 16:14:44 2024 -0400
     1.3@@ -54,7 +54,8 @@
     1.4        
     1.5 (defmacro define-opaque (ty &optional no-export foreign-type)
     1.6   `(prog1
     1.7-       (define-alien-type ,ty (struct ,(or foreign-type (symbolicate ty '-t))))
     1.8+       (eval-when (:compile-toplevel :load-toplevel :execute)
     1.9+         (define-alien-type ,ty (struct ,(or foreign-type (symbolicate ty '-t)))))
    1.10      ,(unless no-export `(export '(,ty)))))
    1.11 
    1.12 (defun setfa (place from) 
    1.13@@ -216,3 +217,5 @@
    1.14 (define-alien-type loff-t long-long)
    1.15 
    1.16 (define-alien-routine memset void (ptr (* t)) (constant int) (size size-t))
    1.17+(define-alien-routine memcpy void (dst (* t)) (src (* t)) (size size-t))
    1.18+(define-alien-routine posix-memalign int (box (* t)) (alignment size-t) (size size-t))