Sorry, the last function should be
(defun test-struct-calling-out ()
(with-alien ((foo (* test-struct)))
(test-struct-routine foo)))
>(def-alien-type test-struct
> (struct nil (foo unsigned)))
>
>(def-alien-routine test-struct-routine void (foo (* test-struct)))
>
>(defun test-struct ()
> (make-alien test-struct))
>
>(defun test-struct-wo-note ()
> (with-alien ((foo test-struct))
> (format t "~a" (slot foo 'foo) )))
>
>(defun test-struct-calling-out ()
> (with-alien ((foo test-struct))
> (test-struct-routine foo)))
>
>
>
