X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefs.lisp;h=655b3b999b71ef78a4bff297d7691d0322c182cc;hb=959057baab99d4328fc386aee3fcc812f5fcb3ed;hp=7cc68d34be203207444aa84cfcb41ac8b0c1bcaf;hpb=f2aa2d01b8d69f1c7bff18f86279d4f1018fe127;p=sbcl.git

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index 7cc68d3..655b3b9 100644
--- a/src/pcl/defs.lisp
+++ b/src/pcl/defs.lisp
@@ -198,12 +198,18 @@
     #'(lambda (x)
 	(funcall (the function (find-class-cell-predicate cell)) x))))
 
-(defun make-class-eq-predicate (class)
-  (when (symbolp class) (setq class (find-class class)))
-  #'(lambda (object) (eq class (class-of object))))
-
-(defun make-eql-predicate (eql-object)
-  #'(lambda (object) (eql eql-object object)))
+(defun make-type-predicate-name (name &optional kind)
+  (if (symbol-package name)
+      (intern (format nil
+		      "~@[~A ~]TYPE-PREDICATE ~A ~A"
+		      kind
+		      (package-name (symbol-package name))
+		      (symbol-name name))
+	      *pcl-package*)
+      (make-symbol (format nil
+			   "~@[~A ~]TYPE-PREDICATE ~A"
+			   kind
+			   (symbol-name name)))))
 
 ;;; internal to this file..
 ;;;
@@ -271,19 +277,6 @@
 	      (t
 	       (subtypep (convert-to-system-type type1)
 			 (convert-to-system-type type2))))))))
-
-(defun make-type-predicate-name (name &optional kind)
-  (if (symbol-package name)
-      (intern (format nil
-		      "~@[~A ~]TYPE-PREDICATE ~A ~A"
-		      kind
-		      (package-name (symbol-package name))
-		      (symbol-name name))
-	      *pcl-package*)
-      (make-symbol (format nil
-			   "~@[~A ~]TYPE-PREDICATE ~A"
-			   kind
-			   (symbol-name name)))))
 
 (defvar *built-in-class-symbols* ())
 (defvar *built-in-wrapper-symbols* ())