| 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 | |