133 |
;;; file defclass.lisp |
;;; file defclass.lisp |
134 |
;;; |
;;; |
135 |
(defmacro DEFCLASS (name direct-superclasses direct-slots &rest options) |
(defmacro DEFCLASS (name direct-superclasses direct-slots &rest options) |
136 |
(declare (indentation 2 4 3 1)) |
; (declare (indentation 2 4 3 1)) |
137 |
(expand-defclass name direct-superclasses direct-slots options)) |
(expand-defclass name direct-superclasses direct-slots options)) |
138 |
|
|
139 |
(defun expand-defclass (name supers slots options) |
(defun expand-defclass (name supers slots options) |