;; это заготовка для основного макроса
(defmacro defclass-plus (name slots &key parent add-constructor add-predicate) ;;; + прочие add-...
  `(defclass ,name ( ,parent ) ,slots)
  (if (add-constructor)
    (defclass-plus-constructor name)))

(defmacro defclass-plus-constructor (name) 
  "internal macro for class constructor"
  (with-gensyms (constructor-name)
	(let ((constructor-name (format nil "make-instance-~d" name)))
      `(defun ,constructor-name ( ) 
         (make-instance ,name)))))

;; ради проверки запускаем 
(macroexpand-1 '(defclass-plus-constructor kissa))

;; на что получаем ужасное
> (DEFUN "make-instance-KISSA" NIL (MAKE-INSTANCE KISSA))