Skip to content
Snippets Groups Projects
Commit 483afea5 authored by rtoy's avatar rtoy
Browse files

Fix bug reported by Drew McDermott, cmucl-help, 2005/12/07.

(defun spunk (a b)
   (let (k m p q)
      (multiple-value-setq
         (k m p q)
        (the (values t t t t)
          (punk a b)))))


Remove the assertion that the values type must have no required args
and adjust maybe-negate-check appropriately.  (This last from Alexey
Dejneka.)
parent 3206cfdb
No related branches found
No related tags found
Loading
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