Skip to content
Snippets Groups Projects
Commit 7348bfc2 authored by rtoy's avatar rtoy
Browse files

Extra values were not correctly handled by the values setf expander.

This causes

  (let ((a t) (b t) (c t) (d t) (e t) (f t))
    (setf (values a (values b c) (values d) (values e f)) (values 0 1 2 3 4 5 6))
    (list a b c d e f))

to return the (0 1 2 3 4 5) instead of (0 1 nil 2 3 nil).
parent 2ecccad7
No related branches found
No related tags found
No related merge requests found
Loading
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