Changeset 3217

Show
Ignore:
Timestamp:
05/30/08 13:32:51 (7 months ago)
Author:
edi
Message:

Use Chunga's AS-KEYWORD

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/thirdparty/drakma/doc/index.html

    r3187 r3217  
    982982see <a href="#*text-content-types*"><code>*TEXT-CONTENT-TYPES*</code></a> 
    983983and <a href="#*body-format-function*"><code>*BODY-FORMAT-FUNCTION*</code></a>.) 
     984If the body is empty, <code>NIL</code> will be returned. 
    984985<p> 
    985986If <a class=none 
    …… 
    14711472</p> 
    14721473<p> 
    1473 $Header: /usr/local/cvsrep/drakma/doc/index.html,v 1.87 2008/05/24 03:21:24 edi Exp $ 
     1474$Header: /usr/local/cvsrep/drakma/doc/index.html,v 1.88 2008/05/30 09:28:20 edi Exp $ 
    14741475<p><a href="http://weitz.de/index.html">BACK TO MY HOMEPAGE</a> 
    14751476 

  • trunk/thirdparty/drakma/request.lisp

    r3187 r3217  
    11;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: DRAKMA; Base: 10 -*- 
    2 ;;; $Header: /usr/local/cvsrep/drakma/request.lisp,v 1.57 2008/05/24 03:21:22 edi Exp $ 
     2;;; $Header: /usr/local/cvsrep/drakma/request.lisp,v 1.58 2008/05/30 11:30:45 edi Exp $ 
    33 
    44;;; Copyright (c) 2006-2008, Dr. Edmund Weitz.  All rights reserved. 
    …… 
    330330Drakma will populate the `Referer' header with the URI that 
    331331triggered the redirection, overwriting an existing `Referer' 
    332 header (in ADDITIONAL-HEADERS) if necessary. 
     332header \(in ADDITIONAL-HEADERS) if necessary. 
    333333 
    334334If KEEP-ALIVE is T, the server will be asked to keep the 
    …… 
    339339KEEP-ALIVE and CLOSE are obviously mutually exclusive. 
    340340 
    341 If the message body sent by the server has a text content type, 
    342 Drakma will try to return it as a Lisp string.  It'll first check 
    343 if the `Content-Type' header denotes an encoding to be used, or 
    344 otherwise it will use the EXTERNAL-FORMAT-IN argument.  The body 
    345 is decoded using FLEXI-STREAMS.  If FLEXI-STREAMS doesn't know 
    346 the external format, the body is returned as an array of octets. 
     341If the message body sent by the server has a text content type, Drakma 
     342will try to return it as a Lisp string.  It'll first check if the 
     343`Content-Type' header denotes an encoding to be used, or otherwise it 
     344will use the EXTERNAL-FORMAT-IN argument.  The body is decoded using 
     345FLEXI-STREAMS.  If FLEXI-STREAMS doesn't know the external format, the 
     346body is returned as an array of octets.  If the body is empty, Drakma 
     347will return NIL. 
    347348 
    348349If the message body doesn't have a text content type or if 
    …… 
    512513              (when cookie-jar 
    513514                ;; write all cookies in one fell swoop, so even Sun's 
    514                 ;; web server has a change to get it 
     515                ;; web server has a chance to get it 
    515516                (when-let (cookies (loop for cookie in (cookie-jar-cookies cookie-jar) 
    516517                                         when (send-cookie-p cookie uri force-ssl) 

  • trunk/thirdparty/drakma/util.lisp

    r3187 r3217  
    11;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: DRAKMA; Base: 10 -*- 
    2 ;;; $Header: /usr/local/cvsrep/drakma/util.lisp,v 1.35 2008/01/14 01:57:02 edi Exp $ 
     2;;; $Header: /usr/local/cvsrep/drakma/util.lisp,v 1.36 2008/05/30 11:30:45 edi Exp $ 
    33 
    44;;; Copyright (c) 2006-2008, Dr. Edmund Weitz.  All rights reserved. 
    …… 
    275275                         (string-equal subtype candidate-subtype))))) 
    276276 
    277 (defun as-keyword (string) 
    278   "Converts the string STRING to a keyword where all characters are 
    279 uppercase or lowercase, taking into account the current readtable 
    280 case." 
    281   (intern (funcall 
    282             (if (eq (readtable-case *readtable*) :upcase) 
    283               #'string-upcase 
    284               #'string-downcase) 
    285             string) 
    286           :keyword)) 
    287