Permalink
Browse files

documentation

  • Loading branch information...
1 parent 64d089e commit 952e59de01cf908541267a4ad863a18a7c58cbc8 @adh committed Dec 18, 2011
Showing with 3 additions and 0 deletions.
  1. +3 −0 core-lib/objects.scm
View
@@ -58,14 +58,17 @@
,proc)))
(define-macro (dfsch:define-slot-accessor name class slot-name)
+ "Define generic method for accessing named slot of given type"
`(add-method-to-generic-function! ,name
(,class)
(make-slot-accessor ,class ,slot-name)))
(define-macro (dfsch:define-slot-reader name class slot-name)
+ "Define generic method for reading from named slot of given type"
`(add-method-to-generic-function! ,name
(,class)
(make-slot-reader ,class ,slot-name)))
(define-macro (dfsch:define-slot-writer name class slot-name)
+ "Define generic method for writing into named slot of given type"
`(add-method-to-generic-function! ,name
(,class)
(make-slot-writer ,class ,slot-name)))

0 comments on commit 952e59d

Please sign in to comment.