diff options
Diffstat (limited to 'stdlib/each-prod.tl')
| -rw-r--r-- | stdlib/each-prod.tl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/stdlib/each-prod.tl b/stdlib/each-prod.tl index 854847c0..4ed8e0dd 100644 --- a/stdlib/each-prod.tl +++ b/stdlib/each-prod.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:vars-check (form vars) (unless (listp vars) (compile-error form "~s is expected to be variable binding syntax" vars)) |