diff --git a/motif/lisp/prototypes.lisp b/motif/lisp/prototypes.lisp index d90e5342a47d9e9dd97aed9702b47551ddafdb30..d5d26d5cd89d7db279abe62f987116f99770893d 100644 --- a/motif/lisp/prototypes.lisp +++ b/motif/lisp/prototypes.lisp @@ -93,7 +93,7 @@ (code (fill-pointer *request-table*))) `(progn (eval-when (compile load eval) - (vector-push-extend string-name *request-table*) + (vector-push-extend ,string-name *request-table*) (defun ,symbol-name () (let* ((message (prepare-request ,code ,options 0)) (reply (send-request-to-server message ,options)))