tests/data/wonky3.lisp

   1 "(in form starting at line: 13, column: 1, position: 247)" ; expect this
   2 #|
   3  More randomness
   4 |#
   5 \f
   6
   7 #+no-such-feature (defun foo
   8                    (hooey))
   9     ; yay
  10
  11 ;;; This should report EOF at a reasonable place
  12 ;;; and not "line 1 column 0"
  13  (defun complex (realpart &optional (imagpart 0))
  14   "Return a complex number with the specified real and imaginary components."
  15   (flet ((%%make-complex (realpart imagpart)
  16            (cond ((and (typep realpart 'double-float)
  17                        (typep imagpart 'double-float))