tests/data/wonky4.lisp

   1 (in-package :cl-user)
   2
   3 (defclass foo ()
   4   ((name :reader name)))
   5
   6 (defvar *foo* nil)
   7
   8 (defun foo (x)
   9   (1+ x))
  10
  11 (warn "gotcha")
  12 "junk"
  13 #| hey |#
  14 ;;;
  15 #-sbcl (frob)
  16  (name *foo*)
  17
  18 (defun bar (y)
  19   (1- y))