Package: cl-clg Version: 0.94~20080506-1 Severity: normal Tags: patch CLG uses the function SB-ALIEN::SHARED-OBJECT-FILE which is now (SBCL 1.0.25 and possibly older releases) called SB-ALIEN::SHARED-OBJECT-NAMESTRING. The attached patch fixes that.
-- System Information: Debian Release: squeeze/sid APT prefers unstable APT policy: (500, 'unstable'), (500, 'testing'), (500, 'stable'), (1, 'experimental') Architecture: i386 (i686) Kernel: Linux 2.6.28.8-leviathan (PREEMPT) Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8) (ignored: LC_ALL set to en_US.UTF-8) Shell: /bin/sh linked to /bin/bash Versions of packages cl-clg depends on: ii common-lisp-controller 6.17 Common Lisp source and compiler ma ii libgtk2.0-dev 2.14.7-4+b1 Development files for the GTK+ lib cl-clg recommends no packages. cl-clg suggests no packages. -- no debconf information
diff -urN clg-0.94~20080506.old/tools/asdf-extensions.lisp clg-0.94~20080506/tools/asdf-extensions.lisp --- clg-0.94~20080506.old/tools/asdf-extensions.lisp 2009-03-25 23:42:30.000000000 +0500 +++ clg-0.94~20080506/tools/asdf-extensions.lisp 2009-03-25 23:44:12.000000000 +0500 @@ -69,9 +69,9 @@ (sb-alien:load-shared-object namestring) (unless absolute-p (let ((shared-object (find namestring sb-alien::*shared-objects* - :key #'sb-alien::shared-object-file + :key #'sb-alien::shared-object-namestring :test #'equal))) - (setf (sb-alien::shared-object-file shared-object) name+type)))) + (setf (sb-alien::shared-object-namestring shared-object) name+type)))) #+cmu (progn (ext:load-foreign namestring) @@ -167,7 +167,7 @@ (name+type (subseq namestring (length directory))) (stored-name (if (absolute-p lib) namestring name+type))) - #+sbcl(find stored-name sb-alien::*shared-objects* :key #'sb-alien::shared-object-file :test #'equal) + #+sbcl(find stored-name sb-alien::*shared-objects* :key #'sb-alien::shared-object-namestring :test #'equal) #+cmu(rassoc stored-name system::*global-table* :test #'equal) #+clisp(find stored-name *loaded-libraries* :test #'equal)))
diff -urN clg-0.94~20080506.old/tools/asdf-extensions.lisp clg-0.94~20080506/tools/asdf-extensions.lisp --- clg-0.94~20080506.old/tools/asdf-extensions.lisp 2009-03-25 23:42:30.000000000 +0500 +++ clg-0.94~20080506/tools/asdf-extensions.lisp 2009-03-25 23:44:12.000000000 +0500 @@ -69,9 +69,9 @@ (sb-alien:load-shared-object namestring) (unless absolute-p (let ((shared-object (find namestring sb-alien::*shared-objects* - :key #'sb-alien::shared-object-file + :key #'sb-alien::shared-object-namestring :test #'equal))) - (setf (sb-alien::shared-object-file shared-object) name+type)))) + (setf (sb-alien::shared-object-namestring shared-object) name+type)))) #+cmu (progn (ext:load-foreign namestring) @@ -167,7 +167,7 @@ (name+type (subseq namestring (length directory))) (stored-name (if (absolute-p lib) namestring name+type))) - #+sbcl(find stored-name sb-alien::*shared-objects* :key #'sb-alien::shared-object-file :test #'equal) + #+sbcl(find stored-name sb-alien::*shared-objects* :key #'sb-alien::shared-object-namestring :test #'equal) #+cmu(rassoc stored-name system::*global-table* :test #'equal) #+clisp(find stored-name *loaded-libraries* :test #'equal)))