From cd086fd21450ef4dd9715143d9ec90c55f09b2f9 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 23 Oct 1991 16:53:45 +0000
Subject: [PATCH] Un-commented-out an unused function, to be like the
 distribution.

---
 pcl/defs.lisp | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/pcl/defs.lisp b/pcl/defs.lisp
index fa74bdb13..2914fc0a3 100644
--- a/pcl/defs.lisp
+++ b/pcl/defs.lisp
@@ -390,7 +390,6 @@
 	   (subtypep type1 (if c2 (class-name c2) type2))))))
 
 (defun do-satisfies-deftype (name predicate)
-#|
   (let* ((specifier `(satisfies ,predicate))
 	 (expand-fn #'(lambda (&rest ignore)
 			(declare (ignore ignore))
@@ -406,12 +405,11 @@
 	(setf (get name 'excl::deftype-expander) expand-fn)
 	#+:coral
 	(setf (get name 'ccl::deftype-expander) expand-fn)
-|#
 	;; This is the default for ports for which we don't know any
 	;; better.  Note that for most ports, providing this definition
 	;; should just speed up class definition.  It shouldn't have an
 	;; effect on performance of most user code.
-	(eval `(deftype ,name () '(satisfies ,predicate))))
+	(eval `(deftype ,name () '(satisfies ,predicate))))))
 
 
 (defun make-type-predicate-name (name)
-- 
GitLab