From c90c7de3efcd6934c6dfd217c64def71bc611d54 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 24 May 2013 01:04:28 +0100 Subject: [PATCH] Add array file --- src/arrays.lisp | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 src/arrays.lisp diff --git a/src/arrays.lisp b/src/arrays.lisp new file mode 100644 index 0000000..0c614cf --- /dev/null +++ b/src/arrays.lisp @@ -0,0 +1,30 @@ +;;; arrays.lisp + +;; JSCL is free software: you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation, either version 3 of the +;; License, or (at your option) any later version. +;; +;; JSCL is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with JSCL. If not, see . + +(defun upgraded-array-element-type (typespec &optional environment) + (declare (ignore environment)) + (if (eq typespec 'character) + 'character + t)) + +(defun arrayp (x) (arrayp x)) + +(defun adjustable-array-p (array) + (unless (arrayp array) + (error "~S is not an array." array)) + t) + +(defun make-array (dimensions &key element-type initial-contents adjustable fill-pointer) + ) -- 1.7.10.4