diff options
Diffstat (limited to 'stdlib/type.tl')
| -rw-r--r-- | stdlib/type.tl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/stdlib/type.tl b/stdlib/type.tl index 680a4061..2eb7db3d 100644 --- a/stdlib/type.tl +++ b/stdlib/type.tl @@ -24,6 +24,7 @@ ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ;; POSSIBILITY OF SUCH DAMAGE. + (defun sys:typecase-expander (form obj clauses) (let* ((val (gensym)) (cond-pairs (collect-each ((cl clauses)) |