From 0bf9663bbe71b9cc99004c83a80c1c96204a2610 Mon Sep 17 00:00:00 2001
From: emarsden <emarsden>
Date: Mon, 17 Feb 2003 13:17:53 +0000
Subject: [PATCH] Enable type checking code in CLX when the clx-debugging
 *feature* is present.

---
 clx/dependent.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/clx/dependent.lisp b/clx/dependent.lisp
index 2fbaa0660..4becb9fe6 100644
--- a/clx/dependent.lisp
+++ b/clx/dependent.lisp
@@ -19,7 +19,7 @@
 ;;;
 #+cmu
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/dependent.lisp,v 1.11 1999/03/16 23:37:39 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/dependent.lisp,v 1.12 2003/02/17 13:17:53 emarsden Exp $")
 
 (in-package :xlib)
 
@@ -954,7 +954,7 @@
 ;;; This controls macro expansion, and isn't changable at run-time You will
 ;;; probably want to set this to nil if you want good performance at
 ;;; production time.
-(defconstant *type-check?* #+(or CMU) nil #-(or CMU) t)
+(defconstant *type-check?* #+clx-debugging t #-clx-debugging nil)
 
 ;; TYPE? is used to allow the code to do error checking at a different level from
 ;; the declarations.  It also does some optimizations for systems that don't have
-- 
GitLab