From aad95e1ea2c114cacf44eb230d85678f31d7da01 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Mon, 5 Dec 2016 14:05:53 +0100 Subject: [PATCH] cosmetic (line wrap, upcase convention) --- src/cmp/cmpname.lsp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/cmp/cmpname.lsp b/src/cmp/cmpname.lsp index fbfb89ac3..476fbc1b8 100644 --- a/src/cmp/cmpname.lsp +++ b/src/cmp/cmpname.lsp @@ -100,12 +100,14 @@ the function name it precedes." (let ((name (read-name stream))) name))) #+pnacl - (let* ((pnacl-dis (or (ext:getenv "PNACL_DIS") - (error "please set the PNACL_DIS environment variable to your toolchain's pnacl-dis location"))) + (let* ((pnacl-dis + (or (ext:getenv "PNACL_DIS") + (error "Please set the PNACL_DIS environment variable to your ~ + toolchain's pnacl-dis location"))) (stream (ext:run-program pnacl-dis (list (namestring (translate-logical-pathname file))) - :wait nil :input NIL :output :STREAM :error :OUTPUT))) + :wait nil :input nil :output :stream :error :output))) (unless stream (error "Unable to disasemble file ~a" file)) (when (search-tag stream tag)