X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/287e744e9aa96b8eebeb530b68e2854e8ffe5580..57b365324f35a6237602ab840c23f4f06c8c317c:/src/module-impl.lisp?ds=inline diff --git a/src/module-impl.lisp b/src/module-impl.lisp index 4da7804..268f4bc 100644 --- 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.