From 929c69adab2054a62348e28978981485081ee246 Mon Sep 17 00:00:00 2001
From: Artyom Bologov <aartaka@protonmail.com>
Date: Wed, 6 Dec 2023 17:42:15 +0400
Subject: [PATCH] defclass-star: Add make as an alias for make-instance*.

---
 source/defclass-star.lisp | 4 +++-
 source/package.lisp       | 3 ++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/source/defclass-star.lisp b/source/defclass-star.lisp
index def560f..93af6ae 100644
--- a/source/defclass-star.lisp
+++ b/source/defclass-star.lisp
@@ -782,4 +782,6 @@ the future." arguments))
           (list last-appendable-form)))))
 
 (setf (macro-function 'make*) (macro-function 'make-instance*)
-      (documentation 'make* 'function) (documentation 'make-instance* 'function))
+      (documentation 'make* 'function) (documentation 'make-instance* 'function)
+      (macro-function 'make) (macro-function 'make-instance*)
+      (documentation 'make 'function) (documentation 'make-instance* 'function))
diff --git a/source/package.lisp b/source/package.lisp
index 6659c68..f578e0b 100644
--- a/source/package.lisp
+++ b/source/package.lisp
@@ -14,6 +14,7 @@
            #:defgeneric* ; alias
            #:make-instance*
            #:make* ; alias
+           #:make ; alias
            ;; transformers
            #:default-accessor-name-transformer
            #:dwim-accessor-name-transformer
@@ -30,7 +31,7 @@
 - `nclasses:define-class' (aliases `nclasses:define-class*' and `nclasses:defclass*')
 - `nclasses:define-condition*' (alias `nclasses:defcondition*').
 - `nclasses:define-generic' (aliases `nclasses:define-generic*' and `nclasses:defgeneric*').
-- `nclasses:make-instance*' (alias `nclasses:make*').
+- `nclasses:make-instance*' (alias `nclasses:make*' and `nclasses:make').
 
 Compared to the standard macros, they accept extra options and slot definition
 is smarter.