From 1344e1f9c923a4d6602d64a33da175f48c7b7b64 Mon Sep 17 00:00:00 2001 Message-Id: <1344e1f9c923a4d6602d64a33da175f48c7b7b64.1718267208.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sun, 30 Aug 2015 10:58:38 +0100 Subject: [PATCH] src/: More missing exports. Organization: Straylight/Edgeware From: Mark Wooding --- src/codegen-proto.lisp | 2 +- src/output-proto.lisp | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/src/codegen-proto.lisp b/src/codegen-proto.lisp index e947a72..571f0b0 100644 --- a/src/codegen-proto.lisp +++ b/src/codegen-proto.lisp @@ -49,7 +49,7 @@ (defgeneric (setf var-in-use-p) (value var) ;; Root class. -(export 'temporary-name) +(export '(temporary-name temp-tag)) (defclass temporary-name () ((tag :initarg :tag :reader temp-tag)) (:documentation diff --git a/src/output-proto.lisp b/src/output-proto.lisp index 3483daa..65068f3 100644 --- a/src/output-proto.lisp +++ b/src/output-proto.lisp @@ -119,6 +119,7 @@ (defgeneric hook-output (object reason sequencer) ;;;-------------------------------------------------------------------------- ;;; Useful syntax. +(export 'sequence-output) (defmacro sequence-output ((streamvar sequencer) &body clauses) "Register output behaviour in a convenient manner. -- [mdw]