1.1--- a/lisp/std/alien.lisp	Tue Sep 24 22:19:05 2024 -0400
     1.2+++ b/lisp/std/alien.lisp	Wed Sep 25 21:39:39 2024 -0400
     1.3@@ -101,7 +101,7 @@
     1.4 
     1.5 (defun clone-octets-to-alien (lispa alien)
     1.6   (declare (optimize (speed 3))
     1.7-           (simple-vector lispa))
     1.8+           ((vector (unsigned-byte 8)) lispa))
     1.9   ;; (setf aliena (cast aliena (array (unsigned 8))))
    1.10   (loop for i from 0 below (length lispa)
    1.11         do (setf (deref alien i)
    1.12@@ -118,7 +118,7 @@
    1.13 
    1.14 (defun clone-octets-from-alien (aliena lispa &optional len)
    1.15   (declare (optimize (speed 3))
    1.16-           (simple-vector lispa))
    1.17+           (vector lispa))
    1.18   (unless len (setf len (length lispa)))
    1.19   (loop for i from 0 below len
    1.20         do (setf (aref lispa i)