Anfänger bei Common Lisp: Makro-Frage zum Definieren von Paketen im Flug

Question

Immer noch zu kämpfen, um zu verstehen, welche Best Practices in Bezug auf Makros sind. Ich versuche, ein Makro zu schreiben, das Pakete on-the-fly definiert.

(defmacro def-dynamic-package (name) 
    `(defpackage ,(intern (string-upcase name) "KEYWORD") 
    (:use :common-lisp))) 

Dies funktioniert für Ausdrücke nur fein wie:

(def-dynamic-package "helloworld") 

aber scheitert kläglich dies so etwas wie:

(defun make-package-from-path (path) 
    (def-dynamic-package (pathname-name path))) 

oder

(defun make-package-from-path (path) 
    (let ((filename (pathname-path))) 
    (def-dynamic-package filename))) 

Ich verstehe, wie die meisten grundlegende Makros funktionieren aber wie um dies zu implementieren, entkommt mir.

Answer 1

defpackage ist ein Makro. Daher wird es zur Kompilierungszeit und nicht zur Laufzeit erweitert. Was Sie wollen, ist etwas, das zur Laufzeit aufgerufen wird, um ein neues Paket zu erstellen. Daher kann defpackage nichts für Sie tun.

Glücklicherweise gibt es auch make-package, die defpackage ‚s Eigenschaften als Funktion zur Verfügung stellt. Verwenden Sie es anstelle von defpackage.

Answer 2

Hier ist ein Fehler zu erwarten, da ein Makro verwendet wird, wenn sein Argument nicht ausgewertet werden soll.

In Ihrem ersten Make-Paket-von-Weg, der def-Dynamic-Paket wird eine Liste als Argument erhalten, der dem Wert des folgenden Ausdrucks EQUAL ist:

(list 'pathname-name 'path) 

In Ihrem Fall, Sie nur wollen eine Funktion:

(defun def-dynamic-package (name) 
    (defpackage (string-upcase name) 
    (:use :common-lisp))) 

BTW, wenn Sie die CLHS überprüfen, sehen Sie, dass das erste Argument von defpackage kein Symbol zu sein braucht, aber jeder string designator.