[rdnzl-cvs] CVS RDNZL

[eweitz]

Update of /project/rdnzl/cvsroot/RDNZL
In directory clnet:/tmp/cvs-serv12875

Modified Files:
	arrays.lisp rdnzl.asd 
Log Message:
sync with 0.10.3


--- /project/rdnzl/cvsroot/RDNZL/arrays.lisp	2006/08/10 15:36:47	1.7
+++ /project/rdnzl/cvsroot/RDNZL/arrays.lisp	2006/08/25 09:45:27	1.8
@@ -1,5 +1,5 @@
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: RDNZL; Base: 10 -*-
-;;; $Header: /project/rdnzl/cvsroot/RDNZL/arrays.lisp,v 1.7 2006/08/10 15:36:47 eweitz Exp $
+;;; $Header: /project/rdnzl/cvsroot/RDNZL/arrays.lisp,v 1.8 2006/08/25 09:45:27 eweitz Exp $
 
 ;;; Copyright (c) 2004-2006, Dr. Edmund Weitz.  All rights reserved.
 
@@ -54,7 +54,8 @@
 subscripts SUBSCRIPTS.  Similar to AREF."
   (let* ((element-type [%AssemblyQualifiedName [GetElementType [GetType array]]])
          (value (apply #`GetValue array subscripts)))
-    (unbox (cast* value element-type))))
+    ;; VALUE might be NULL pointer, so check for NIL before unboxing
+    (and value (unbox (cast* value element-type)))))
 
 (defun (setf aref*) (new-value array &rest subscripts)
   "Sets the element of the .NET array ARRAY \(a CONTAINER) with the
--- /project/rdnzl/cvsroot/RDNZL/rdnzl.asd	2006/08/10 15:36:47	1.9
+++ /project/rdnzl/cvsroot/RDNZL/rdnzl.asd	2006/08/25 09:45:27	1.10
@@ -1,5 +1,5 @@
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
-;;; $Header: /project/rdnzl/cvsroot/RDNZL/rdnzl.asd,v 1.9 2006/08/10 15:36:47 eweitz Exp $
+;;; $Header: /project/rdnzl/cvsroot/RDNZL/rdnzl.asd,v 1.10 2006/08/25 09:45:27 eweitz Exp $
 
 ;;; Copyright (c) 2004, Dr. Edmund Weitz.  All rights reserved.
 
@@ -29,17 +29,9 @@
 
 ;;; System definition for ASDF - see <http://www.cliki.net/asdf>
 
-(in-package :cl-user)
-
-(defpackage #:rdnzl.system
-  (:use #:cl
-        #:asdf))
-
-(in-package #:rdnzl.system)
-
-(defsystem #:rdnzl
+(asdf:defsystem :rdnzl
   :serial t
-  :version "0.10.2"
+  :version "0.10.3"
   :components ((:file "packages")
                (:file "specials")
                (:file "util")