[usocket-cvs] r696 - usocket/trunk/backend

[ctian at common-lisp.net]

Author: ctian
Date: Sat Nov 10 07:24:33 2012
New Revision: 696

Log:
[CLISP] improved HANDLE-CONDITION for CLISP

Modified:
   usocket/trunk/backend/clisp.lisp

Modified: usocket/trunk/backend/clisp.lisp
==============================================================================
--- usocket/trunk/backend/clisp.lisp	Sat Nov 10 07:22:25 2012	(r695)
+++ usocket/trunk/backend/clisp.lisp	Sat Nov 10 07:24:33 2012	(r696)
@@ -93,17 +93,17 @@
   "Dispatch correct usocket condition."
   (let (error-keyword error-string)
     (typecase condition
-      #+ffi ; because OS:ERRNO and OS:STRERROR is only present if FFI is present.
-      (system::simple-os-error
+      (ext:os-error
        (let ((errno (car (simple-condition-format-arguments condition))))
+	 #+ffi
 	 (setq error-keyword (os:errno errno)
 	       error-string (os:strerror errno))))
-      #+ffi ; because OS:ERRNO and OS:STRERROR is only present if FFI is present.
       (simple-error
        (let ((keyword
 	      (car (simple-condition-format-arguments condition))))
-	 (setq error-keyword keyword
-	       error-string (os:strerror keyword))))
+	 (setq error-keyword keyword)
+	 #+ffi
+	 (setq error-string (os:strerror keyword))))
       (error (error 'unknown-error :real-error condition))
       (condition (signal 'unknown-condition :real-condition condition)))
     (when error-keyword