Allerdings kann ich so keine Variablenbezeichnung erzeugen. Der Code liefert mir einen Fehler, dass das "(sd-read-from-string (format NIL "ergebnis~A" zaehler))" nicht erlaubt ist.
Kann mir jemand weiterhelfen, ob und wie ich eine solche fortlaufende Variable realisieren könnte?

schönen Abend
Uli

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

Soweit, so gut, jetzt habe ich mal mein Startarray bei der Initialisierung meines Dialogs erzeugt.
Das möchte ich nun gerne erweitern und mit Werten füllen (deshalb um eine Zeile erweitern):

Code:

---

(setf ergebnis_array
  (adjust-array ergebnis_array '((+ 1 (array-rank ergebnis_array)) 13)))

---

Allerdings solltest Du zunaechst ueberlegen, ob Du wirklich ein Array brauchst. Wie Du gesehen hast, sind dynamische Lisp-Arrays unter Umstaenden etwas wortreich in der Programmierung. Viel einfacher geht das mit Listen.

Welche Datenstruktur in Deinem Fall am besten ist, musst Du aufgrund Deiner Anforderungen entscheiden. Arrays bieten sich von der Geschwindigkeit her an, wenn man oft wahlfrei auf Elemente im Array zugreifen muss. Listen sind optimal, wenn man sie im Code ohnehin immer komplett von vorne bis hinten abarbeitet, oder wenn man sie an Code weitergeben muss, der Listen erwartet. Listen sind auch bei wahlfreiem Zugriff akzeptabel, solange sie nicht zu gross werden.

Zitat:

---

Hintergrund ist der, dass ich mir ein einfaches Biegeberechnungsprogramm geschrieben habe, bei dem ich einen Punkt auf einer Arbeitsebene anklicken kann, und mir dann sigma und tau an dieser Stelle ausgegeben werden. Diese ausgegebenen Werte würde ich gerne für jeden Klick speichern.

---

Diese Beschreibung klingt zunaechst mal so, als ob eine einfache Liste hier ausreicht. Damit wuerde Dein Code vermutlich trivial. Ob Du in Deiner Liste mit defstruct definierte Strukturen speicherst oder aber einfach wiederum drei(?)elementige Listen, ist eine andere und eher nebensaechliche Frage.

Code-Anregungen, voellig ungetestet:

Code:

---

(in-package :biegeberechnung)
(use-package :Oli)

(defstruct point sigma tau sigmav)

(defparameter *pointlist* nil)

(defun add-point(sigma tau sigmav)
(push (make-point :sigma sigma :tau tau :sigmav sigmav) pointlist))

---