-(defun alien-function (name return-type &rest arg-types)
- (let ((alien
- (alien::%heap-alien
- (alien::make-heap-alien-info
- :type (alien::parse-alien-type
- `(function ,@(cons return-type arg-types)))
- :sap-form (system:foreign-symbol-address name)))))
- #'(lambda (&rest args)
- (apply #'alien:alien-funcall alien args))))
-
-