From: Daniel Kochmański <daniel@turtleware.eu>
Date: Tue, 18 Aug 2015 11:44:32 +0000 (+0200)
Subject: deftype: update docstring
X-Git-Tag: ECL-16.0.0~1^2~28
X-Git-Url: http://git.pulsar-zone.net/?a=commitdiff_plain;h=5b8d9de70d52987c7038a90f59a0c15035a7c9ba;p=ecl.git

deftype: update docstring

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
---

diff --git a/src/lsp/predlib.lsp b/src/lsp/predlib.lsp
index c08fe0d..719bca1 100644
--- a/src/lsp/predlib.lsp
+++ b/src/lsp/predlib.lsp
@@ -55,18 +55,21 @@ Builds a new function which accepts any number of arguments but always outputs N
 
 ;;; DEFTYPE macro.
 (defmacro deftype (name lambda-list &rest body &environment env)
-  "Syntax: (deftype name lambda-list {decl | doc}* {form}*)
-Defines a new type-specifier abbreviation in terms of an 'expansion' function
-        (lambda lambda-list1 {DECL}* {FORM}*)
-where LAMBDA-LIST1 is identical to LAMBDA-LIST except that all optional
-parameters with no default value specified in LAMBDA-LIST defaults to the
-symbol '*', but not to NIL.  When the type system of ECL encounters a type
-specifier (NAME arg1 ... argn), it calls the expansion function with the
-arguments ARG1 ... ARGn, and uses the returned value instead of the original
-type specifier.  When the symbol NAME is used as a type specifier, the
-expansion function is called with no argument.
-The doc-string DOC, if supplied, is saved as a TYPE doc and can be retrieved
-by (documentation 'NAME 'type)."
+  "Syntax: (deftype name macro-lambda-list {decl | doc}* {form}*)
+Defines a new type-specifier abbreviation in terms of an 'expansion'
+function
+
+        (lambda (whole env) {DECL}* {FORM}*)
+
+where WHOLE is identical to MACRO-LAMBDA-LIST except that all optional
+parameters with no default value specified in LAMBDA-LIST defaults to
+the symbol '*', but not to NIL. ENV is ignored. When the type system
+of ECL encounters a type specifier (NAME arg1 ... argn), it calls the
+expansion function with the arguments `(ARG1 ... ARGn) NIL', and uses
+the returned value instead of the original type specifier.  When the
+symbol NAME is used as a type specifier, the expansion function is
+called with no argument.  The doc-string DOC, if supplied, is saved as
+a TYPE doc and can be retrieved by (documentation 'NAME 'type)."
   (setf lambda-list (copy-tree lambda-list))
   (labels                             ; add '* as default values
       ((set-default (list*)