From: Bruno H. <br...@cl...> - 2004-04-15 10:41:48
|
Florian Weimer wrote: > Form: (MULTIPLE-VALUE-LIST (SUBTYPEP '(CONS T (CONS T (CONS T (CONS T (CONS T (CONS T NULL)))))) 'FOO72)) > CORRECT: (NIL T) > CLISP : (T T) > > Form: (MULTIPLE-VALUE-LIST (SUBTYPEP '(CONS T (CONS T (CONS T (CONS T (CONS T (CONS (EQL FOO73) NULL)))))) 'FOO74)) > CORRECT: (NIL T) > CLISP : (T T) > > Is this expected? Especially the SUBTYPEP test results are somewhat > disturbing. That's because I added the test before commit the fixed SUBTYPEP. Should be OK now. Bruno |