Add method expand-to-foreign-dyn-indirect foreign-type-alias

Add method expand-to-foreign-dyn-indirect for type foreign-type-alias so that foreign-string-type will be expanded correctly (as a pointer).

diff --git a/src/early-types.lisp b/src/early-types.lisp
index 1098abe..28164b7 100644 (file)
--- a/src/early-types.lisp
+++ b/src/early-types.lisp
@@ -524,6 +524,9 @@ Signals an error if the type cannot be resolved."
     (value var body (type translatable-foreign-type))
   (foreign-expand-runtime-translator-or-binding value var body type))
 
+(defmethod expand-to-foreign-dyn-indirect (value var body (type foreign-type-alias))
+  (expand-to-foreign-dyn-indirect value var body (actual-type type)))
+
 ;;; User interface for converting values from/to foreign using the
 ;;; type translators.  The compiler macros use the expanders when
 ;;; possible.