From 4f805161e70cf5f9a07a8e20d819b4abe436022a Mon Sep 17 00:00:00 2001 Message-Id: <4f805161e70cf5f9a07a8e20d819b4abe436022a.1714630237.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sun, 17 Apr 2005 21:44:27 +0000 Subject: [PATCH] Updated for SBCL 0.8.21 Organization: Straylight/Edgeware From: espen --- glib/glib.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/glib/glib.lisp b/glib/glib.lisp index 8eccedb..39bbce5 100644 --- a/glib/glib.lisp +++ b/glib/glib.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: glib.lisp,v 1.27 2005-02-14 00:44:26 espen Exp $ +;; $Id: glib.lisp,v 1.28 2005-04-17 21:44:27 espen Exp $ (in-package "GLIB") @@ -38,9 +38,8 @@ (defbinding (deallocate-memory "g_free") () nil ;; (declare (ignore address))) (defun copy-memory (from length &optional (to (allocate-memory length))) - (;#+cmu kernel:system-area-copy - ;#+sbcl sb-impl::system-area-copy - system-area-copy from 0 to 0 (* 8 length)) + #+cmu(system-area-copy from 0 to 0 (* 8 length)) + #+sbcl(system-area-ub8-copy from 0 to 0 length) to) -- [mdw]