diff --git a/compiler/typetran.lisp b/compiler/typetran.lisp index c7d5d45eea63458a23152ee622b94e729720fc34..0b081e9c65f1aa50c490f99db21be119bda5b0a3 100644 --- a/compiler/typetran.lisp +++ b/compiler/typetran.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/typetran.lisp,v 1.13 1992/03/21 19:41:34 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/typetran.lisp,v 1.14 1992/04/27 19:46:44 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -368,7 +368,8 @@ t ,(if frozen (when included - `(member ,n-name ',included :test #'eq)) + `(if (member ,n-name ',included :test #'eq) + t nil)) `(locally (declare (notinline ,predicate)) (,predicate ,object))))))) `(lisp::structure-typep ,obj ',type)))))))