whitespace fixes
[clinton/lisp-on-lines.git] / src / standard-occurence.lisp
CommitLineData
2b0fd9c8
DC
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