cannot compile loop-finish.

ID	Created	Type	mocl Version	Dev OS	Target	Status
#66	by informatimago on 2015-02-28 (1953 days ago)	defect	14.08	Mac OS X	n/a	open

Description

Summary:

Steps to Reproduce:

Compile the file:

(defun bug-loop ()
  (loop
    :do (loop-finish)))


Expected Results:

Generate a function returning nil.

Actual Results:

[pjb@larissa :0.0 mocl]$ make check-bugs
mocl --verbose --warn --android /tmp/mocl-test bug-loop-finish.lisp
mocl 14.08 Copyright (C) 2013-2014 Wukix, Inc. (https://wukix.com)
[Source Analysis]
/Users/pjb/src/mocl/bug-loop-finish.lisp
  defun        bug-loop
Error: invalid number of arguments: 1
make: *** [check-bugs] Error 1


Notes:

Comments

(no comments)