mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
e2574c9090
The fasl loader itself is thread safe these days, but what about the stuff we do at load time? In principle it /should/ be, so let the shakeout cruise start.
18 lines
286 B
Common Lisp
18 lines
286 B
Common Lisp
(defun one-fun ()
|
|
1)
|
|
|
|
(defun two-fun ()
|
|
2)
|
|
|
|
(defvar *var* 42 "This is var.")
|
|
|
|
(defparameter *quux* 13 "This is quux.")
|
|
|
|
(defclass a-class ()
|
|
((slot :initarg :slot :reader a-slot)))
|
|
|
|
(defgeneric gen-fun (x)
|
|
(:method ((a cons)) 'cons))
|
|
|
|
(defmethod gen-fun ((a a-class)) 'a-class)
|