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")