Commit f3ab382b authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Use values-list instead of apply 'values

parent 22865e39
......@@ -89,7 +89,7 @@ The macro expansion has relatively low overhead in space or time."
(e "~& ~S => " expression)
(let ((results (multiple-value-list (funcall thunk))))
(e "~{~S~^ ~}~%" results)
(apply 'values results))))
(values-list results))))
(map () #'z (list *standard-output* *error-output* *trace-output*))
(e "~A~%" tag)
(loop :for (expression . thunk) :in expressions-thunks
......
......@@ -318,7 +318,7 @@ of the function will be returned rather than interpreted as a boolean designatin
(call-function entry-point)
t))))
(if lisp-interaction
(apply 'values results)
(values-list results)
(shell-boolean-exit (first results)))))))
......
......@@ -496,7 +496,7 @@ within an WITH-SAFE-IO-SYNTAX using the specified PACKAGE."
:for form = (read input nil eof)
:until (eq form eof)
:do (setf results (multiple-value-list (eval form)))
:finally (return (apply 'values results)))))
:finally (return (values-list results)))))
(defun eval-thunk (thunk)
"Evaluate a THUNK of code:
......@@ -622,7 +622,7 @@ Finally, the file will be deleted, unless the KEEP argument when CALL-FUNCTION'e
((not okp) nil)
(after (return (call-function after okp)))
((and want-pathname-p (not want-stream-p)) (return (call-function thunk okp)))
(t (return (apply 'values results)))))
(t (return (values-list results)))))
(when (and okp (not (call-function keep)))
(ignore-errors (delete-file-if-exists okp))))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment