diff --git a/code/pred.lisp b/code/pred.lisp index a5008b254f445f2c0f3b121bb0c1c5f716282489..534216c76ff8837bfa3b3e014ad6a062312a95b3 100644 --- a/code/pred.lisp +++ b/code/pred.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.28.1.3 1993/02/04 22:36:28 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.28.1.4 1993/02/08 22:24:32 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -190,7 +190,7 @@ (etypecase type (named-type (ecase (named-type-name type) - (* t) + ((* t) t) ((nil) nil))) (numeric-type (and (numberp object)