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