From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 5 Jan 2016 18:42:53 +0000 (+0000)
Subject: src/class-make-proto.lisp: Remove `define-sod-class'.
X-Git-Url: https://git.distorted.org.uk/~mdw/sod/commitdiff_plain/a7c3f7ae7e2453301bcfbdc7a0c5dca71b54622a

src/class-make-proto.lisp: Remove `define-sod-class'.

Nobody's using it, and it's out of date.
---

diff --git a/doc/SYMBOLS b/doc/SYMBOLS
index 8ae77fe..d9587ee 100644
--- a/doc/SYMBOLS
+++ b/doc/SYMBOLS
@@ -244,7 +244,6 @@ class-layout-proto.lisp
 class-make-proto.lisp
   check-message-type                            generic
   check-method-type                             generic
-  define-sod-class                              macro
   guess-metaclass                               generic
   make-sod-class                                function
   make-sod-class-initializer                    generic
diff --git a/doc/meta.tex b/doc/meta.tex
index 52a89cf..6ed1d6a 100644
--- a/doc/meta.tex
+++ b/doc/meta.tex
@@ -69,13 +69,6 @@
       @> @<class>}
 \end{describe}
 
-\begin{describe}{mac}
-    {define-sod-class @<name> (@<superclass>^*) \\ \ind
-      @{ @<keyword> @<value> @}^* \\
-      @<declaration>^* \\
-      @<form>^*}
-\end{describe}
-
 \begin{describe*}
     {\dhead{lmac}{slot @<name> @<type> @{ @<keyword> @<value> @}^*}
      \dhead{lmac}{instance-initializer @<nick> @<name>
diff --git a/src/class-make-proto.lisp b/src/class-make-proto.lisp
index df4b4f0..7305807 100644
--- a/src/class-make-proto.lisp
+++ b/src/class-make-proto.lisp
@@ -214,74 +214,4 @@
    This is separated out of `shared-initialize', where it's called, so that
    it can be overridden conveniently by subclasses."))
 
-;;;--------------------------------------------------------------------------
-;;; Builder macros.
-
-(export 'define-sod-class)
-(defmacro define-sod-class (name (&rest superclasses) &body body)
-  "Construct a new SOD class called NAME in the current module.
-
-   The new class has the named direct SUPERCLASSES, which should be a list of
-   strings.
-
-   The BODY begins with a sequence of alternating keyword/value pairs
-   defining properties for the new class.  The keywords are (obviously) not
-   evaluated, but the value forms are.
-
-   The remainder of the BODY are a sequence of forms to be evaluated as an
-   implicit `progn'.  Additional macros are available to the BODY, to make
-   defining the class easier.
-
-   In the following, NAME is a string giving a C identifier; NICK is a string
-   giving the nickname of a superclass; TYPE is a C type using S-expression
-   notation.
-
-     * message NAME TYPE &rest PLIST
-
-     * method NICK NAME TYPE BODY &rest PLIST
-
-     * slot NAME TYPE &rest PLIST
-
-     * instance-initializer NICK NAME VALUE-KIND VALUE-FORM &rest PLIST
-
-     * class-initializer NICK NAME VALUE-KIND VALUE-FORM &rest PLIST"
-
-  (let ((plist nil)
-	(classvar (gensym "CLASS-")))
-    (loop
-      (when (or (null body)
-		(not (keywordp (car body))))
-	(return))
-      (push (pop body) plist)
-      (push (pop body) plist))
-    `(let ((,classvar (make-sod-class ,name
-				      (mapcar #'find-sod-class
-					      (list ,@superclasses))
-				      (make-property-set
-				       ,@(nreverse plist)))))
-       (macrolet ((message (name type &rest plist)
-		    `(make-sod-message ,',classvar ,name (c-type ,type)
-				       (make-property-set ,@plist)))
-		  (method (nick name type body &rest plist)
-		    `(make-sod-method ,',classvar ,nick ,name (c-type ,type)
-				      ,body (make-property-set ,@plist)))
-		  (slot (name type &rest plist)
-		    `(make-sod-slot ,',classvar ,name (c-type ,type)
-				    (make-property-set ,@plist)))
-		  (instance-initializer
-		      (nick name value-kind value-form &rest plist)
-		    `(make-sod-instance-initializer ,',classvar ,nick ,name
-						    ,value-kind ,value-form
-						    (make-property-set
-						     ,@plist)))
-		  (class-initializer
-		      (nick name value-kind value-form &rest plist)
-		    `(make-sod-class-initializer ,',classvar ,nick ,name
-						 ,value-kind ,value-form
-						 (make-property-set
-						  ,@plist))))
-	 ,@body
-	 (finalize-sod-class ,classvar)
-	 (add-to-module *module* ,classvar)))))
-
 ;;;----- That's all, folks --------------------------------------------------