Wie kann ich den Inhalt einer Datei in eine Liste in Lisp?

Ich Lesen möchte in den Inhalt einer Datei in einer Liste. Einige meiner versuche bisher -

(defun get-file (filename)
  (let ((x (open filename)))
    (when x
      (loop for line = (read-line x nil)
     while line do (list line)))
    (close x)))

(defun get-file (filename)
  (let ((x (open filename :if-does-not-exist nil)) (contents (list nil)))
    (when x
      (loop for line = (read-line x nil)
     while line do (cons contents line)))
    (close x) contents))

(defun get-file (filename)
  (let ((x (open filename :if-does-not-exist nil)) (contents nil))
    (when x
      (loop for line = (read-line x nil)
     while line do (append contents line)))
    (close x) contents))

Keines dieser arbeitete. Kann mir jemand sagen, einen Weg? Oder noch besser - wie, um all die Inhalte in ein array?

InformationsquelleAutor Sterling | 2010-09-28
Schreibe einen Kommentar