Add :application-type parameter for save-lisp-and-die on Windows.
[sbcl.git] / 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)