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