Commit | Line | Data |
---|---|---|
ff1e971a | 1 | |
2b0fd9c8 DC |
2 | (in-package :lisp-on-lines) |
3 | ||
4 | ;;;; STRINGS | |
5 | ||
6 | (find-or-create-occurence 'string) | |
7 | ||
8 | (defmethod find-occurence ((string string)) | |
9 | (find-occurence 'string)) | |
10 | ||
11 | (set-attribute 'string 'identity `(string :getter ,#'(lambda (x) | |
12 | (identity x)))) | |
13 | (set-default-attributes 'string) | |
14 | ||
15 | ;;;; LISTS | |
16 | ||
17 | (find-or-create-occurence 'list) | |
18 | ||
19 | (defmethod find-occurence ((list list)) | |
20 | (find-occurence 'list)) | |
21 | ||
22 | (set-attribute 'list 'identity `(string :getter ,#'(lambda (x) | |
23 | (identity x)))) | |
24 | (set-default-attributes 'string) | |
25 |