From d013d603f0c64fd8e0815313d21187f274f43638 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 7 Feb 2010 11:13:37 +0100 Subject: [PATCH] Fixed typo in the implementation of THE. --- src/cmp/cmpspecial.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmpspecial.lsp b/src/cmp/cmpspecial.lsp index 4d4fa9cf2..874b0dc5e 100644 --- a/src/cmp/cmpspecial.lsp +++ b/src/cmp/cmpspecial.lsp @@ -27,7 +27,7 @@ (let* ((form (c1expr (second args))) (the-type (type-filter (first args) t)) type) - (if (setf type (type-and the-type (c1form-primary-type form))) + (if (setf type (values-type-and the-type (c1form-primary-type form))) (setf (c1form-type form) type) (cmpwarn "Type mismatch was found in ~s." (cons 'THE args))) form))