Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 6801d9d)
Fixed typo in the implementation of THE.
authorJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Sun, 7 Feb 2010 10:13:37 +0000 (11:13 +0100)
committerJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Sun, 7 Feb 2010 10:13:37 +0000 (11:13 +0100)
src/cmp/cmpspecial.lsp patch | blob | blame | history

diff --git a/src/cmp/cmpspecial.lsp b/src/cmp/cmpspecial.lsp
index 4d4fa9c..874b0dc 100644 (file)
--- 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))
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)