From adb519d6f09f51bca73d6aff9d711601a3db3b32 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Thu, 25 Aug 2011 22:40:16 +0200
Subject: [PATCH] Silence some more forms that cannot be type propagated.

---
 src/cmp/cmptables.lsp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/cmp/cmptables.lsp b/src/cmp/cmptables.lsp
index eb6642ee1..cf5e67f65 100644
--- a/src/cmp/cmptables.lsp
+++ b/src/cmp/cmptables.lsp
@@ -228,6 +228,8 @@
     (function . p1trivial)
     (funcall . p1trivial)
     (load-time-value . p1trivial)
+    (make-form . p1trivial)
+    (init-form . p1trivial)
     (c::with-stack . p1with-stack)
     (c::stack-push-values . p1stack-push-values)
     (sys::structure-set . p1structure-set)