[usocket-cvs] r33 - usocket/trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Feb  3 17:27:31 2006
New Revision: 33

Modified:
   usocket/trunk/condition.lisp
Log:
Fix clisp hack. That should teach me using old clisp...

Modified: usocket/trunk/condition.lisp
==============================================================================
--- usocket/trunk/condition.lisp	(original)
+++ usocket/trunk/condition.lisp	Fri Feb  3 17:27:31 2006
@@ -74,12 +74,7 @@
 
 (define-condition usocket-unknown-error (usocket-error)
   ((real-error :initarg :real-error
-               :accessor usocket-real-error)
-   ;; clisp error wrt its condition system...
-   ;;it doesn't seem to inherit slots
-   #+clisp
-   (socket :initarg :socket
-           :accessor :usocket-socket))
+               :accessor usocket-real-error))
   (:documentation ""))