projects
/
vcs-tree.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11330: vcs-tree (0.3.1-1) unstable; urgency=low
[vcs-tree.git]
/
kmrcl-excerpt.lisp
diff --git
a/kmrcl-excerpt.lisp
b/kmrcl-excerpt.lisp
index b3a225a3f3330223571940d867f3addcf9717be1..9a74e8cda31f8417a67cd539a01eff4c28c4622c 100644
(file)
--- a/
kmrcl-excerpt.lisp
+++ b/
kmrcl-excerpt.lisp
@@
-16,8
+16,8
@@
"Opens a reads a file. Returns the contents as a list of strings"
(let ((lines '()))
(with-open-file (in file :direction :input)
"Opens a reads a file. Returns the contents as a list of strings"
(let ((lines '()))
(with-open-file (in file :direction :input)
- (let ((eof (gensym)))
- (do ((line (read-line in nil eof)
+ (let ((eof (gensym)))
+ (do ((line (read-line in nil eof)
(read-line in nil eof)))
((eq line eof))
(push line lines)))
(read-line in nil eof)))
((eq line eof))
(push line lines)))
@@
-80,7
+80,7
@@
new-dir)
:name nil :type nil :version nil :defaults path)
path))))
new-dir)
:name nil :type nil :version nil :defaults path)
path))))
-
+
(defun probe-directory (filename)
(let ((path (canonicalize-directory-name filename)))
(defun probe-directory (filename)
(let ((path (canonicalize-directory-name filename)))
@@
-153,15
+153,15
@@
(defun shell-command-output (cmd &key directory whole)
#+allegro (excl.osi:command-output cmd :directory directory :whole whole)
#+sbcl
(defun shell-command-output (cmd &key directory whole)
#+allegro (excl.osi:command-output cmd :directory directory :whole whole)
#+sbcl
- (let* ((out (make-array '(0) :element-type '
base-cha
r :fill-pointer 0
+ (let* ((out (make-array '(0) :element-type '
characte
r :fill-pointer 0
:adjustable t))
:adjustable t))
- (err (make-array '(0) :element-type '
base-cha
r :fill-pointer 0
+ (err (make-array '(0) :element-type '
characte
r :fill-pointer 0
:adjustable t))
:adjustable t))
- (status
+ (status
(sb-impl::process-exit-code
(with-output-to-string (out-stream out)
(with-output-to-string (err-stream err)
(sb-impl::process-exit-code
(with-output-to-string (out-stream out)
(with-output-to-string (err-stream err)
- (sb-ext:run-program
+ (sb-ext:run-program
"/bin/sh"
(list "-c" cmd)
:input nil :output out-stream :error err-stream))))))
"/bin/sh"
(list "-c" cmd)
:input nil :output out-stream :error err-stream))))))