From b38ac1c9bbdb080dd56013bdfc1ca32a907c41d0 Mon Sep 17 00:00:00 2001
From: csr21 <unknown>
Date: Thu, 29 May 2003 10:35:05 -0400
Subject: [PATCH] Fix bogus FIND in COPY-GCONTEXT-COMPONENTS; FIND doesn't
 return two

Fix bogus FIND in COPY-GCONTEXT-COMPONENTS; FIND doesn't return two
values, and never has done.  Assume that the second value was meant to
be the index into the sequence.

darcs-hash:20030529143505-ed5a3-6362f36a95c30d21b0f01f4ba5cf1f21c99c8c4b.gz
---
 gcontext.lisp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/gcontext.lisp b/gcontext.lisp
index afd7a77..43d1f51 100644
--- a/gcontext.lisp
+++ b/gcontext.lisp
@@ -843,12 +843,11 @@
 	    (if i
 		(setq mask (the xgcmask (logior mask
 						(the xgcmask (svref *gcontext-masks* i)))))
-	      (multiple-value-bind (extension index)
-		  (find key *gcontext-extensions* :key #'gcontext-extension-name)
+	      (let ((extension (find key *gcontext-extensions* :key #'gcontext-extension-name)))
 		(if extension
 		    (funcall (gcontext-extension-copy-function extension)
 			     src dst (svref (gcontext-local-state src)
-					    (index+ index *gcontext-data-length*)))
+					    (index+ (position extension *gcontext-extensions*) *gcontext-data-length*)))
 		  (x-type-error key 'gcontext-key))))))
 	
 	(when (plusp mask)
-- 
GitLab