anchor.diff:                    (curr2 (subseq name 3 6)))
                 (format s "~&1 ~a = ~a ~a (updated: ~a ~a)" 
                         curr1 rate curr2 date time))))))
  +
  +
  +(defparameter *ideas* nil)
  +
  +(defun add-idea (from idea)
  +  (push (list from idea (get-universal-time)) *ideas*))
  +
  +
  +(defun get-ideas ()
  +  (format nil "ideas: ~{~&~a~}" *ideas*))
  +
  +(defun make-keyword (string)
  +  (intern (string-upcase string) :keyword))
  
positive.code:                  (xmpp::type- message)))
      ((optima.ppcre:ppcre "^say (.*)$" text)
       (reply-chat connection (xmpp:from message)
                   text (xmpp::type- message)))
      ((optima.ppcre:ppcre "^man ([^:]+):([^/]+)/(.+)$" m f a)
       (reply-chat connection (xmpp:from message)
                   (get-erl-man-info m f a) (xmpp::type- message)))
  
negative.code:                      (+ (array-total-size buffer) buff-size)
                       :fill-pointer t))))
  
  (defun convert (string from to)
    (babel:octets-to-string (babel:string-to-octets string
                                                    :encoding from)
                            :encoding to))
  
  (defun get-http-page-title (url)
    (multiple-value-bind (stream status headers)
        (drakma:http-request url :want-stream t :force-binary t)
      (unwind-protect
           (when (and (= status 200) 
                      (search "text/html" (cdr (assoc :content-type headers))))
             (let ((encoding drakma:*drakma-default-external-format*))
               (read-until stream #'(lambda (data)
                                      (let ((data2 (flexi-streams:octets-to-string data :external-format encoding)))
                                        (when (eq encoding drakma:*drakma-default-external-format*)
                                          (ppcre:register-groups-bind (charset)
                                              ("(?i)charset=\"?([^\"\\s>]+)" data2)
                                            (setf encoding (make-keyword charset))
                                            (setf data2 (flexi-streams:octets-to-string data :external-format encoding))))
                                        (ppcre:register-groups-bind
                                            (title)
                                            ("(?i)<title>([^<]*)</title>" data2 :sharedp t)
                                          title))) :result-only t)))
        (close stream))))
  
  (defun process-common (connection message)
  