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