src/: Error message cleanup.

[sod] / src / module-parse.lisp

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index da1c47f15773c42a9e9e836cf7b8e891046feb6f..d64e22e153db4d89ccfeef4d9331abf302bf0838 100644 (file)
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -349,7 +349,7 @@ (defun parse-class-body (scanner pset name supers)
                        (when (consp name)
                          (cerror*-with-location
                           scanner
-                          "Method declarations must have function type.")
+                          "Method declarations must have function type")
                          (setf name (cdr name)))
                        (parse-slot-item sub-pset base-type type name))
                       ((consp name)