Email Archive: sbcl-commits (read-only)
|
[Sbcl-commits] CVS: sbcl/src/compiler typetran.lisp,1.44,1.45
From: Brian Mastenbrook <bmastenbrook@us...> - 2005-03-03 00:10
|
Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12482/src/compiler
Modified Files:
typetran.lisp
Log Message:
0.8.20.5: Candidate for minor bug fix of the year:
* (funcall (compile nil '(lambda () (typep t '(member t nil))))) => T, not (T)
Index: typetran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/typetran.lisp,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -d -r1.44 -r1.45
--- typetran.lisp 2 Nov 2004 08:37:52 -0000 1.44
+++ typetran.lisp 3 Mar 2005 00:10:10 -0000 1.45
@@ -496,7 +496,7 @@
(intersection-type
(source-transform-intersection-typep object type))
(member-type
- `(member ,object ',(member-type-members type)))
+ `(if (member ,object ',(member-type-members type)) t))
(args-type
(compiler-warn "illegal type specifier for TYPEP: ~S"
(cadr spec))
|
Thread View
| Thread | Author | Date |
|---|---|---|
| [Sbcl-commits] CVS: sbcl/src/compiler typetran.lisp,1.44,1.45 | Brian Mastenbrook <bmastenbrook@us...> |