X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/287e744e9aa96b8eebeb530b68e2854e8ffe5580..b0d4e74fa7804b812ffb7cb68b0ef6ec4ce9edaf:/src/module-impl.lisp 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.