From: David Vázquez <davazp@gmail.com>
Date: Fri, 24 May 2013 00:04:28 +0000 (+0100)
Subject: Add array file
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c90c7de3efcd6934c6dfd217c64def71bc611d54;p=jscl.git

Add array file
---

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 <http://www.gnu.org/licenses/>.
+
+(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)
+  )