2 (in-package :lisp-on-lines
)
6 (find-or-create-occurence 'string
)
8 (defmethod find-occurence ((string string
))
9 (find-occurence 'string
))
11 (set-attribute 'string
'identity
`(string :getter
,#'(lambda (x)
13 (set-default-attributes 'string
)
17 (find-or-create-occurence 'list
)
19 (defmethod find-occurence ((list list
))
20 (find-occurence 'list
))
22 (set-attribute 'list
'identity
`(string :getter
,#'(lambda (x)
24 (set-default-attributes 'string
)