4-6 LISP, das V1.0 Mai 2000 Abbildet 4 Modulexample{ Schnittstellennamed_grid{ schreibgeschützter Attributzeichenkettename; Zeichenketteget_value (in nicht unterzeichneter kurzer Reihe, in nicht unterzeichneter kurzer Spalte); leeres set_value (in nicht unterzeichneter kurzer Reihe, in nicht unterzeichneter kurzer Spalte im Zeichenkettewert); } 4,7,1,2 Erzeugter LISP-Code Der IDL-Compiler konnte eine Kategorie erzeugen, die dem example::named_grid entspricht die Schnittstelle, die Code etwas verwendet, mögen dieses: (defpackage:example) (defclass example:named_grid(corba:object)()) 4,7,1,3 Bedienstetkategorie , um die IDL-Schnittstelle einzuführen, würde der Benutzer die Kategorien- Prüfung verlängern ple:named_grid-servant. ;;Sampleimplementierung von named_grid (defclaßRasterfeld-implementierung (example:named_grid-servant) ( (Rasterfeld:initarg:grid :initform (bilden-kleiden Sie (2 3):initial-element Init))) 4,7,1,4 Implementierung der IDL-Betriebe Das corba:define-method Makro wird verwendet, um die Methoden zu definieren, die jedes von einführen Betriebe definiert in der IDL-Schnittstelle. Merken Sie daß das Lesermethoden- und -initargcorre- spond zum Attribut nennen Sie, das bereits vom Bediensteten definiert wurde. Diese Implementierungen führen kein Argument oder Strecke durch, die überprüfen, die ein produc- tionsystem würde selbstverständlich durchführen. Die Implementierung ist frei, andere Methoden auf der Kategorie, einschließlich des Druckengegenstandes zu definieren Methoden und Helfer Methoden für Initialisierenfall .