From: Alexey D. <ade...@us...> - 2005-07-02 06:49:24
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28126/src/code Modified Files: foreign.lisp Log Message: 0.9.2.13: * Add constant folding of ARRAY-HEADER-P for complex-array argument (fixes spurious warning reported by Eduardo Mu\~noz). * FOREIGN-SYMBOL-ADDRESS-AS-INTEGER does not loose second result (fix bug reported by Luis Oliveira). * Don't run external format checks on SBCL without Unicode support. Index: foreign.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/foreign.lisp,v retrieving revision 1.31 retrieving revision 1.32 diff -u -d -r1.31 -r1.32 --- foreign.lisp 7 Apr 2005 08:00:16 -0000 1.31 +++ foreign.lisp 2 Jul 2005 06:49:13 -0000 1.32 @@ -46,8 +46,11 @@ t)))) (defun foreign-symbol-address-as-integer (name &optional datap) - (or (foreign-symbol-address-as-integer-or-nil name datap) - (error "Unknown foreign symbol: ~S" name))) + (multiple-value-bind (addr sharedp) + (foreign-symbol-address-as-integer-or-nil name datap) + (if addr + (values addr sharedp) + (error "Unknown foreign symbol: ~S" name)))) (defun foreign-symbol-address (symbol &optional datap) (declare (ignorable datap)) |