Dammit, forgot to save this file

diff --git a/model-classes.lisp b/model-classes.lisp
index f41ca7aa995cf0c93389472519a6471debbb753c..03c5c7aaae52e5859449a26e870590de0038d2c3 100644 (file)
--- a/model-classes.lisp
+++ b/model-classes.lisp
@@ -309,7 +309,7 @@
 (defun make-option (name value &optional (type 'string))
   (check-type name string)
   (make-instance 'protobuf-option
-    :name key :value val :type type))
+    :name name :value value :type type))
 
 (defgeneric find-option (protobuf name)
   (:documentation
@@ -344,12 +344,12 @@
       ;; This side-effects 'proto-options'
       (setf (proto-options protobuf) 
             (append (proto-options protobuf)
-                    (list (make-option key val type)))))))
+                    (list (make-option name value type)))))))
 
 (defmethod add-option ((options list) (name string) value &optional (type 'string))
   (let ((option (find name options :key #'proto-name :test #'option-name=)))
     (setq options (append (remove option options)
-                          (list (make-option key val type))))))
+                          (list (make-option name value type))))))
 
 (defgeneric remove-options (protobuf &rest names)
   (:documentation