removing historical implementation
[clinton/lisp-on-lines.git] / src / standard-occurence.lisp
1 (in-package :lisp-on-lines)
2
3 ;;;; STRINGS
4
5 (find-or-create-occurence 'string)
6
7 (defmethod find-occurence ((string string))
8 (find-occurence 'string))
9
10 (set-attribute 'string 'identity `(string :getter ,#'(lambda (x)
11 (identity x))))
12 (set-default-attributes 'string)
13
14 ;;;; LISTS
15
16 (find-or-create-occurence 'list)
17
18 (defmethod find-occurence ((list list))
19 (find-occurence 'list))
20
21 (set-attribute 'list 'identity `(string :getter ,#'(lambda (x)
22 (identity x))))
23 (set-default-attributes 'string)
24