mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 13:01:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

cosmetic (line wrap, upcase convention)

Browse source
This commit is contained in:
Daniel Kochmański 2016-12-05 14:05:53 +01:00
parent 55685bc3b1
commit aad95e1ea2
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/cmp/cmpname.lsp
View file

@ -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)