Update automatically managed build utilities.

[sod] / src / module-impl.lisp

diff --git a/src/module-impl.lisp b/src/module-impl.lisp
index fe6b545785778b0a8d26c1e14d1810cb9df75b9a..08679ce9298aa96f4948dc1c0494ec12bf653972 100644 (file)
--- a/src/module-impl.lisp
+++ b/src/module-impl.lisp
@@ -144,11 +144,10 @@ (defmethod module-import ((class sod-class))
 ;;;--------------------------------------------------------------------------
 ;;; Code fragments.
 
 ;;;--------------------------------------------------------------------------
 ;;; Code fragments.
 

-(export 'c-fragment)
+(export '(c-fragment c-fragment-text))

 (defclass c-fragment ()
 (defclass c-fragment ()

-  ((location :initarg :location :type file-location
-            :accessor c-fragment-location)
-   (text :initarg :text :type string :accessor c-fragment-text))
+  ((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.
 
   (:documentation
    "Represents a fragment of C code to be written to an output file.
 


@@ -181,7 +180,7 @@ (defun output-c-excursion (stream location thunk)
 
 (defmethod print-object ((fragment c-fragment) stream)
   (let ((text (c-fragment-text fragment))
 
 (defmethod print-object ((fragment c-fragment) stream)
   (let ((text (c-fragment-text fragment))

-       (location (c-fragment-location fragment)))
+       (location (file-location fragment)))

     (if *print-escape*
        (print-unreadable-object (fragment stream :type t)
          (when location
     (if *print-escape*
        (print-unreadable-object (fragment stream :type t)
          (when location