r11233: convert from sb-executable to save-lisp-and-die

[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)
-      (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)))
@@ -80,7 +80,7 @@
                              new-dir)
                    :name nil :type nil :version nil :defaults path)
          path))))
-  
+
 
 (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
-  (let* ((out (make-array '(0) :element-type 'base-char :fill-pointer 0
+  (let* ((out (make-array '(0) :element-type 'character :fill-pointer 0
                          :adjustable t))
-        (err (make-array '(0) :element-type 'base-char :fill-pointer 0
+        (err (make-array '(0) :element-type 'character :fill-pointer 0
                          :adjustable t))
-       (status 
+       (status
         (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))))))