1.0.43.60: plug (SETF MACRO-FUNCTION) shaped hole in package-locks
[sbcl.git] / tests / bug-414.lisp
1 ;;; compiling and disassembling this used to give
2 ;;;
3 ;;;    WARNING: bogus form-number in form!  The source file has probably
4 ;;;    been changed too much to cope with.
5 ;;;
6 ;;; but the symptoms have disappeared.
7 (defun bug-414 (x y z)
8   (declare (optimize debug))
9   (list x y z))