skoon / MyFirstClojure.lisp

Created January 10, 2010


    
    View MyFirstClojure.lisp 
  
  
      MyFirstClojure.lisp
    
    
        Raw
      
    
    File suppressed. Click to show.
  
  
            1
            2
            3
            4
            5
            6
            7
            8
            9
            10
          
          
            (import '(winterwell.jtwitter Twitter))
 
(defn connect-to-twitter []
    (let [twitter (new Twitter "lazycoder" "NotMyRealPassword")]
      (do (println "Connecting to Twitter"))
      (do (println (. twitter (getStatus "lazycoder"))))
      twitter)
   )
 
(do (connect-to-twitter))