dev-lisp/cl-plus-ssl removal, p.masked from 17Sep2010, wrt bug #337963

1 files changed, 0 insertions, 54 deletions

diff --git a/dev-lisp/cl-plus-ssl/files/20051204-cffi-null-pointer-gentoo.patch b/dev-lisp/cl-plus-ssl/files/20051204-cffi-null-pointer-gentoo.patch
deleted file mode 100644
index 328e2658a858..000000000000
--- a/dev-lisp/cl-plus-ssl/files/20051204-cffi-null-pointer-gentoo.patch
+++ /dev/null
@@ -1,54 +0,0 @@
-diff -ur cl+ssl-2005-12-04.orig/bio.lisp cl+ssl-2005-12-04/bio.lisp
---- cl+ssl-2005-12-04.orig/bio.lisp	2005-11-25 14:14:04.000000000 -0600
-+++ cl+ssl-2005-12-04/bio.lisp	2006-09-02 13:01:17.000000000 -0500
-@@ -52,11 +52,11 @@
-       (setf (slot 'bwrite) (cffi:callback lisp-write))
-       (setf (slot 'bread) (cffi:callback lisp-read))
-       (setf (slot 'bputs) (cffi:callback lisp-puts))
--      (setf (slot 'bgets) (cffi:null-ptr))
-+      (setf (slot 'bgets) (cffi:null-pointer))
-       (setf (slot 'ctrl) (cffi:callback lisp-ctrl))
-       (setf (slot 'create) (cffi:callback lisp-create))
-       (setf (slot 'destroy) (cffi:callback lisp-destroy))
--      (setf (slot 'callback-ctrl) (cffi:null-ptr)))
-+      (setf (slot 'callback-ctrl) (cffi:null-pointer)))
-     m))
- 
- (defun bio-new-lisp ()
-@@ -89,7 +89,7 @@
-   bio buf n
-   (let ((i 0))
-     (handler-case
--	(unless (or (cffi:null-ptr-p buf) (null n))
-+	(unless (or (cffi:null-pointer-p buf) (null n))
- 	  (clear-retry-flags bio)
- 	  (when (or *blockp* (listen *socket*))
-             (setf (cffi:mem-ref buf :unsigned-char i) (read-byte *socket*))
-@@ -121,13 +121,13 @@
- (cffi:defcallback lisp-create :int ((bio :pointer))
-   (setf (cffi:foreign-slot-value bio 'bio 'init) 1)
-   (setf (cffi:foreign-slot-value bio 'bio 'num) 0)
--  (setf (cffi:foreign-slot-value bio 'bio 'ptr) (cffi:null-ptr))
-+  (setf (cffi:foreign-slot-value bio 'bio 'ptr) (cffi:null-pointer))
-   (setf (cffi:foreign-slot-value bio 'bio 'flags) 0)
-   1)
- 
- (cffi:defcallback lisp-destroy :int ((bio :pointer))
-   (cond
--    ((cffi:null-ptr-p bio) 0)
-+    ((cffi:null-pointer-p bio) 0)
-     (t
-       (setf (cffi:foreign-slot-value bio 'bio 'init) 0)
-       (setf (cffi:foreign-slot-value bio 'bio 'flags) 0)
-diff -ur cl+ssl-2005-12-04.orig/conditions.lisp cl+ssl-2005-12-04/conditions.lisp
---- cl+ssl-2005-12-04.orig/conditions.lisp	2005-11-09 16:10:44.000000000 -0600
-+++ cl+ssl-2005-12-04/conditions.lisp	2006-09-02 12:57:35.000000000 -0500
-@@ -185,7 +185,7 @@
-   (loop
-       for error-code = (err-get-error)
-       until (zerop error-code)
--      do (format stream "~a~%" (err-error-string error-code (cffi:null-ptr)))))
-+      do (format stream "~a~%" (err-error-string error-code (cffi:null-pointer)))))
- 
- (defun ssl-signal-error (handle syscall error-code original-error)
-   (let ((queue (with-output-to-string (s) (write-ssl-error-queue s))))