From 29f7c5a3ddce893ef584f50151f580e61fca423b Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 29 Mar 1993 03:39:58 +0000
Subject: [PATCH] Fixed ptrans_instance to actually return the result of
 calling ptrans_boxed instead of relying on the result still being in the
 correct register.

---
 lisp/purify.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/purify.c b/lisp/purify.c
index 09d84b277..70f629c89 100644
--- a/lisp/purify.c
+++ b/lisp/purify.c
@@ -1,6 +1,6 @@
 /* Purify. */
 
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/purify.c,v 1.5 1993/02/26 09:02:06 ram Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/purify.c,v 1.6 1993/03/29 03:39:58 wlott Exp $ */
 
 #include <stdio.h>
 #include <sys/types.h>
@@ -137,9 +137,9 @@ static lispobj ptrans_boxed(lispobj thing, lispobj header, boolean constant)
 static lispobj ptrans_instance(lispobj thing, lispobj header, boolean constant)
 {
     lispobj layout = ((struct instance *)PTR(thing))->slots[0];
-    ptrans_boxed(thing, header,
-                 (((struct instance *)PTR(layout))->slots[15])
-		 != NIL);
+    return ptrans_boxed(thing, header,
+			(((struct instance *)PTR(layout))->slots[15])
+			!= NIL);
 }
     
 static lispobj ptrans_fdefn(lispobj thing, lispobj header)
-- 
GitLab