Added list* pattern.

README.md

@@ -114,7 +114,7 @@ Examples:
 ### Or Pattern
 
 An or pattern matches a value that is matched with one of
-PATTERNs. There is a restriction that every PATTERN of PATTERNs must
+PATTERNs. There is a restriction that every pattern of PATTERNs must
 have same set of variables.
 
 Examples:
@@ -163,10 +163,9 @@ will be translated to
     match-values values-form &body clauses
 
 Matches the multiple values of VALUES-FORM with CLAUSES. Unlike
-MATCH, CLAUSES has to be have the form of (PATTERNS . BODY), where
+MATCH, CLAUSES have to have the form of (PATTERNS . BODY), where
 PATTERNS is a list of patterns. The number of values that will be used
-to match is determined by the maximum arity of PATTERNS among
-CLAUSES.
+to match is determined by the maximum arity of PATTERNS among CLAUSES.
 
 Examples:
 

fivepm.asd

@@ -113,7 +113,7 @@ Examples:
 ### Or Pattern
 
 An or pattern matches a value that is matched with one of
-PATTERNs. There is a restriction that every PATTERN of PATTERNs must
+PATTERNs. There is a restriction that every pattern of PATTERNs must
 have same set of variables.
 
 Examples:

src/match.lisp

@@ -31,10 +31,9 @@ will be translated to
 
 (defmacro match-values (values-form &body clauses)
   "Matches the multiple values of VALUES-FORM with CLAUSES. Unlike
-MATCH, CLAUSES has to be have the form of (PATTERNS . BODY), where
+MATCH, CLAUSES have to have the form of (PATTERNS . BODY), where
 PATTERNS is a list of patterns. The number of values that will be used
-to match is determined by the maximum arity of PATTERNS among
-CLAUSES.
+to match is determined by the maximum arity of PATTERNS among CLAUSES.
 
 Examples:
 

src/pattern.lisp

@@ -106,6 +106,14 @@ Examples:
   (when args
     `(cons ,(car args) (list ,@(cdr args)))))
 
+(defpattern list* (arg &rest args)
+  `(cons ,arg
+         ,(cond ((null args))
+                ((= (length args) 1)
+                 (car args))
+                (t
+                 `(list* ,(car args) ,@(cdr args))))))
+
 ;;;
 ;;; Pattern Specifier Parser
 ;;;