mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-08 02:10:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

SLOT-EXISTS-P now works with all types of objects.

Browse source
This commit is contained in:
jjgarcia 2003-12-08 09:38:06 +00:00
parent 48740191e6
commit ec401a32c7
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/clos/boot.lsp
View file

@ -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)
;;; ----------------------------------------------------------------------