From a1adf61dc688b11aa36332f4475d7930eb2ccd5f Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 27 Apr 1992 19:46:44 +0000 Subject: [PATCH] Fixed SOURCE-TRANSFORM-STRUCTURE-TYPEP to return T-or-NIL in the frozen included case, and not some random non-null lists. --- compiler/typetran.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/typetran.lisp b/compiler/typetran.lisp index c7d5d45ee..0b081e9c6 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))))))) -- GitLab