---

hi !

ich muss mich outen - nach den vielen jahren mit lisp habe ich mir erstmal READ näher angesehen. durch das buch von AXEL.

nun wollte ich eine liste mit daten auslesen und aufspalten. hierzu habe ich folgenden code zusammengesetzt.

Code:

---

(foreach tmp-value-name value-list
    (if
    (setq tmp-value  (assoc tmp-value-name tmp-data))
      (progn
        (setq (read (strcat "max_data_list#" tmp-value-name)) (append (read (strcat "max_data_list#" tmp-value-name)) (list tmp-value)))
    );end-progn
    );end-if
);end-foreach

---

wenn ich es richtig verstanden habe, dann kann ich mir READ dynamisch variablen erzeugen und das wollte ich nutzen um den code zu vereinfachen und fehler zu minimieren.

nur bekomme ich nun folgende fehlermeldung:

Zitat:

---

Fehlerhafter Variablenname in SETQ: (READ (STRCAT "max_data_list#" TMP-VALUE-NAME))

---

habe ich etwas falsch gemacht oder geht das gar nicht was ich vor habe ???

gruß Jan :-)

------------------
jan :-)

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

---

nicht setq sondern set !!! ...setq QUOTET  das erste Argument!! da kommt kein Code zur Ausführung!
Also :
(set (read(strcat "BLABLA"(itoa 1))) (list "A" "B"))

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

---

hallo thomas,

vielen dank für deine schnelle hilfe - werde ich gleich morgenfrüh einmal ausprobiern !

gruß Jan :-)

------------------
jan :-)

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

---

Hallo Thomas,

wie angekündigt habe ich Deine Anmerkungen heute morgen umgesetzt.

Es gibt jetzt für die set(q)-Zuweisung zwar keinen Fehler mehr - dafür ist vermutlich im "hinteren" Abschnitt noch etwa "faul".

Meine Untersuchung hat ergeben, dass bei

Code:

---

(append (read (strcat "max_data_list#" tmp-value-name)) (list tmp-value))

---

noch etwas anders sein muss.

Kannst Du mir hier nochmal weiterhelfen ?

Gruß Jan :-)

------------------
jan :-)

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

---

Jan, nur Code irgendwie zusammenkopieren ist keine Programmierung!
append verlangt Listen als Argumente, du über gibst als erstes ein Symbol! Um an die an das Symbol gebundene Liste zu kommen mußt du dieses evaluieren. Dafür gibt's die Funktion EVAL:

(set (read(strcat "BLABLA"(itoa 1))) (list "A" "B"))

(append (eval (read(strcat "BLABLA"(itoa 1)))) '("C" "D"))

Axel Buch ist super, aber les es bitte auch von Anfang an.

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

---

Hallo Thomas,

Zitat:

---

les es bitte auch von Anfang an

---

damit hast Du recht - aber Du hast Doch sichelich neue Bücher auch schon einmal quergeblättert - aus Neugier. Da habe ich das gefunden. Das dazu.

Ich war vielleicht etwas faul - aber ich habe vorab die Variablen

max_data_list#wmin
max_data_list#wmax
....

so heißen die variablen nämlich - vorab schon als Listen definiert und deshalb dachte ich, dass diese mit dem aufrufen in der append-Funktion auch als Liste Anwendung finden würden.

Gruß Jan :-)

------------------
jan :-)

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