src/optparse.lisp, src/classes.lisp: Don't leak slot names.

[sod] / src / classes.lisp

diff --git a/src/classes.lisp b/src/classes.lisp
index 3ed103a..9484141 100644 (file)
--- a/src/classes.lisp
+++ b/src/classes.lisp
@@ -331,7 +331,7 @@
    (location :initarg :location :initform (file-location nil)
             :type file-location :reader file-location)
    (name :initarg :name :type string :reader sod-initarg-name)
-   (type :initarg :type :type c-type :reader sod-initarg-type))
+   (%type :initarg :type :type c-type :reader sod-initarg-type))
   (:documentation
    "Describes a keyword argument accepted by the initialization function."))