From 403fffd9dc24626fa1d6d7888171e12091d0e844 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 8 Feb 1993 22:24:32 +0000 Subject: [PATCH] Recognize T as a named-type in TYPEP.. --- code/pred.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/pred.lisp b/code/pred.lisp index a5008b254..534216c76 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) -- GitLab