src/utilities.lisp (compose): Handle the case of zero arguments.

[sod] / src / module-impl.lisp

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.
 
-(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.