From f413852d2ff5367feefb7dcc0f74ae67f21955d1 Mon Sep 17 00:00:00 2001 From: Sumant Oemrawsingh Date: Thu, 5 Apr 2012 10:09:22 +0200 Subject: [PATCH] write-ascii-vector-or-array did not work --- ascii-data.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ascii-data.lisp b/ascii-data.lisp index 4ea2544..b6af6f3 100644 --- a/ascii-data.lisp +++ b/ascii-data.lisp @@ -8,7 +8,7 @@ (in-package #:ascii-data) (eval-when (compile) - (declaim (optimize (speed 3) (safety 1) (debug 0)))) + (declaim (optimize (speed 3) (safety 1)))) (defvar *comment-characters* '(#\# #\' #\;) "LIST of characters that sigal a comment in the data.") @@ -239,9 +239,9 @@ writes the data to the restulting stream using WRITE-ASCII-ARRAY*." "Write the values in VECTOR-OR-ARRAY to the given STREAM, optionally making use of FORMATSPEC, which is a control string for FORMAT to write out a single numerical value." - (assert (< (array-rank array) 3)) - (if (= (array-rank array) 1) - (write-ascii-array% array stream formatspec (array-dimension array 0) 1) + (assert (< (array-rank vector-or-array) 3)) + (if (= (array-rank vector-or-array) 1) + (write-ascii-array% vector-or-array stream formatspec (array-dimension vector-or-array 0) 1) (write-ascii-array* vector-or-array stream :formatspec formatspec))) (defun write-ascii-vector-or-array (vector-or-array file &key formatspec -- 2.11.4.GIT