src/standard-occurence.lisp

   1
   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