Changeset 3436

Show
Ignore:
Timestamp:
07/14/08 16:33:26 (6 months ago)
Author:
hans
Message:

Some small cmucl fixes.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/datastore/src/utils/acl-mp-compat.lisp

    r2968 r3436  
    99  #+sbcl 
    1010  (sb-thread:make-mutex :name name) 
    11   #+cmu 
     11  #+(and cmu x86) 
    1212  (mp:make-lock name) 
     13  #+(and cmu (not x86)) 
     14  (declare (ignore name)) 
    1315  #+openmcl 
    1416  (ccl:make-lock name) 

  • trunk/bknr/modules/mail/smtp-server.lisp

    r2417 r3436  
    8888  (handle-session (make-instance 'smtp-client :socket client-socket))) 
    8989 
    90 #+cmu 
    9190(defun smtp-server (&key (port 2525)) 
    92   (let ((server-socket (socket:make-socket :connect :passive :local-port port :reuse-address t))) 
    93     (unwind-protect 
    94          (loop 
    95           (let* ((client-socket (socket:accept-connection server-socket))) 
    96             (unwind-protect 
    97                  (handle-smtp-client client-socket) 
    98               (close client-socket)))) 
    99       (format t ";; smtp server finished, closing~%") 
    100       (close server-socket)))) 
     91  (usocket:with-socket-listener (server-socket :local-port port :reuse-address t) 
     92    (loop 
     93       (let* ((client-socket (usocket:socket-accept server-socket))) 
     94         (unwind-protect 
     95              (handle-smtp-client client-socket) 
     96           (close client-socket)))))) 

  • trunk/thirdparty/closure-common/closure-common.asd

    r3108 r3436  
    2727       (error "conflicting unicode configuration.  Please recompile.") 
    2828       (pushnew :rune-is-integer *features*)) 
    29       ((code-char 70000) 
     29      ((ignore-errors (code-char 70000)) 
    3030       (when (test #xD800) 
    3131         (format t " WARNING: Lisp implementation doesn't use UTF-16, ~ 

  • trunk/thirdparty/slime/swank-cmucl.lisp

    r3416 r3436  
    7575 
    7676(defimplementation preferred-communication-style () 
    77   :sigio) 
     77  :fd-handler) 
    7878 
    7979#-(or darwin mips)