[html-template-devel] Is this behaviour for SKIP-LEADING-WHITESPACE correct?

[Chaitanya Gupta]

Hello,

I have come across a situation where SKIP-LEADING-WHITESPACE
(HTML-TEMPLATE's internal function) throws an error while trying to
create a template printer. I have narrowed it down to the following -

CL-USER> (let ((html-template:*ignore-empty-lines* t))
           (html-template::skip-leading-whitespace
            (make-array 4 :element-type 'character :fill-pointer 0)))


This throws an error. Here's the debugger output -

Index(s) to array function is/are out of the range of the array.
   [Condition of type TYPE-ERROR]

Restarts:
  0: [ABORT-REQUEST] Abort handling SLIME request.
  1: [ABORT] Abort entirely from this (lisp) process.

Backtrace:
  0: (SWANK::DEBUG-IN-EMACS #<TYPE-ERROR @ #x1143b6d2>)
  1: (SWANK:SWANK-DEBUGGER-HOOK #<TYPE-ERROR @ #x1143b6d2> #<Function
SWANK-DEBUGGER-HOOK>)
  2: (ERROR TYPE-ERROR :DATUM NIL :EXPECTED-TYPE FIXNUM :FORMAT-CONTROL
"Index(s) to array function is/are out of the range of the array."
:FORMAT-ARGUMENTS (NIL))
  3: (HTML-TEMPLATE::SKIP-LEADING-WHITESPACE "")
  4: (LET ((HTML-TEMPLATE:*IGNORE-EMPTY-LINES* T))
(HTML-TEMPLATE::SKIP-LEADING-WHITESPACE (MAKE-ARRAY 4 :ELEMENT-TYPE
(QUOTE CHARACTER) :FILL-POINTER 0)))
  5: (EVAL (LET ((HTML-TEMPLATE:*IGNORE-EMPTY-LINES* T))
(HTML-TEMPLATE::SKIP-LEADING-WHITESPACE (MAKE-ARRAY 4 :ELEMENT-TYPE #
:FILL-POINTER 0))))
  6: (SWANK::EVAL-REGION "(let ((html-template:*ignore-empty-lines* t))
           (html-template::skip-leading-whitespace
            (make-array 4 :element-type 'character :fill-pointer 0)))
" T)
...
[snipped remaining frames]

Is the above behaviour for SKIP-LEADING-WHITESPACE correct?

Thanks,

Chaitanya