Permalink
Browse files

Upcoming SBCL proves positional-lambda's assumption about backquote w…

…rong. Don't use backquote inside plambda, for now.
  • Loading branch information...
Hexstream committed Jul 23, 2014
1 parent 59a7dc6 commit c08a1fa4e8d61b8d26c5e6dd5f4ec2278b2241b1
Showing with 4 additions and 4 deletions.
  1. +3 −3 definitions.lisp
  2. +1 −1 multiple-value-variants.asd
@@ -173,17 +173,17 @@
(values (vars '#:value) (vars '#:accumulate) (vars '#:finish)))
`(let ((,function-var ,function) ,@accumulate-vars ,@finish-vars)
(setf ,@(mapcan (let ((make-accumulator (list accumulator-maker)))
(plambda (list `(values ,:1 ,:2) make-accumulator)))
(plambda (list (list 'values :1 :2) make-accumulator)))
accumulate-vars
finish-vars))
(,mapper (lambda (,@element-vars)
(multiple-value-bind (,@value-vars)
(funcall ,function-var ,@element-vars)
,@(mapcar (plambda `(funcall ,:1 ,:2))
,@(mapcar (plambda (list 'funcall :1 :2))
accumulate-vars
value-vars)))
,@lists)
(values ,@(mapcar (plambda `(funcall ,:1))
(values ,@(mapcar (plambda (list 'funcall :1))
finish-vars))))))

(define mapcar (multiple-values-count) (function list &rest more-lists)
@@ -11,7 +11,7 @@
#:positional-lambda
#:enhanced-multiple-value-bind)

:version "1.0"
:version "1.0.1"
:serial cl:t
:components ((:file "package")
(:file "info")

0 comments on commit c08a1fa

Please sign in to comment.