Skip to content
Snippets Groups Projects
Commit b38ac1c9 authored by csr21's avatar csr21
Browse files

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
parent daa1b8d8
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment