Skip to content
GitLab
Projects Groups Snippets
  • /
  • Help
    • Help
    • Support
    • Community forum
    • Submit feedback
    • Contribute to GitLab
  • Sign in / Register
  • ansi-test ansi-test
  • Project information
    • Project information
    • Activity
    • Labels
    • Members
  • Repository
    • Repository
    • Files
    • Commits
    • Branches
    • Tags
    • Contributors
    • Graph
    • Compare
  • Issues 14
    • Issues 14
    • List
    • Boards
    • Service Desk
    • Milestones
  • Merge requests 2
    • Merge requests 2
  • Deployments
    • Deployments
    • Releases
  • Monitor
    • Monitor
    • Incidents
  • Analytics
    • Analytics
    • Value stream
    • Repository
  • Wiki
    • Wiki
  • Activity
  • Graph
  • Create a new issue
  • Commits
  • Issue Boards
Collapse sidebar
  • ansi-test
  • ansi-testansi-test
  • Issues
  • #4
Closed
Open
Issue created Nov 20, 2015 by R. Matthew Emerson@remerson

array-rank-limit is an exclusive upper bound

The constant array-rank-limit is an exclusive upper bound which must not be less than 8. (see http://www.lispworks.com/documentation/HyperSpec/Body/v_ar_ran.htm)

On Genera, it happens to be exactly 8, so a form like (make-array (loop repeat 8 collect 2)) will signal an error.

diff --git a/universe.lsp b/universe.lsp
index e0f00e3..d4833c5 100644
--- a/universe.lsp
+++ b/universe.lsp
@@ -268,7 +268,7 @@
 
 (defparameter *array-dimensions*
     (loop
-        for i from 0 to 8 collect
+        for i from 0 below array-rank-limit collect
           (loop for j from 1 to i collect 2)))
 
 (defparameter *default-array-target* (make-array '(300)))

Or, if you prefer, (min array-rank-limit 8) instead.

Assignee
Assign to
Time tracking