Wednesday, September 16, 2009

(defun roam-all-corners-of-hell ()
  (let ((desperation 
  (quote (i fell in love with a language))))

    (defun sanity (none &optional delusion) 
      nil)
    
    (apply 'sanity
    '(not (a human one either)))
    
    (append desperation 
     '(a stupid one at that))
    
    (mapcar (lambda (one-by-one)(aref one-by-one 0))
     '("Lots of" "Idiotic" "Silly" "Parentheses"))
    
    (if (not (sanity '(is this)))
        (roam-all-corners-of-hell)
      T)))