
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")
participants (1)
-
eweitz