[clinton/lisp-on-lines.git] / src / standard-occurence.lisp

(in-package :lisp-on-lines)

;;;; STRINGS

(find-or-create-occurence 'string)

(defmethod find-occurence ((string string))
  (find-occurence 'string))

(set-attribute 'string 'identity `(string :getter ,#'(lambda (x)
						       (identity x))))
(set-default-attributes 'string)

;;;; LISTS

(find-or-create-occurence 'list)

(defmethod find-occurence ((list list))
  (find-occurence 'list))

(set-attribute 'list 'identity `(string :getter ,#'(lambda (x)
						       (identity x))))
(set-default-attributes 'string)
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