src/standard-occurence.lisp

   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