From 1d22f7b3d1cc457c5b46c984322d1da4dddde9e1 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 22 Oct 2004 20:39:07 +0000 Subject: [PATCH] r10101: move function so that deref-array macro is defined --- src/objects.lisp | 34 ---------------------------------- 1 file changed, 34 deletions(-) diff --git a/src/objects.lisp b/src/objects.lisp index 0e2d908..358763e 100644 --- a/src/objects.lisp +++ b/src/objects.lisp @@ -270,37 +270,3 @@ an array of TYPE with size SIZE. The TYPE parameter is evaluated." `(define-symbol-macro ,lisp-name '(error "DEF-FOREIGN-VAR not (yet) defined for ~A" (lisp-implementation-type))))) - -#-(or sbcl cmu) -(defun convert-from-foreign-usb8 (s len) - (declare (optimize (speed 3) (space 0) (safety 0) (compilation-speed 0)) - (fixnum len)) - (let ((a (make-array len :element-type '(unsigned-byte 8)))) - (dotimes (i len a) - (declare (fixnum i)) - (setf (aref a i) (uffi:deref-array s '(:array :unsigned-byte) i))))) - -#+sbcl -(defun convert-from-foreign-usb8 (s len) - (declare (type sb-sys:system-area-pointer sap)) - (locally - (declare (optimize (speed 3) (safety 0))) - (let ((result (make-array len :element-type '(unsiged-byte 8)))) - (sb-kernel:copy-from-system-area s 0 - result (* sb-vm:vector-data-offset - sb-vm:n-word-bits) - (* len sb-vm:n-byte-bits)) - result))) - -#+cmu -(defun convert-from-foreign-usb8 (s le) - (declare (type system:system-area-pointer sap)) - (locally - (declare (optimize (speed 3) (safety 0))) - (let ((result (make-array len :element-type '(unsiged-byte 8)))) - (kernel:copy-from-system-area s 0 - result (* vm:vector-data-offset - vm:word-bits) - (* len vm:byte-bits)) - result))) - -- 2.34.1