skeleton help

[cezar]

Hello,

  I have tryed my first emacs skeleton and I get an error.

The script :

(define-skeleton test-skeleton
  "This is a small doc for the skeleton."
  "" ; no prompt
  > "<ul>"
  \n > "<li>"
  \n > _
  \n > -1 "</li>"
  \n > "</ul>"
  \n)

The error:

Debugger entered--Lisp error: (error "Lisp nesting exceeds 
`max-lisp-eval-depth'")
  skeleton-internal-1(-1 t nil)
  skeleton-internal-1(-1 t nil)
  skeleton-internal-1(-1 t nil)
  skeleton-internal-1(-1 t nil)
  [ ... lots of those lines .. ]
  skeleton-internal-1(-1 nil nil)
  skeleton-internal-1(-1 nil nil)
  skeleton-internal-1(-1 nil nil)
  byte-code("Â@Ã        #" [skeleton recursive skeleton-internal-1 nil] 4)
  skeleton-internal-list(("" > "<ul>" n > "<li>" n > _ n > -1 "</li>" n > 
"</ul>" n) nil)
  (let nil (skeleton-internal-list skeleton str))
  eval((let nil (skeleton-internal-list skeleton str)))
  skeleton-insert(("" > "<ul>" n > "<li>" n > _ n > -1 "</li>" n > "</ul>" n) 
nil nil)
  skeleton-proxy-new(("" > "<ul>" n > "<li>" n > _ n > -1 "</li>" n > "</ul>" 
n) nil nil)
  test-skeleton(nil nil)
  call-interactively(test-skeleton)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)