From 80eba0a794acc29722ef4532be0ceea8e3820f11 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Thu, 3 Sep 2015 07:01:27 +0200
Subject: [PATCH] restructure: add array missing test
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
---
 .../array-has-fill-pointer-p.lsp                              | 4 ----
 arrays/load.lsp                                               | 1 +
 2 files changed, 1 insertion(+), 4 deletions(-)
 rename array-has-fill-pointer-p.lsp => arrays/array-has-fill-pointer-p.lsp (98%)

diff --git a/array-has-fill-pointer-p.lsp b/arrays/array-has-fill-pointer-p.lsp
similarity index 98%
rename from array-has-fill-pointer-p.lsp
rename to arrays/array-has-fill-pointer-p.lsp
index fa1eed42..380a9820 100644
--- a/array-has-fill-pointer-p.lsp
+++ b/arrays/array-has-fill-pointer-p.lsp
@@ -2,8 +2,6 @@
 ;;;; Author:   Paul Dietz
 ;;;; Contains: Tests of the function ARRAY-HAS-FILL-POINTER-P
 
-(in-package :cl-test)
-
 ;;; Many tests are in other files, incidental to testing of
 ;;; other things
 
@@ -52,5 +50,3 @@
 (deftest array-has-fill-pointer-p.error.4
   (signals-type-error x nil (array-has-fill-pointer-p x))
   t)
-
-
diff --git a/arrays/load.lsp b/arrays/load.lsp
index c632e9c6..d5f97568 100644
--- a/arrays/load.lsp
+++ b/arrays/load.lsp
@@ -22,6 +22,7 @@
   (load "array-dimension.lsp")
   (load "array-dimensions.lsp")
   (load "array-element-type.lsp")
+  (load "array-has-fill-pointer-p.lsp")
   (load "array-in-bounds-p.lsp")
   (load "array-misc.lsp")
   (load "array-rank.lsp")
-- 
GitLab