From ec401a32c7dbda6fe9fbce1fc12e8134d3da669f Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 8 Dec 2003 09:38:06 +0000
Subject: [PATCH] SLOT-EXISTS-P now works with all types of objects.

---
 src/clos/boot.lsp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/clos/boot.lsp b/src/clos/boot.lsp
index 1e1fb6a4d..5077c3773 100644
--- a/src/clos/boot.lsp
+++ b/src/clos/boot.lsp
@@ -131,4 +131,7 @@
     (defmethod slot-unbound ((class t) object slot-name)
       (error 'slot-unbound :instance object :name slot-name))
 
+(defmethod slot-exists-p ((instance t) slot-name)
+  nil)
+
 ;;; ----------------------------------------------------------------------