Punktnotation verwenden CLOS Slots für den Zugriff auf

Question

Wenn Slots Klasse Zugriff statt

(defmethod get-name ((somebody person) (slot-value somebody 'name)) 

Schreiben

ist es möglich, die Punktnotation aka C++, sonst

(defmethod get-name ((somebody person) somebody.name) ? 

nämlich zu verwenden, wenn es viele sind Slot-Operationen in einer Methode, (slot-value... erzeugt eine Menge Boilerplate-Code.

Ich habe die Antwort heute herausgefunden, und ich schreibe es gerade als Q & A, aber wenn es bessere Lösungen gibt oder es Probleme gibt, die ich mit meiner Lösung erwarten sollte, zögern Sie nicht, neue Antworten oder Kommentare hinzuzufügen.

Answer 1

Sie sollten nicht Accessoren von Hand schreiben, noch slot-value verwenden (außerhalb von Objektlebenszyklus-Funktionen, wo Die Accessoren wurden möglicherweise noch nicht erstellt).Verwenden Sie die Klasse Schlitzoptionen statt:

(defclass foo() 
    ((name :reader foo-name 
     :initarg :name) 
    (bar :accessor foo-bar 
     :initarg :bar))) 

Jetzt können Sie die Namen Accessoren verwenden:

(defun example (some-foo new-bar) 
    (let ((n (foo-name some-foo)) 
     (old-bar (foo-bar some-foo))) 
    (setf (foo-bar some-foo) new-bar) 
    (values n old-bar))) 

Oft Sie Ihre Klassen „unveränderlich“ zu sein, würden Sie :reader statt :accessor verwenden dann , die nur den Leser erzeugt, nicht die setf-Erweiterung.

Answer 2

Die einfachste Lösung scheint ein Leser Makro zu sein, die . so überlastet, dass (slot-value somebody 'name) Meine Strategie ist somebody.name als String lesen (wir einen nicht abbreche Makro Zeichen definieren müssen, damit der Leser tut geschrieben werden kann als .somebody.name nicht stoppen Mitte string), und dann verarbeiten die Zeichenfolge die entsprechende (slot-value...

ich zwei Hilfsfunktionen müssen konstruieren:

(defun get-symbol (str) 
    "Make an uppercase symbol" 
    (intern (string-upcase str))) 

(defun split-string (str sep &optional (start 0)) 
    "Split a string into lists given a character separator" 
    (let ((end (position sep str :start start))) 
    (cons (subseq str start end) (if end (split-string str sep (1+ end)))))) 

und dann kann ich meine Leser Makro definieren:

(defun dot-reader (stream char) 
    (declare (ignore char)) 
    (labels ((make-query (list) 
      (let ((car (car list)) 
        (cdr (cdr list))) 
       (if cdr `(slot-value ,(make-query cdr) (quote ,(get-symbol car))) 
        (get-symbol car))))) 
    (make-query (nreverse (split-string (symbol-name (read stream)) #\.))))) 

Schließlich muss ich diese Leser Makro registrieren:

(set-macro-character #\. #'dot-reader t) 

Jetzt ist es möglich, zu schreiben:

(defmethod get-name ((somebody person) .somebody.name) 

oder, wenn name selbst eine Klasse,

(defmethod get-name ((somebody person) .somebody.name.first-name) 

Eine Einschränkung ist, dass s-Ausdrücke zwischen t nicht funktioniert er Punkte, sagen

.(get-my-class).name 

wird nicht funktionieren.

Answer 3

Die Bibliothek access bietet ein Punktnotationsleser-Makro für den Zugriff auf Steckplätze (und Hash-Tabellen und andere Dinge). Nach dem Aktivieren des Reader-Makros durch Aufruf (Zugriff: Enable-Dot-Syntax) können Sie #D verwenden. um auf einen Steckplatznamen mit der in anderen Sprachen beliebten Punktsyntax zuzugreifen.

(defclass person() 
    ((name :initarg :name :reader name))) 

CL-USER> (access:enable-dot-syntax) 
; No values 
CL-USER> (defvar *foo* (make-instance 'person :name "John Smith")) 
*FOO* 
CL-USER> #D*foo* 
#<PERSON #x302001F1E5CD> 
CL-USER> #D*foo*.name 
"John Smith" 

Es gibt auch ein with-dot Makro, wenn Sie nicht wollen, einen Leser Makro verwenden

CL-USER> (access:with-dot() *foo*.name) 
"John Smith"