archive/src/mtags

   1 #!/bin/sh
   2 etags [m-z]*.lisp
   3 mv TAGS TAGSmz
   4 etags [a-l]*.lisp
   5 cat TAGSmz >> TAGS
   6 rm TAGSmz
   7
   8 (setq auto-save-default nil)
   9 (tags-query-replace "fsymeval" "symbol-function" "yes")
  10 (tags-query-replace "sub1" "1-" "yes")
  11 (tags-query-replace "add1" "1+" "yes")
  12 (tags-query-replace "lexpr-funcall" "apply" "yes")
  13 (tags-query-replace "standard-output" "*standard-output*" "yes")
  14 (tags-query-replace "standard-input" "*standard-input*" "yes")
  15 (tags-query-replace "(minus" "(-" "yes")
  16 (tags-query-replace "multiple-value" "multiple-value-setq" "yes")
  17 (tags-query-replace "\*catch" "catch" "yes")
  18 (tags-query-replace "\*throw" "throw" "yes")
  19 (tags-query-replace "defconst" "defparameter" "yes")
  20 (tags-query-replace "function-cell-location" "symbol-function" "yes")
  21 (tags-query-replace "flonump" "floatp" "yes")
  22 (tags-query-replace "plist" "symbol-plist" "yes")
  23
  24
  25 (tags-query-replace "probef" "probe-file" "yes")
  26 (tags-query-replace "get-pname" "symbol-name" "yes")
  27 (tags-query-replace "copytree" "copy-tree" "yes")
  28 (tags-query-replace "copylist" "copy-list" "yes")
  29
  30 ;(tags-query-replace "greaterp" ">" "yes") ;are these for fixnum only?
  31 ;(tags-query-replace "lessp" "<" "yes")
  32
  33
  34 ;fixnum ? (tags-query-replace "(plus" "(+" "yes")