Skip to content
Snippets Groups Projects
Commit 66185bc5 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Tweak example.

parent accd08ab
No related branches found
No related tags found
No related merge requests found
......@@ -19,8 +19,8 @@ and extract its output.
(uiop:run-program
(lisp-invocation:lisp-invocation-arglist
:implementation-type impl
:eval (format nil "(progn (format t \"~~{~~31R~~^ ~~}~~%\" '~S) ~A)"
'(595756 9556552524 643802 496307950)
:eval (format nil "(progn (format t ~S '~S) ~A)"
"~{~31R~^ ~}~%" '(595756 9556552524 643802 496307950)
(lisp-invocation:quit-form :code 0 :implementation-type impl)))
:output :string))
......
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