use the 1.2 metadata reader macro ^ instead of #^

src/main/clojure/clojure/contrib/accumulators.clj

@@ -19,7 +19,7 @@
 ;; remove this notice, or any other, from this software.
 
 (ns
-  #^{:author "Konrad Hinsen"
+  ^{:author "Konrad Hinsen"
      :doc "A generic accumulator interface and implementations of various
            accumulators."}
   clojure.contrib.accumulators

src/main/clojure/clojure/contrib/agent_utils.clj

@@ -13,7 +13,7 @@
 ;; note to other contrib members: feel free to add to this lib
 
 (ns
-    #^{:author "Christophe Grande",
+    ^{:author "Christophe Grande",
        :doc "Miscellaneous agent utilities
  (note to other contrib members: feel free to add to this lib)",
 }

src/main/clojure/clojure/contrib/base64.clj

@@ -12,7 +12,7 @@
 ;; remove this notice, or any other, from this software.
 
 
-(ns #^{:doc "Base-64 encoding and (maybe later) decoding.  
+(ns ^{:doc "Base-64 encoding and (maybe later) decoding.  
 
   This is mainly here as an example.  It is much slower than the
   Apache Commons Codec implementation or sun.misc.BASE64Encoder."
@@ -29,7 +29,7 @@
   is a 65-character String containing the 64 characters to use in the
   encoding; the 65th character is the pad character.  line-length is
   the maximum number of characters per line, nil for no line breaks."
-  [#^InputStream input #^Writer output #^String alphabet line-length]
+  [^InputStream input ^Writer output ^String alphabet line-length]
   (let [buffer (make-array Byte/TYPE 3)]
     (loop [line 0]
       (let [len (.read input buffer)]
@@ -80,7 +80,7 @@
   "Encodes String in base 64; returns a String.  If not specified,
   encoding is UTF-8 and line-length is nil."
   ([s] (encode-str s "UTF-8" nil))
-  ([#^String s #^String encoding line-length]
+  ([^String s ^String encoding line-length]
      (let [output (StringWriter.)]
        (encode (ByteArrayInputStream. (.getBytes s encoding))
                output *base64-alphabet* line-length)

src/main/clojure/clojure/contrib/classpath.clj

@@ -13,7 +13,7 @@
 
 
 (ns 
-  #^{:author "Stuart Sierra",
+  ^{:author "Stuart Sierra",
      :doc "Utilities for dealing with the JVM's classpath"}
   clojure.contrib.classpath
   (:require [clojure.contrib.jar :as jar])

src/main/clojure/clojure/contrib/combinatorics.clj

@@ -62,7 +62,7 @@ On my own computer, I use versions of all these algorithms that return sequences
 
 
 (ns
-  #^{:author "Mark Engelberg",
+  ^{:author "Mark Engelberg",
      :doc "Efficient, functional algorithms for generating lazy
 sequences for common combinatorial functions. (See the source code 
 for a longer description.)"}

src/main/clojure/clojure/contrib/command_line.clj

@@ -9,7 +9,7 @@
 ; Process command-line arguments according to a given cmdspec
 
 (ns 
-    #^{:author "Chris Houser", 
+    ^{:author "Chris Houser", 
        :doc "Process command-line arguments according to a given cmdspec"}
     clojure.contrib.command-line
     (:use     (clojure.contrib [string :only (join)])))
@@ -60,7 +60,7 @@
 
 (defn- rmv-q
    "Remove ?"
-   [#^String s]
+   [^String s]
    (if (.endsWith s "?")
       (.substring s 0 (dec (count s)))
       s))

src/main/clojure/clojure/contrib/complex_numbers.clj

@@ -12,7 +12,7 @@
 ;; remove this notice, or any other, from this software.
 
 (ns
-  #^{:author "Konrad Hinsen"
+  ^{:author "Konrad Hinsen"
      :doc "Complex numbers
            NOTE: This library is in evolution. Most math functions are
                  not implemented yet."}

src/main/clojure/clojure/contrib/cond.clj

@@ -11,7 +11,7 @@
 ;;  scgilardi (gmail)
 ;;  2 October 2008
 
-(ns #^{:author "Stephen C. Gilardi"
+(ns ^{:author "Stephen C. Gilardi"
        :doc "Extensions to the basic cond function."} 
   clojure.contrib.cond)
 

src/main/clojure/clojure/contrib/condition.clj

@@ -11,7 +11,7 @@
 ;;  scgilardi (gmail)
 ;;  Created 09 June 2009
 
-(ns #^{:author "Stephen C. Gilardi"
+(ns ^{:author "Stephen C. Gilardi"
        :doc "Flexible raising and handling of conditions:
 
 Functions:

src/main/clojure/clojure/contrib/core.clj

@@ -13,7 +13,7 @@
 ;; note to other contrib members: feel free to add to this lib
 
 (ns
-  #^{:author "Laurent Petit (and others)"
+  ^{:author "Laurent Petit (and others)"
      :doc "Functions/macros variants of the ones that can be found in clojure.core 
  (note to other contrib members: feel free to add to this lib)"}
   clojure.contrib.core

src/main/clojure/clojure/contrib/dataflow.clj

@@ -15,7 +15,7 @@
 
 
 (ns
-  #^{:author "Jeffrey Straszheim",
+  ^{:author "Jeffrey Straszheim",
      :doc "A library to support a dataflow model of state"}
   clojure.contrib.dataflow
   (:use [clojure.set :only (union intersection difference)])
@@ -363,7 +363,7 @@
   (list 'cell :validator (:display cell)))
 
 (defmethod print-method ::dataflow-cell
-  [f #^Writer w]
+  [f ^Writer w]
   (binding [*out* w]
     (pr (display-cell f))))
 

src/main/clojure/clojure/contrib/datalog.clj

@@ -18,7 +18,7 @@
 
 
 (ns 
-  #^{:author "Jeffrey Straszheim",
+  ^{:author "Jeffrey Straszheim",
      :doc "A Clojure implementation of Datalog"} 
   clojure.contrib.datalog
   (:use clojure.contrib.datalog.rules

src/main/clojure/clojure/contrib/datalog/database.clj

@@ -31,7 +31,7 @@
 ;;; DDL
 
 (defmethod print-method ::datalog-database
-  [db #^Writer writer]
+  [db ^Writer writer]
   (binding [*out* writer]
     (do
       (println "(datalog-database")
@@ -49,7 +49,7 @@
 (def empty-database (datalog-database {}))
 
 (defmethod print-method ::datalog-relation
-  [rel #^Writer writer]
+  [rel ^Writer writer]
   (binding [*out* writer]
     (do
       (println "(datalog-relation")

src/main/clojure/clojure/contrib/datalog/rules.clj

@@ -74,7 +74,7 @@
     `(is-safe? (build-rule ~head [~@body]))))
 
 (defmethod print-method ::datalog-rule
-  [rule #^Writer writer]
+  [rule ^Writer writer]
   (print-method (display-rule rule) writer))
 
 (defn return-rule-data
@@ -89,7 +89,7 @@
   `(with-meta ~qq {:type ::datalog-query})))
 
 (defmethod print-method ::datalog-query
-  [query #^Writer writer]
+  [query ^Writer writer]
   (print-method (display-query query) writer))
 
 
@@ -139,7 +139,7 @@
   (reduce conj empty-rules-set rules))
 
 (defmethod print-method ::datalog-rules-set
-  [rules #^Writer writer]
+  [rules ^Writer writer]
   (binding [*out* writer]
     (do
       (print "(rules-set")

src/main/clojure/clojure/contrib/def.clj

@@ -15,7 +15,7 @@
 ;;  17 May 2008
 
 (ns 
-  #^{:author "Stephen C. Gilardi",
+  ^{:author "Stephen C. Gilardi",
     :doc "def.clj provides variants of def that make including doc strings and
 making private definitions more succinct."} 
   clojure.contrib.def)