[Bug-openmcl] typep returns multiple values

[bryan o'connor]

> ? (typep #(0 0) '(simple-vector 2))
> T
> T

some strategic grep'ing seems to indicate that there are
some situations where callers are aware that there could
be a second value from %%typep, so i took the route of
least harm.

-------------- next part --------------
Index: level-1/sysutils.lisp
===================================================================
RCS file: /usr/local/tmpcvs/ccl-0.14/ccl/level-1/sysutils.lisp,v
retrieving revision 1.3
diff -c -r1.3 sysutils.lisp
*** level-1/sysutils.lisp	20 Dec 2003 08:40:46 -0000	1.3
--- level-1/sysutils.lisp	7 Jan 2004 23:25:58 -0000
***************
*** 283,289 ****
    (let* ((pred (if (symbolp type) (type-predicate type))))
      (if pred
        (funcall pred object)
!       (%typep object type))))
  
  
  
--- 283,289 ----
    (let* ((pred (if (symbolp type) (type-predicate type))))
      (if pred
        (funcall pred object)
!       (values (%typep object type)))))
  
  
  
-------------- next part --------------