src/module-parse.lisp: Improve error recovery for core class items.

[sod] / src / classes.lisp

diff --git a/src/classes.lisp b/src/classes.lisp
index 3ed103a752c0ecf9c8510743721c0ac0e52fb03a..9484141060402e97cee2514b46e51058bf3c3706 100644 (file)
--- a/src/classes.lisp
+++ b/src/classes.lisp
@@ -331,7 +331,7 @@ (defclass sod-initarg ()
    (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."))