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

Several slot accessors are now specialized on standard-effective-slot-definition

Browse source
This commit is contained in:
jjgarcia 2006-03-06 09:53:01 +00:00
parent ce29069fdb
commit 9b720a0c73
2 changed files with 19 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/CHANGELOG
View file

@ -109,6 +109,9 @@ ECL 0.9i
- New slot options are now allowed, as well as new metaclass options.
- SLOT-{VALUE,BOUNDP,MAKUNBOUND}-USING-CLASS now are also specialized for
standard-effective-slot-definition (Thanks to D. Corkill)
* Documentation:
- The HTML manuals now use CSS for a more appealing look.

16
src/clos/fixup.lsp
View file

@ -58,6 +58,22 @@
(eval (print `(defclass slot-definition ()
,(mapcar #'(lambda (x) (butlast x 2)) +slot-definition-slots+)))))
(defmethod slot-value-using-class ((class standard-class) instance
(slot standard-effective-slot-definition))
(slot-value-using-class class instance (slot-definition-name slot)))
(defmethod slot-boundp-using-class ((class standard-class) instance
(slot standard-effective-slot-definition))
(slot-boundp-using-class class instance (slot-definition-name slot)))
(defmethod (setf slot-value-using-class) (val (class standard-class) instance
(slot standard-effective-slot-definition))
(standard-instance-set val instance (slot-definition-name slot)))
(defmethod slot-makunbound-using-class ((class standard-class) instance
(slot standard-effective-slot-definition))
(slot-makunbound-using-class class instance (slot-definition-name slot)))
;;; ----------------------------------------------------------------------
;;; Fixup