tests/parallel-fasl-load-test.lisp

   1 (defun one-fun ()
   2   1)
   3
   4 (defun two-fun ()
   5   2)
   6
   7 (defvar *var* 42 "This is var.")
   8
   9 (defparameter *quux* 13 "This is quux.")
  10
  11 (defclass a-class ()
  12   ((slot :initarg :slot :reader a-slot)))
  13
  14 (defgeneric gen-fun (x)
  15   (:method ((a cons)) 'cons))
  16
  17 (defmethod gen-fun ((a a-class)) 'a-class)