diff --git a/motif/lisp/prototypes.lisp b/motif/lisp/prototypes.lisp index 3c58cef0c531b1bd10578d05241c05f11fa02ca7..d90e5342a47d9e9dd97aed9702b47551ddafdb30 100644 --- a/motif/lisp/prototypes.lisp +++ b/motif/lisp/prototypes.lisp @@ -40,7 +40,7 @@ (code (fill-pointer *request-table*))) `(progn (eval-when (compile load eval) - (vector-push-extend (format nil "R~a" string-name) *request-table*)) + (vector-push-extend (format nil "R~a" ,string-name) *request-table*)) (defun ,symbol-name ,arg-list ,doc-string ;; *** This generates lots of warnings at the moment