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