From 703c427d767d6d4417dc6abc29b6b3cc15bd08f1 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 1 Jun 1990 16:26:09 +0000
Subject: [PATCH] When defining the indirect operator for pointer types, use
 the type description, not the name of the type.

---
 code/c-call.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/c-call.lisp b/code/c-call.lisp
index 18d86aa15..9e7143a22 100644
--- a/code/c-call.lisp
+++ b/code/c-call.lisp
@@ -313,7 +313,7 @@
 	(make-alien ',name ,(c-type-size res)))
       (defoperator (,(symbolicate "INDIRECT-" pname)
 		    ,(record-type-description res))
-		   ((pointer ,pname))
+		   ((pointer ,(c-type-description pres)))
 	`(alien-indirect (alien-value ,pointer) ,,pos))
       ,@(define-record-operators res))))
 
@@ -387,7 +387,7 @@
 	(setf (gethash ',name *c-type-names*) ',res))
       (defoperator (,(symbolicate "INDIRECT-" name)
 		    ,(c-type-description type))
-		   ((pointer ,name)
+		   ((pointer ,(c-type-description res))
 		    ,@(unless (c-type-size type)
 			'(size)))
 	`(alien-indirect (alien-value ,pointer)
-- 
GitLab