Commit | Line | Data |
---|---|---|
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 |