From 759d3fe07d115db2f71ca2d4cb6ceb7468734605 Mon Sep 17 00:00:00 2001 From: g000001 Date: Fri, 9 Mar 2012 23:45:18 +0900 Subject: [PATCH] fix: array rank --- srfi-58.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/srfi-58.lisp b/srfi-58.lisp index 9a788a8..12fbd9f 100644 --- a/srfi-58.lisp +++ b/srfi-58.lisp @@ -124,8 +124,9 @@ (iter dims) )) (defun list->uniform-array (rank dims type list) - (let ((rank (or rank (car dims)))) - (srfi-63:list->array rank (funcall type) list))) + (let ((rank (or rank (let ((dim (length dims))) + (if (zerop dim) 1 dim) ) ))) + (srfi-63:list->array rank (funcall type) list) )) (defun read..sharp (c port read) (let ((rank read))