src/module-{proto,impl}.lisp: Publish fragments properly.

Not sure why this was languishing in `module-impl.lisp'.

diff --git a/doc/SYMBOLS b/doc/SYMBOLS
index 4b3c4909ee242ba1aeb0454e27c6717f68e67630..102b013447375711c9c4df8cd2d6fba74d381cb6 100644 (file)
--- a/doc/SYMBOLS
+++ b/doc/SYMBOLS
@@ -557,8 +557,6 @@ method-proto.lisp
 
 module-impl.lisp
   *module-dirs*                                 variable
 
 module-impl.lisp
   *module-dirs*                                 variable

-  c-fragment                                    class
-  c-fragment-text                               generic

   code-fragment                                 generic
   code-fragment-constraints                     generic
   code-fragment-item                            class
   code-fragment                                 generic
   code-fragment-constraints                     generic
   code-fragment-item                            class


@@ -584,6 +582,8 @@ module-proto.lisp
   add-clear-the-decks-function                  function
   add-module-binding                            function
   add-to-module                                 generic
   add-clear-the-decks-function                  function
   add-module-binding                            function
   add-to-module                                 generic

+  c-fragment                                    class
+  c-fragment-text                               generic

   clear-the-decks                               function
   define-clear-the-decks                        macro
   define-module                                 macro
   clear-the-decks                               function
   define-clear-the-decks                        macro
   define-module                                 macro

diff --git a/src/module-impl.lisp b/src/module-impl.lisp
index 4da7804dac61f6beb97e87b9f76629787c7efa7b..268f4bc31483083475c90dc884697ff9476f9a08 100644 (file)
--- a/src/module-impl.lisp
+++ b/src/module-impl.lisp
@@ -152,16 +152,6 @@ (defmethod module-import ((class sod-class))
 ;;;--------------------------------------------------------------------------
 ;;; Code fragments.
 
 ;;;--------------------------------------------------------------------------
 ;;; Code fragments.
 

-(export '(c-fragment c-fragment-text))
-(defclass c-fragment ()
-  ((location :initarg :location :type file-location :reader file-location)
-   (text :initarg :text :type string :reader c-fragment-text))
-  (:documentation
-   "Represents a fragment of C code to be written to an output file.
-
-   A C fragment is aware of its original location, and will bear proper
-   `#line' markers when written out."))
-

 (defun output-c-excursion (stream location func)
   "Invoke FUNC surrounding it by writing #line markers to STREAM.
 
 (defun output-c-excursion (stream location func)
   "Invoke FUNC surrounding it by writing #line markers to STREAM.
 

diff --git a/src/module-proto.lisp b/src/module-proto.lisp
index 7e42a5b5c1c171528476411209142f503e9b1a89..b0be8ddfb16324f3810d2ce5da03c359f557e492 100644 (file)
--- a/src/module-proto.lisp
+++ b/src/module-proto.lisp
@@ -224,4 +224,17 @@ (defmacro with-temporary-module ((&key) &body body)
   "Evaluate BODY within the context of a temporary module."
   `(call-with-temporary-module (lambda () ,@body)))
 
   "Evaluate BODY within the context of a temporary module."
   `(call-with-temporary-module (lambda () ,@body)))
 

+;;;--------------------------------------------------------------------------
+;;; Code fragments.
+
+(export '(c-fragment c-fragment-text))
+(defclass c-fragment ()
+  ((location :initarg :location :type file-location :reader file-location)
+   (text :initarg :text :type string :reader c-fragment-text))
+  (:documentation
+   "Represents a fragment of C code to be written to an output file.
+
+   A C fragment is aware of its original location, and will bear proper
+   `#line' markers when written out."))
+

 ;;;----- That's all, folks --------------------------------------------------
 ;;;----- That's all, folks --------------------------------------------------