From 0bd6bd6573f8b865fd2d851866173ef568c2ebe3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Mon, 4 May 2020 19:35:38 +0200 Subject: [PATCH] cosmetic: cmp: proclamations: add missing periods --- src/cmp/proclamations.lsp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/cmp/proclamations.lsp b/src/cmp/proclamations.lsp index 54839d2ad..51b99305a 100644 --- a/src/cmp/proclamations.lsp +++ b/src/cmp/proclamations.lsp @@ -85,15 +85,15 @@ (deftype external-file-format () '(or symbol list)) (deftype declaration-specifier () - "Element that can appear in a DECLARE form" + "Element that can appear in a DECLARE form." 'list) (deftype digit-weight () '(integer 0 35)) (deftype environment () - "Environment used by compiler and interpreter" + "Environment used by compiler and interpreter." 'list) (deftype form () - "Valid lisp form" + "Valid lisp form." t) (deftype format-control () "Format control for FORMAT. It can be a string or a function returned by FORMATTER." @@ -102,16 +102,16 @@ "An object that denotes a function and which can be a symbol or a function." '(or symbol function)) (deftype function-name () - "Valid name of a function, typically a symbol or (SETF symbol)" + "Valid name of a function, typically a symbol or (SETF symbol)." '(or list symbol)) (deftype gen-bool () - "Generalized boolean type" + "Generalized boolean type." 't) (deftype integer-length () - "A type that fits maximum number of bits that an integer may have in this system" + "A type that fits maximum number of bits that an integer may have in this system." 'ext:array-index) (deftype natural () - "Non-negative number" + "Non-negative integer." '(integer 0 *)) (deftype package-designator () '(or string-designator package))