---

Unbenannt.PNG

ich habe ein Problem mit reverse. Ich habe eine Funktion, in der eine Liste erzeugt wird. Laut Überwachung ist die Liste genau wie sie soll, wenn ich sie dann mit reverse zurückgebe, geht etwas schief.

Code:

---

(defun readfile ()
  (defun *error* (msg)
    (print msg)
    (close ofile)
    (setq *error* *olderror*)
    (princ)
  )
  (setq output nil)
  (setq hfile
(getfiled
  "Datei laden"
  ""
  ""
  4
)
  )
  (setq flag 0)
  (setq ofile (open hfile "r"))
  (setq row "bla")
  (setq row2 nil)
  (while (/= row NIL)
    (setq row (read-line ofile))
    (if (/= row nil)
      (progn
(setq output (cons row output))
      )
    )
  )
  (setq *error* *olderror*)
  (reverse output)  ;;;;;  <--- das ist eine Liste
  (princ)
)

(setq var (readfile))  ;;;;;  <--- das ist keine Liste                                                 

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

jo .. (princ)  gibt auch Nil zurück .. also lass es weg

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

(defun READFILE(FILENAME /  FILE ZEILE LISTE)
  (if(and(=(type FILENAME)'STR)
        (setq FILENAME(findfile FILENAME))
        (setq FILE(open FILENAME "r"))
    )
    (progn
      (while (setq ZEILE(read-line FILE))(setq LISTE(cons ZEILE LISTE)))
      (close FILE)
    )
  )
  (reverse LISTE)
)

(if(setq FILENAME(getfiled "Filereader" "" "TXT" 8))
  (READFILE FILENAME)
)

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Da hast du die Situation wohl verkannt, denn (type(reverse output)) liefert dir LIST und das siehst du ja auch,
das Problem ist das du an var die Rückgabe von (readfile) bindest, die letzte Evalution in readfile ist (princ), die Rückgabe von (princ) ist nunmal keine Liste   .

(while (/= row NIL)
entspricht auch
(while row

EDIT: Beim tippen eingeschlafen, an die super Antwortzeiten im Forum muss ich mich wohl erst mal wieder anpassen 

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

das mit dem princ wars. danke 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP